Forum: Sonstige Fragen zu Delphi
Delphi
by Rapthor,
21. Sep 2003
So ?
Initialization //Verhindern, dass das Programm mehrmals gestartet wird
mHandle := CreateMutex(nil, True, 'Festung.exe');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
ShowMessage('Programm wird bereits ausgeführt');
Halt;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Rapthor,
21. Sep 2003
Habe folgendes in meiner Unit1 zu stehen:
Initialization //Verhindern, dass das Programm mehrmals gestartet wird
mHandle := CreateMutex(nil, True, 'Festung.exe');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
ShowMessage('Programm wird bereits ausgeführt');
Halt;
end;