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('Program Çalışmakda');
* *Halt;
*end;
end;
var
*Sem: THandle;
begin
*Sem := CreateSemaphore(nil, 0, 1, 'PROGRAM_NAME');
*if ((Sem 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then
*begin
* *CloseHandle(Sem);
* *ShowMessage('Program Çalışmakda');
* *Halt;
*end;
end;