Mega Code Archive

 

Categories / Delphi / System

 

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