Kommunikation Service und Anwendung unter Vista

[JonnyGuitar]

moin moin,

ich habe im delphi-forum folgende unit gefunden: TMutexIPC

damit versuche ich nun zwischen service und anwendung zu kommunizieren. unter xp funktioniert das einwandfrei.
unter vista hingegen wird aber anscheinend nicht auf den selben mutex zugegriffen, auch bei ausgeschaltetem uac.

ist diese nun unter vista unmöglich oder habe ich nur vergessen was zu beachten?


mfg Jonny

[Bernhard Geyer]

Evtl. ist ja die striktere Trennung Dienste-"Desktop" <-> Anwender-Desktop dafür verantwortlich?

[JonnyGuitar]

heisst das dann explizit das zur kommunikation keine memory mapped files in frage kommen?
als alternative fallen mir dann nur noch named pipes ein, wobei ich eigentlich mmf bevorzugen würde

[Bernhard Geyer]

Es war nur eine Vermutung von mir. Um die Interaktion Dienst <-> Deskop wieder auf XP-Level zu bringen gibt es eine Registry-Key. Wie der heißt mußt du die Suche bemühen ...

[Dezipaitor]

Memory Mapped Files gehen schon, man muss nur die DACL anpassen, damit ein anderer Benutzer auch darauf Zugriff hat.
Ist fast wie mit normalen Dateien.

[JonnyGuitar]

das ist schonmal sehr schön zu hören, dass es doch mit mmf funktioniert.

@Dezipaitor oder jeden anderen wissenden: könntest du mir wenns nicht zu viele umstände macht kurz erklären, wie es sich mit dacl verhält?
meinst du vielleicht beim CreateFileMapping die pSecurityAttributes? die habe ich schon mit

Delphi-Quellcode:

aSA.nLength := SizeOf(TSecurityAttributes);
aSA.bInheritHandle := true;
aSa.lpSecurityDescriptor := @aSd;

InitializeSecurityDescriptor(aSa.lpSecurityDescriptor, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(aSa.lpSecurityDescriptor, True, nil, False);

aufs maximalste gesetzt.


vielen dank für eure hilfe

mfg Jonny

[Dezipaitor]

Da du eine NULL-DACL verwendest, hat wirklich jeder Zugriff darauf. Das stimmt also.

ICh glaube eher, dass du mal mit DuplicateHandle, versuchen solltest, das Mutex Handle über Prozessebene hinweg zu kopieren.

[JonnyGuitar]

servus,

ich habe jetzt in der unit mutexipc nach

Delphi-Quellcode:

If FMMFHandle = INVALID_HANDLE_VALUE Then
Begin
  FMMFHandle := CreateFileMapping($FFFFFFFF, @aSa, PAGE_READWRITE, 0, MutexSize, PChar('MIPC_' + MutexName + '_MMF'));
  If FMMFHandle = 0 Then
    Raise EMIPCInitialization.Create('Error creating file mapping object.');
  Precreated := GetLastError = ERROR_ALREADY_EXISTS;
End
Else
 Precreated := True;

folgendes eingefügt:

Delphi-Quellcode:

if not DuplicateHandle(GetCurrentProcess, FMMFHandle,GetCurrentProcess, @FMMFHandle, 0, FALSE, DUPLICATE_SAME_ACCESS) then
  RaiseLastWin32Error;

und nach

Delphi-Quellcode:

If (FMutexHandle = INVALID_HANDLE_VALUE) Or (FClientID = MIPC_USER_UNDEFINED) Or (FClientID = MIPC_USER_BROADCAST) Then
Begin
  CloseIPC;
  SetLastError(ERROR_ALREADY_EXISTS);
  If (FClientID = MIPC_USER_UNDEFINED) Or (FClientID = MIPC_USER_BROADCAST) Then
    FClientID := GenClientID;
  While GetLastError = ERROR_ALREADY_EXISTS Do
  Begin
    FMutexHandle := CreateMutex(Nil, True, PChar(Format('MIPC_%s_CLIENT%.8x', [MutexName, ClientID])));
    If GetLastError = ERROR_ALREADY_EXISTS Then
    Begin
      CloseHandle(FMutexHandle);
      FClientID := GenClientID;
    End;
  End;

folgendes

Delphi-Quellcode:

if not DuplicateHandle(GetCurrentProcess, FMutexHandle,GetCurrentProcess, @FMutexHandle, 0, FALSE, DUPLICATE_SAME_ACCESS) then
  RaiseLastWin32Error;

leider immer noch keine besserung, der service und die anwendung scheinen unterschiedliche speicherbereiche zu nutzen.

oder habe ich was bei duplicatehandle falsch gemacht?


mfg Jonny

[Dezipaitor]

Das zweite GetCurrentProcess musst du durch den ZielProzess ersetzen. Sie dürfen nicht derselbe Prozess sein.

[JonnyGuitar]

klingt logisch

sorry das ich nerve, aber ich habe keinen plan wie ich an die processid von der anwendung komme.
hast du vielleicht einen kleinen denkanstoss für mich

ps: wie muss ich das denn halten, wenn der service schon gestartet ist, aber die anwendung noch nicht?

mfg Jonny