تويت
منع المستخدم من تشغيل التجميعة مرتين
run = Application.LoadValue("Run_Stat", "run");
if run == "" then
Application.SaveValue("Run_Stat", "run", "true");
else
Dialog.Message("Sharp_Plade", "ÇáÈÑäÇãÌ íÚãá ÈÇáÝÚá", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
closed=false
Application.Exit(0);
end
if closed~=false then
Application.SaveValue("Run_Stat", "run", "");
end
--
run = 0
for j, file_path in pairs (System.EnumerateProcesses()) do
if String.SplitPath(file_path).Filename..String.SplitPath(file_path).Extension == "autorun.exe" then
run = run + 1
end
end
if run == 1 then
Dialog.Message("note", "تم فتح البرنامج لانه لا يعمل من قبل", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Dialog.Message("note", "لا يمكن فتح البرنامج لأنه يعمل حاليا\r\n\r\nسيتم اغلاق البرنامج", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
Application.Exit(0);
end
Dialog.Message("note", "تم فتح البرنامج لانه لا يعمل من قبل", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
تعليق