منع البرنامج من التحميل مرتين

هذا الكود يمنع البرنامج من التحميل من نفس المسار مرتين ثم يقوم بتنشيط البرنامج الكود : Function AnotherInstance() As Integer Dim AppTitle$ If App.PrevInstance Then AppTitle$ = App.Title App.Title = "No longer want this app running..." AppActivate AppTitle$ AnotherInstance = True Else AnotherInstance = False End IfEnd FunctionSub Form_Load() If AnotherInstance() Then End End Subلتحميل السورس اضغط هنــــــــ...

إقرأ المزيد