جنـرال الـهكـر
السٌّمعَة : 4
تاريخ التسجيل : 20/04/2014
الموقع : https://sadam-alsharabi.roo7.biz
 |  موضوع: لمبرمجي الدلفي . هل تريد أن تجعل برنامجك لا يشتغل لأكثر من مرة في نفس الوقت؟ أدخل إذا  الإثنين مايو 12, 2014 11:28 am | |
| السلام عليكم و رحمة الله تعالى و بركاته *في برنامج آخر كالفيجوال بيسك يمكننا أن نجعل برنامجنا لا يشتغل لأكثر من مرة في نفس الوقت باستعمال الكود التالي: - الكود:
-
if app.previnstance then end
و لكن في الدلفي و للأسف الشديد هذه الخاصية غير متوفرة|9| و بالتالي نجد أنفسنا مضطرين إلى تدبر أمرنا لوحدنا ... و يمكننا القيام بذلك باستعمال طرق مختلفة إخترت منها هذه الطريقة: - الكود:
-
procedure TForm1.FormCreate(Sender: TObject);
var
Sem: THandle;
begin
Sem := CreateSemaphore(nil, 0, 1, 'PROGRAM_NAME');
if ((Sem <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
begin
CloseHandle(Sem);
ShowMessage('This program is already running.');
Halt;
end;
end;
الشرح: في مكان 'PROGRAM_NAME' ضع إسم البرنامج الذي يمكن التعبير عنه بـ | |
|
