FindWindow als System

[SleepyMaster]

OK! Ich habs geschafft! Vielen Dank für deinen Tipp NicoDE!

Delphi-Quellcode:

var
  hwinstaUser,hdeskUser: THandle;
begin
SetLastError(0);
hwinstaUser:=OpenWindowStation('winsta0', FALSE, MAXIMUM_ALLOWED);
if hwinstaUser <> 0 then
  if SetProcessWindowStation(hwinstaUser) then
    begin
    hdeskUser:=OpenDesktop('Default', 0, FALSE, MAXIMUM_ALLOWED);
    if hdeskUser <> 0 then
      if SetThreadDesktop(hdeskUser) then
        Messagebox(0,'Es geht!!!','NA!!!',64);
    end;
if GetLastError<>0 then
  Messagebox(0,pchar(inttostr(GetLastError)),'Fehler',64);