ScreenShot von nichtsehbaren Desktop

[Sascha999999999]

[quote="Olli"]

Zitat:

Zitat von Sascha999999999

geht es auch Ohne?

Ja, wahrscheinlich sogar besser, aber nicht für alle Desktops.

was heißt "aber nicht für alle Desktops"?

[Sascha999999999]

sorry, aber bei mir sind die Weiß!

[himitsu]

Jupp, selbes Problem.
Bei mir ist auch alles nur Weiß.

Vom normalen/sichtbaren Desktop "default" klappt es, aber nicht bei einem nicht Sichtbaren :cry:

Delphi-Quellcode:

Procedure THandler.ScreenShot(Desktop: String; Stream: TStream; Quality: Byte = 100);
  Var Desk:  HDESK;
    OldDesk: HDESK;
    Canvas:  TCanvas;
    Bitmap:  TBitmap;
    Jpeg:    TJPEGImage;
    R:       TRect;

  Begin
    Desk := OpenDesktop(PChar(Desktop), 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);
    OldDesk := GetThreadDesktop(GetCurrentThreadId);
    SetThreadDesktop(Desk);
    Try
      Jpeg := TJPEGImage.Create;
      Try
        Bitmap := TBitmap.Create;
        Try
          Canvas := TCanvas.Create;
          Try
            Canvas.Handle := GetWindowDC(GetDesktopWindow);
            R := Rect(0, 0, Screen.Width, Screen.Height);
            Bitmap.Width  := Screen.Width;
            Bitmap.Height := Screen.Height;
            Bitmap.Canvas.CopyRect(R, Canvas, R);
          Finally
            ReleaseDC(0, Canvas.Handle);
            Canvas.Free;
          End;
          //Image.Width  := Bitmap.Width;
          //Image.Height := Bitmap.Height;
          Jpeg.CompressionQuality := Quality;
          Jpeg.Assign(Bitmap);
        Finally
          Bitmap.Free;
        End;
        Jpeg.SaveToStream(Stream);
      Finally
        Jpeg.Free;
      End;
    Finally
      SetThreadDesktop(OldDesk);
      CloseDesktop(Desk);
    End;
  End;

[add]
Ach ja, ich versuche nicht irgendeinen Desktop zu lesen.
Mein Programm hat Einen mit CreateDesktop erstellt und genau diesen möchte ich nun auch gern "sehen" können :(

Delphi-Quellcode:

Desktop := CreateDesktop(PChar('Run' + IntToStr(GetCurrentProcessId)),
  nil, nil, 0, DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or DESKTOP_ENUMERATE
  or DESKTOP_HOOKCONTROL or DESKTOP_WRITEOBJECTS or DESKTOP_READOBJECTS
  or DESKTOP_SWITCHDESKTOP or GENERIC_WRITE, nil);

[himitsu]

http://fnse.de/S02/15S.gif

MSDN

The SetThreadDesktop function will fail if the calling thread has any windows or hooks on its current desktop

So, auch wenn es bei mir nicht in einem extra Thread läuft.
Es handelt sich um eine Konsolenanwendung,
SetThreadDesktop liefert auch immer braf True,
aber es bleibt alles weiß.

Mache ich den Desktop allerdings sichtbar, dann geht es plötzlich.

Also liegt es wohl wirklich nur an dem "unsichtbar".

[Dezipaitor]

Scheint mir ganz sinnig zu sein.
Nur der Desktop, der gerade Eingaben empfängt, generiert auch Zeichennachrichten. Alles andere wäre ja Verschwendung von Resourcen, oder nicht?

Ich habe es nicht probiert, aber vielleicht kann man eine neue WindowStation mit einem Desktop aufmachen. Da nur Winsta0 mit dem Keybboard und Monitor verbunden ist, könnte es gut sein, dass andere Windowstations eigene Zeichenbereiche, unabhängig vom echten Desktop, besitzen.

[himitsu]

Ja, aber gerade deswegen wollte ich ja einen ScreenShot machen, weil man ihn (sonst) nicht sieht.

Hab auch schon versucht mit FindWindowEx die Fenster durchzugehn und einzeln zu zeichnen.
Ging auch nicht, aber kann auch sein, daß ich was falsch gemacht hab.

Auch PrintWindow half nix, wobei dieses noch 'ne Unschöne Nebenwirkung hatte,
denn wenn der Desktop sichtbar war, verschanden die zu "druckenden" Fenster für ein/zwei Sekunden vom Bildschirm :shock:
http://www.delphipraxis.net/internal...t.php?t=139750

Zitat:

Nur der Desktop, der gerade Eingaben empfängt, generiert auch Zeichennachrichten.

Selbst wenn ich diese Nachrichten generiere, geht es anscheinend nicht.


Im Grunde sollte es eine Hintergrund-Remote-Desktop-Software für Arme werden, aber wenn man den Deskop nicht sieht, läßt es sich etwas schwer damit arbeiten.

[Dezipaitor]

Ich habe eine mögliche Lösung gegeben. Ich verstehe nicht, warum man trotzdem versucht etwas zum Laufen zu bringen, was so nicht entworfen wurde. Das ganze ist absichtlich so gebaut worden.

[himitsu]

Bin ja schon dabei es über eine eigene WindowStation zu probieren, aber wenn dieses funktioniert und dann auch noch richtig zum Einsatz kommen soll, werde ich das halbe Projekt auch noch auf 'nen Service umstellen müssen, wegen der nötigen Rechte.

Na dann mal sehn wie ich meinen ersten Service dann so hinbekomm. :|

Wobei ich eine Idee noch hätte.
- eine invisible Form auf dem sichtbaren Desktop, in welche dann alle Fenter kurz als Childs (MDI) eingebunden werden

aber ich glaub das heb ich mir für den Notfall auf.

[Dezipaitor]

Du kannst den Service in einer eigenen Winstation laufen lassen. Das interessiert den nicht :)

[himitsu]

nja, wie gesagt, ich bau es jetzt erstmal so um, daß statt 'nes Desktops gleich eine ganze WindowsStation erstellt wird und nutze dann dessen Standarddesktop ... brauch aber noch ein paar Minütchen.
Und dann muß ich mal sehn, wie ich das Programm in einen Service umwandel, weil ohne Adminrechte geht es dann nimmer.

Zitat:

Zitat von Union

Delphi-Quellcode:

GetUserObjectInformation(OpenInputDesktop(0, false, GENERIC_ALL), UOI_NAME, @pDesktopname, 256, dwLen);
SetString(DesktopName, pDesktopName, dwLen-1);
hDesktop := OpenDesktop(PAnsiChar(Desktopname), 0, false, GENERIC_ALL);
if hDesktop <> 0 then

OK, abgesehn davon, daß der mit OpenInputDesktop geöffnete Desktop laut MSDN auch wieder geschlossen werden muß was er hier nicht wird...

Aber versteh ich den Code richtig?
Man öffnet den Desktop der WindowStation, besorgt sich den Namen und öffnet ihn dann nochmal?

Also theoretisch würde es doch dann reichen den zuerstgefundenen Desktop gleich zu benutzen? :gruebel: