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 