كيف يمكن تشغيل ملف exe ?

#210 أبريل 2005 في 01:45

تفضل أخي hazzoom هذا مثال على ذلك وأي سؤال أنا حاضر

shell.zip

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها

إيزي كاشير - أقوى حلول إدارة المطاعم والكافيهات

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#310 أبريل 2005 في 15:47

ألف شكر لك

:lol: وجربتها ونفعت

إيزي ستور - الحل الأفضل لمحلات الملابس والأحذيه

إيزي كاشير - أقوى حلول إدارة المطاعم والكافيهات

#410 أبريل 2005 في 16:50

:blink: طيب كمان سؤال لو سمحت :

أنا وضعت مسار ملف dll أو ocx في ال label وأريد تسجيله أو الغاء تسجيله (أعتقد أني لو عرفت التسجيل حقدر أعرف الغاء التسجيل) عن طريق الكود ؟ كيف يمكن عمل ذلك؟

للتوضيح: أي أني أستطيع أن أغير الملف ؟

وجزاك الله كل خير........

إيزي ستور - الحل الأفضل لمحلات الملابس والأحذيه

#512 أبريل 2005 في 00:49

أنا أسف أخي تأخرت عليك

بالنسبة لكود التسجيل هو

Shell "regsvr32 C:\WINDOWS\SYSTEM\Functions.ocx"

حيث

C:\WINDOWS\SYSTEM\Functions.ocx

هو عنوان الدالة

أسف مرة أخري على التأخير

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها

إيزي كاشير - أقوى حلول إدارة المطاعم والكافيهات

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#612 أبريل 2005 في 02:33

ألف ألف شكر لك يكفي أنك الوحيد اللي عبرني...

ولكن :rolleyes:

لم يكن هذا هو المطلوب لأني أريد اختيار ملف مختلف في كل مره عن طريق command و common dialog واليك الملف المرفق يوضح لك طلبي و معلش استحملني وربنا يكرمك...

إيزي ستور - الحل الأفضل لمحلات الملابس والأحذيه

#712 أبريل 2005 في 20:28

تفضل أخي

وأي خدمة أنا حاضر

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها

إيزي كاشير - أقوى حلول إدارة المطاعم والكافيهات

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#812 أبريل 2005 في 22:31

لا أستطيع أن أعبر لك عن شكري وامتناني الشديد...

وان احتجت الي شئ سوف احاول أن أساعدك بقدر استطاعتي ...

ولكن هذه الطريقه جربتها علي ملف ولكن في مسارين مختلفين أي أني نسخت الملف المراد تسجيله في مكانين مختلفين و عملت تسجيل (أو الغاء تسجيل) لكل نسخه علي حده فنفعت مع أحدهما ولم تنفع مع الآخر فما السبب ؟؟؟؟؟

واليك الصور في المرفق...

ومعلش سامحني أنا متقل عليك...

pics.rar

إيزي ستور - الحل الأفضل لمحلات الملابس والأحذيه

#912 أبريل 2005 في 23:51

تأكد أولا أنك عملت Unregister للأول قبل عمل Register للثاني

لأن لهما نفس الإسم

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها

إيزي كاشير - أقوى حلول إدارة المطاعم والكافيهات

وهناك الجديد إن شاء الله

Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub

#1013 أبريل 2005 في 20:31

:( تأكدت من ذلك أكثر من مره ولكن لم تنفع ما العمل ؟؟؟؟؟؟ :(

إيزي ستور - الحل الأفضل لمحلات الملابس والأحذيه

#1113 أبريل 2005 في 23:31

جرب مسح الملف الأول أو حتى تغيير إسمه

المحلة الكبري - كلية الطب جامعة الأزهر بدمياط

من مواضيعي

من المواضيع التي شاركت فيها