System Delphi

  1. Home
  2. Delphi
  3. System
  4. Programın yalnız bir defa çalışması
procedure TForm1.FormCreate(Sender: TObject);
begin
CreateMutex(nil,FALSE,'PROGRAMADI');
if GetLastError = ERROR ALREADY EXISTS then
begin
ShowMessage('Program şu an çalışmakta.');
Halt(0);
end;
end;
attila_t2000@yahoo.co.uk