Delphi-Quellcode:
unit mulex;
interface
implementation
uses windows,Dialogs,sysutils;
var mHandle: THandle;
Initialization
mHandle := CreateMutex(
nil,True,paramstr(0));
// 'xxxxx' Der Anwendungsname ist hier einzutragen
if GetLastError = ERROR_ALREADY_EXISTS
then begin
// Anwendung läuft bereits
showMessage('
Anwendung läuft bereits!!!!!');
Halt;
end;
finalization
if mHandle <> 0
then
CloseHandle(mHandle)
end.
{Dieter Hirt}
So das ist mein Code und trotzdem lässt sich eine EXE in meinem falle ist das (C:\hey.exe) 2x starten, bziehungsweise beliebig oft starten