Habe folgendes in meiner Unit1 zu stehen:
Delphi-Quellcode:
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;
finalization
if mHandle <> 0 then
CloseHandle(mHandle);
Hierbei wird verhindert, dass ein Programm namens Festung.exe doppelt ausgeführt wird. Was muss ich jetzt machen, damit die Prozedur auch überprüft , ob eine client.exe schon läuft? Denn in diesem Falle soll der gleiche Effekt auftreten, wie wenn Festung.exe schon ausgeführt wurde.