Einzelnen Beitrag anzeigen

Patrick

Registriert seit: 15. Sep 2003
184 Beiträge
 
Delphi 2010 Professional
 
#4

AW: CreateMutex und seine Grenzen

  Alt 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.
  Mit Zitat antworten Zitat