Zitat von
Brüggendiek:
Außerdem passiert es dann nicht, daß beim Compilieren die EXE noch geöffnet ist.
Delphi-Quellcode:
var
mHandle: THandle;
implementation
{$R *.dfm}
[...]
initialization //Verhindern, dass ein Programm mehrmals gestartet wird
mHandle := CreateMutex(nil, True, 'NameDerExe');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Halt;
end;
finalization
if mHandle <> 0 then
begin
CloseHandle(mHandle);
end;
end.
Grüsse, Daniel
