Angemeldeten Benutzer aus Dienst ermitteln

[xZise]

Hi DP,
ich habe eine Frage, und zwar wie kann ich den aktuell angemeldeten Benutzer ermitteln?
Ich habe schon im Forum gesucht, und dort wurde die Variable "username" empfohlen.
Ich habe das eingebaut, und als Anwendung funzt es, aber in einem Dienst bekomme ich nur einen Leerstring.

MfG
xZise

[edit=SirThornberry]Titel korrigiert - Mfg, SirThornberry[/edit]

[Luckie]

http://www.delphipraxis.net/internal...=507871#507871

[xZise]

Leider kann ich kein C++

[Luckie]

Da gibt es nicht viel C zu können. Die API-Funktionen sind die gleichen.

[Dezipaitor]

Lustige Sache:
Es können mehrere Benutzer gleichzeit angemeldet sein

mit den Notification, wie es in dem C++ Artikel auf codeproject gezeigt wird, kann man nur dann reagieren, wenn der Dienst schon von anfang an gestartet ist - sonst bekommt man keine Nachricht.

Am einfachsten geht es, wenn man WTSQueryUserToken aus der JWSCL verwendet. Man kann bestimmen, welche Session (lokal, remote) verwendet werden soll und mit dem Token hat soviele Infos über dem Benutzer (Name, SID, usw), dass es reichen sollte. Man kann sogar den Userkontext übernehmen und als Dienst unter diesem Benutzer lustige Dinge machen.

[xZise]

So... Ich habe nun versucht das zu übersetzen, aber es gibt mehrere Probleme:

Delphi-Quellcode:

library logonoffdll;
  
const
  g_szPath : array of PChar =('c:\somepath\execut.exe \"arguments\"');

uses
  SysUtils,
  Classes,
  Windows;

{$R *.res}

function LinMain(hInst : hInstance; dwReas : DWord; lpReserved : LPVoid) : Boolean;
var
  g_pi : PROCESS_INFORMATION;
begin
  if dwReas = DLL_PROCESS_ATTACH then
    DisableThreadLibraryCalls(hInst);
  Result := true;
end;

procedure StartProcessAtWinLogon(pInfo : PWLX_NOTIFICATION_INFO);
var
  si : STARTUPINFO;
begin
    si.cb := sizeof(STARTUPINFO);
    si.lpReserved := nil;
    si.lpTitle := nil;
    si.lpDesktop := 'WinSta0\\Default';
    si.dwX = si.dwY = si.dwXSize = si.dwYSize = 0L;
    si.dwFlags := 0;;
    si.wShowWindow := SW_SHOW;
    si.lpReserved2 := NULL;
    si.cbReserved2 := 0;

    CreateProcess(NULL, g_szPath, NULL, NULL, FALSE, CREATE_NEW_CONSOLE,
                  NULL, NULL, &si, &g_pi);
end;

procedure StopProcessAtWinLogoff(pInfo : PWLX_NOTIFICATION_INFO);
begin
  SafeTerminateProcess(g_pi.hProcess, 0xDEADBEEF);
end;

procedure YOUR_EVENT_HANDLERS (pInfo : PWLX_NOTIFICATION_INFO);
begin
  // ???
end;

export
  StartProcessAtWinLogon, StopProcessAtWinLogoff;

begin
end.

1. Wie soll ich da, und auch was soll ich bei der Konstante setzen?
2. LPVoid => Was ist das für ein Datentyp? Undefiniert?
3. PWLX_NOTIFICATION_INFO => Und dieser?
4. si.cb := sizeof(STARTUPINFO); kennt "cb" nicht. Entfernen?
5. SafeTerminateProcess() => Unterkringelt er zwar nicht (sowie bei Pktn 2 und 3, aber er kennt die wirklich nicht), hat er aber auch nicht angeboten.
6. YOUR_EVENT_HANDLERS => Was soll ich damit machen? In eine Datei den Benutzer schreiben? Wann wird die den aufgerufen?

Zitat von Dezipaitor:

Lustige Sache:
Es können mehrere Benutzer gleichzeit angemeldet sein

Nicht bis Windows 2000.

Zitat von Dezipaitor:

mit den Notification, wie es in dem C++ Artikel auf codeproject gezeigt wird, kann man nur dann reagieren, wenn der Dienst schon von anfang an gestartet ist - sonst bekommt man keine Nachricht.

Wird beim Booten gestartet, also so gesehen k.P.

Zitat von Dezipaitor:

Am einfachsten geht es, wenn man WTSQueryUserToken aus der JWSCL verwendet. Man kann bestimmen, welche Session (lokal, remote) verwendet werden soll und mit dem Token hat soviele Infos über dem Benutzer (Name, SID, usw), dass es reichen sollte. Man kann sogar den Userkontext übernehmen und als Dienst unter diesem Benutzer lustige Dinge machen.

Mal sehen wo ich die Unit herkriege... Ich schaus mir mal an

[edit]Ich verzweifle Ich habe die Unit gedownloadet, aber mehr auch nicht, weil ich kein einziges Beispiel kompilieren kann, weil die Datei JwaWinType.pas von einen andere Prozess verwendet wird (jedenfalls sagt das TD-E).
Also kann ich nicht JwaWindows.pas komplieren, und damit nicht whoami (was wahrscheinlich das Beispiel dazu ist?).
Warum es nicht geht: kA Ich weiß nur, dass ich sie öffnen konnte, bevor Delphi zu der Zeile {$I JwaWinType.pas} kam... TD-E eben ^^ irrational ...[/edit]

MfG
xZise

[Dezipaitor]

Zitat von xZise:

[edit]Ich verzweifle Ich habe die Unit gedownloadet, aber mehr auch nicht, weil ich kein einziges Beispiel kompilieren kann, weil die Datei JwaWinType.pas von einen andere Prozess verwendet wird (jedenfalls sagt das TD-E).
Also kann ich nicht JwaWindows.pas komplieren, und damit nicht whoami (was wahrscheinlich das Beispiel dazu ist?).
Warum es nicht geht: kA Ich weiß nur, dass ich sie öffnen konnte, bevor Delphi zu der Zeile {$I JwaWinType.pas} kam... TD-E eben ^^ irrational ...[/edit]

MfG
xZise

Das ist ein Bug von TD.
Guck mal bei
http://www.delphipraxis.net/internal...=813355#813355

P.S.
Wenn du so eine Meldung per Edit einfügst, wird niemand benachrichtigt und es ist nur Zufall, wenn man deinen Post liest.

[xZise]

Zitat von Dezipaitor:

Zitat von xZise:

[edit]Ich verzweifle Ich habe die Unit gedownloadet, aber mehr auch nicht, weil ich kein einziges Beispiel kompilieren kann, weil die Datei JwaWinType.pas von einen andere Prozess verwendet wird (jedenfalls sagt das TD-E).
Also kann ich nicht JwaWindows.pas komplieren, und damit nicht whoami (was wahrscheinlich das Beispiel dazu ist?).
Warum es nicht geht: kA Ich weiß nur, dass ich sie öffnen konnte, bevor Delphi zu der Zeile {$I JwaWinType.pas} kam... TD-E eben ^^ irrational ...[/edit]

MfG
xZise

Das ist ein Bug von TD.
Guck mal bei
http://www.delphipraxis.net/internal...=813355#813355

Hatte es vergessen oben zu editieren

Zitat von Dezipaitor:

P.S.
Wenn du so eine Meldung per Edit einfügst, wird niemand benachrichtigt und es ist nur Zufall, wenn man deinen Post liest.

Schon mal was von Pushen gehört? Ich denke bei 4 Jahren DP Erfahrungen schon oder

MfG
xZise

PS: Kann man irgendwie ein Dienst schnell testen? Also ohne die ganzen Reboots?

[Dezipaitor]

Zitat von xZise:

Zitat von Dezipaitor:

P.S.
Wenn du so eine Meldung per Edit einfügst, wird niemand benachrichtigt und es ist nur Zufall, wenn man deinen Post liest.

Schon mal was von Pushen gehört? Ich denke bei 4 Jahren DP Erfahrungen schon oder

MfG
xZise

PS: Kann man irgendwie ein Dienst schnell testen? Also ohne die ganzen Reboots?

Warum soll ich pushen?

Wenn du etwas schreiben willst, dann kannste ja gleich einen neuen Post machen, statt zu pushen. Edits sollten eh nur für Kleinigkeiten sein.

[xZise]

So... Dienst installiert, gestartet und getestet mit folgenden Code:

Delphi-Quellcode:

function GetUserName : string;
var
  sl : TStringList;
  Token : TJwSecurityToken;
begin
  Token := TJwSecurityToken.CreateTokenEffective(TOKEN_READ);
  try
    Result := Token.TokenOwner.AccountName[''];
  finally
    Token.Free;
  end;
end;

Ergebnis: Administratoren
Auch wenn keine Admins/niemand angemeldet sind.
Habe ich die falsche Variable genommen?

MfG
xZise

[edit]JwaWtsApi32.WTSQueryUserToken(????); Was soll ich da übergeben [/edit]