Deskop fotografieren

[Thomas]

Hallo
hab mal wieder ne Frage...
Wie kann man den Deskop "fotografieren" und dann im Screen-Modus (OpenScreen(...)) anzeigen???
Schon im Voraus Danke für eure antworten.
(kann sein, dass ich die nächste Zeit nicht ins Internet komm.)

[Jilocasin]

suchen -> finden

http://www.purebasic.fr/german/viewtopic.php?t=8513

[Thomas]

Danke
werds mal ausprobieren.

[Thomas]

Dein Code

Code: Alles auswählen

;Bitmap anlegen: 
CreateImage(0,GetSystemmetrics_(#SM_CXSCREEN),GetSystemmetrics_(#SM_CYSCREEN)) 

;auf angelegtes Bitmap zeichnen: 
DC = StartDrawing(ImageOutput()) 
  BitBlt_(DC,0,0,ImageWidth(),ImageHeight(),GetDC_(GetDesktopWindow_()),0,0,#SRCCOPY) 
StopDrawing() 

;Bitmap an Fenstergroesse anpassen 
ResizeImage(0,640,480) 

If OpenWindow(0,100,100,640,480, #PB_Window_SystemMenu, "Screenshot") 
  Repeat 
    EventID.l = WaitWindowEvent() 
    StartDrawing(WindowOutput()) 
      DrawImage(ImageID(),0,0) 
    StopDrawing() 
    If EventID = #PB_Event_CloseWindow 
      Quit = 1 
    EndIf 
  Until Quit = 1 
EndIf 
End

hat super geklappt, danke!

[DarkDragon]

Mein Code sollte eigentlich auch überal funktionieren, nur anscheinend will ihn keiner verstehen.

[Jilocasin]

@DD.. ich hab ihn auch nicht geschnallt.. ?
@Thomas: bitteschön, jederzeit