Angemeldeten Benutzer aus Dienst ermitteln

[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