Createmutex / Windows 7 / 64bit Problem

[Mavarik]

Hallo Zusammen...

Ich habe einen Servicedienst mit Adminrechten geladen...

Dieser Dienst holt sich ein Mutex mit:

Delphi-Quellcode:

  ServiceGeladen := CreateEvent(nil,true,true,ServiceDa);
  SetEvent(ServiceGeladen);

Ein anderes Programm soll abfragen ob der Service geladen ist mit:

Delphi-Quellcode:

  Geladen := CreateMutex(nil, true,ServiceDa);

  if Geladen = 0
    then begin

Bisher (unter Vista 32Bit) funktionierte das prima so...
Hat jemand ne Idee woran es liegt, dass es jetzt nicht mehr läuft?
- 64 Bit?
- Windows 7
- sonstiges...

Grüsse Mavarik :coder:

PS.: Lasterror = 0 Gelanden = 256

[Dezipaitor]

Das Erste ist ein eigentlich ein Event, d.h. das sind zwei völlig verschiedene Objekte.

Also, du kannst Events verwenden, statt Mutexes, musst aber dieselbe Funktion (CreateMutex <-> CreateEvent) nutzen. Schau dir die Doku in der MSDN dazu genau an.

[Mavarik]

Oh Cool ist mir nicht aufgefallen...

Komisch, dass es unter Vista so funktioniert..

Aber auch wenn ich bei beiden den CreateEvent verwende erhalte ich nicht das gewünschte Ergebiss

Sollte nicht GetLastError = ERROR_ALREADY_EXISTS sein?

Grüsse :dp:

[wicht]

Muss da vielleicht auch das berühmte "GLOBAL\" vor?

[Mavarik]

Zitat:

Zitat von wicht

Muss da vielleicht auch das berühmte "GLOBAL\" vor?

Was - wo - vor?

Warum zeigt sich erst unter Windows 7 das Problem oder liegt es an 64 Bit...?

Wie gesagt unter Vista 32 läuft es...

Mavarik

[wicht]

War mehr ins blaue geraden :) .. Naja der Mutex bekommt ja einen Namen, und der Name sollte dann nicht "asdf" sein, sondern "GLOBAL\asdf". Kannst ja mal versuchen, keine Ahnung ob es hilft.

[Mavarik]

Zitat:

Zitat von wicht

War mehr ins blaue geraden :) .. Naja der Mutex bekommt ja einen Namen, und der Name sollte dann nicht "asdf" sein, sondern "GLOBAL\asdf". Kannst ja mal versuchen, keine Ahnung ob es hilft.

Wenn ich GLOBAL\ davor setze läßt sich der Mutex nicht erzeugen...

Aber auch alle anderen Events klappen unter W7_64 nicht mehr...

Wo ist der Trick..?

Mavarik

[Mavarik]

Ich habe folgendes gefunde zu "Global"

Link <- hier steht "Global\\"

Funktioniert aber auch nicht...

[Dezipaitor]

für Global\xxx benötigt man das CreateGlobalPrivilege, was z.B. Admin haben.

[Mavarik]

Zitat:

Zitat von Dezipaitor

für Global\xxx benötigt man das CreateGlobalPrivilege, was z.B. Admin haben.

CreateGlobalPrivilege aus "Deiner" API?

Ich habe es mit "InitializeSecurityDescriptor" versucht... wollte leider auch nicht...


Frank

[Fridolin Walther]

Ich frage mich ein wenig, wozu man da ein Mutex bemüht. Viel sauberer wäre es imho den Service Manager einfach zu fragen ob der Service läuft. Das ist nicht nur einfacher, sondern auch sicherer (es gibt nämlich einen Zeitraum in der der Mutex noch nicht existiert, Dein Service aber im Begriff ist zu starten):

Delphi-Quellcode:

uses winsvc;

function IsServiceRunning(serviceName : string) : Boolean;
var
  scmHandle : THandle;
  serviceHandle : THandle;
  serviceStatus : TServiceStatus;
begin
  Result := FALSE;
  scmHandle := OpenSCManager(nil, SERVICES_ACTIVE_DATABASE, GENERIC_READ);
  if scmHandle <> 0 then
    begin
      serviceHandle := OpenService(scmHandle, PChar(serviceName), SERVICE_QUERY_STATUS);
      if serviceHandle <> 0 then
        begin
          if QueryServiceStatus(serviceHandle, serviceStatus) then
            result := serviceStatus.dwCurrentState <> SERVICE_STOPPED;
          CloseServiceHandle(serviceHandle);
        end;
      CloseServiceHandle(scmHandle);
    end;
end;

Wenn Du wirklich ein Mutex nutzen magst, dann sollte es meiner Ansicht nach notwendig sein, den Mutex im globalen Namespace zu erstellen. Dazu musst Du Dir dann vorher entsprechende Rechte besorgen.

[Mavarik]

Zitat:

Zitat von Fridolin Walther

Wenn Du wirklich ein Mutex nutzen magst, dann sollte es meiner Ansicht nach notwendig sein, den Mutex im globalen Namespace zu erstellen. Dazu musst Du Dir dann vorher entsprechende Rechte besorgen.

Danke für den Codesnipe ISServiceRunning... (Funktioniert)

Leider verschieb das "nur" das Problem, weil unter Win7 das gleiche Problem mit den Events habe...

Auch die Events haben unter Vista mit eingeschalteter UAC ohne den globalen Namespace funktioniert...

Mavarik :coder:

[Dezipaitor]

Naja, man wartet ja eigentlich nicht auf den Dienst selbst, sondern auf irgendein Feature, welches er bereitstellt, z.B. Pipe.

[Mavarik]

Zitat:

Zitat von Dezipaitor

Naja, man wartet ja eigentlich nicht auf den Dienst selbst, sondern auf irgendein Feature, welches er bereitstellt, z.B. Pipe.

Ja klar... Der Dienst stellt über ein CreateFileMapping... Ein Memory Block zur Verfügung...
Das ganze mit verschiedenen Threads die alle über Events-Handels synconisiert werden...
Aber das funktioniert nicht mehr und Win 7...

Wenn ich die gleichen Exe unter Vista laufen lassen - alles einwandfrei...

Habe mir auch gerade die Updates der API usw. geladen... Gleiches Problem...

Mavarik :gruebel:

[Mavarik]

Hallo Christian!

Hast Du mal ein Stück source für "CreateGlobalPrivilege"...

Leider kann ich dazu nix finden..

Grüsse :gruebel:

[Mavarik]

OK So funktioniert es...

Delphi-Quellcode:

var
   SecurityDesc: TSecurityDescriptor;
   SecurityAttr: TSecurityAttributes;
begin
  InitializeSecurityDescriptor(@SecurityDesc, SECURITY_DESCRIPTOR_REVISION);

  SetSecurityDescriptorDacl(@SecurityDesc, True, nil, False);
  SecurityAttr.nLength := SizeOf(SecurityAttr);
  SecurityAttr.lpSecurityDescriptor := @SecurityDesc;
  SecurityAttr.bInheritHandle := False;


  Geladen := CreateMutex(@SecurityAttr, false,pchar('Global\'+ServiceDa));
  error := GetLastError;

  if error = ERROR_ALREADY_EXISTS

Ich gehe davon aus, dass ich alle Mutex und Events mit dem Parameter aufrufen muss...
Werde ich mal testen...

Grüsse Mavarik :coder:

[Dezipaitor]

Das Privileg heißt SE_CREATE_GLOBAL_NAME und wird mit AdjustTokenPrivilege oder JwEnablePrivilege von JWSCL aktiviert.