title image


Smiley Re: Verhindern das ein Programm mehrmal gestartet wird
Hallo,var mHandle : THandle;procedure TForm1.Create(Sender : TObject);beginmHandle := CreateMutex(nil,true,PChar(Application.ExeName)); if GetLastError = ERROR_ALREADY_EXISTS then Halt;end;
Gruß Deddy
Wenn Dein Programm nicht läuft, vergib die Versionsnummer 1.0

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: