Title: Start an application exclusive
Question: Prevent duplicate start of an application
Answer:
Start an application exclusive
implementation
var
mHandle: THandle; // Mutexhandle
Projekt: string;
initialization
Project := ''; // define your project-name here
mHandle := CreateMutex(nil, True, PChar(Projekt));
if GetLastError = ERROR_ALREADY_EXISTS then begin
showMessage('Project ' + Project + ' is still running');
halt; // kill the second instance
end;
finalization // alt end free the mHandle
if mHandle 0 then CloseHandle(mHandle)
end.
Tested under Win9x and Win2K