Registriert seit: 15. Sep 2003
184 Beiträge
Delphi 2010 Professional
|
AW: CreateMutex und seine Grenzen
6. Dez 2012, 10:11
Jep, so funktioniert es! Danke.
Delphi-Quellcode:
var
wndMain : HWND;
FSA: SECURITY_ATTRIBUTES;
FSD: SECURITY_DESCRIPTOR;
begin
InitializeSecurityDescriptor(@FSD, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@FSD, true, nil, false);
FSA.lpSecurityDescriptor := @FSD;
FSA.nLength := sizeof(SECURITY_ATTRIBUTES);
FSA.bInheritHandle := true;
mHandle := CreateMutex(@FSA, True, PWideChar('Global\' + Ident));
if (GetLastError = ERROR_ALREADY_EXISTS) then
Genieße jede Minute deines Lebens, denn sie wird nicht wieder kommen.
|