Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Anwendung nur einmal starten
30. Jan 2003, 10:10
Delphi-Quellcode:
var
mHandle: THandle;
implementation
{$R *.dfm}
//Code, Code, Code...
//Prozeduren, Funktionen...
Initialization //Verhindern, dass das Programm mehrmals gestartet wird
mHandle := CreateMutex(nil, True, 'NameDerExe');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Halt;
end;
finalization
if mHandle <> 0 then
CloseHandle(mHandle);
end. //Programmende
Gefunden in einem Beitrag von Daniel B.
Michael Ein Teil meines Codes würde euch verunsichern.
|
|
Zitat
|