ScreenShot von nichtsehbaren Desktop

[himitsu]

Delphi-Quellcode:

SetConsoleCtrlHandler(@HandlerRoutine, True);
OldWinStat := GetProcessWindowStation;
OldDesktop := GetThreadDesktop(GetCurrentProcessId);
Try
  WinStat := CreateWindowStation(nil, 0, STANDARD_RIGHTS_REQUIRED
    or WINSTA_ACCESSCLIPBOARD or WINSTA_ACCESSGLOBALATOMS or WINSTA_CREATEDESKTOP
    or WINSTA_ENUMDESKTOPS or WINSTA_ENUMERATE or WINSTA_EXITWINDOWS
    or WINSTA_READATTRIBUTES or WINSTA_READSCREEN or WINSTA_WRITEATTRIBUTES, nil);
  If WinStat <> 0 Then Begin
    If SetProcessWindowStation(WinStat) Then Begin
      Desktop := OpenInputDesktop(0, False, DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW
        or DESKTOP_ENUMERATE or DESKTOP_HOOKCONTROL or DESKTOP_WRITEOBJECTS
        or DESKTOP_READOBJECTS or DESKTOP_SWITCHDESKTOP or GENERIC_WRITE or GENERIC_READ);
      If Desktop <> 0 Then Begin
        If SetThreadDesktop(Desktop) Then Begin

Nja, jetzt muß ich nur noch den Desktop aufbekommen.
OpenInputDesktop meint was von "Unzulässige Funktion" (GetLastError=1)

Hab's erstmal noch als Konsolenanwengung mit Adminrechten.


[add]
OK, Fehler gefunden.
OpenInputDesktop will den Desktop öffnen, welcher auf dem PC grade die Usereingaben abbekommt.
Allerdings ist dieser nach SetProcessWindowStation auf einer anderen WindowStation und man bekommt darauf nun keinen Zugriff mehr.

Aber wie bekomm ich jetzt raus, welcher Desktop der "Standard"-Desktop der aktuellen WindowsStation ist?
[add2]
Gut, ich probiere es mal mit EnumDesktops