wo hast du denn diesen Code in dein Programm eingebaut?
du kannst natürlich auch das Programm garnicht erst starten lassen:
Delphi-Quellcode:
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
ProgHandle := CreateMutex(nil, True, 'Anwendung');
if GetLastError <> ERROR_ALREADY_EXISTS then
begin
Application.Run;
end;
CloseHandle(ProgHandle);
end.
// oder
begin
ProgHandle := CreateMutex(nil, True, 'Anwendung');
if GetLastError <> ERROR_ALREADY_EXISTS then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
CloseHandle(ProgHandle);
end.
// oder ... nja, halt das überspringen, was
// in diesem Fall nicht ausgeführt werden soll