Hier der Code:
Code: Alles auswählen
keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
GetClipboardImage(0)
SaveImage(0, "c:\screenshot.bmp")
Code: Alles auswählen
keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
GetClipboardImage(0)
SaveImage(0, "c:\screenshot.bmp")
Code: Alles auswählen
keybd_event_(#VK_SNAPSHOT, 0, #KEYEVENTF_KEYUP, 0)
Code: Alles auswählen
Procedure MakeDesktopScreenshot(ImageNr,x,y,Width,Height)
hImage = CreateImage(ImageNr,Width,Height)
hDC = StartDrawing(ImageOutput(ImageNr))
DeskDC = GetDC_(GetDesktopWindow_())
BitBlt_(hDC,0,0,Width,Height,DeskDC,x,y,#SRCCOPY)
StopDrawing()
ReleaseDC_(GetDesktopWindow_(),DeskDC)
ProcedureReturn hImage
EndProcedure
ExamineDesktops()
MakeDesktopScreenshot(0, 0, 0, DesktopWidth(0), DesktopHeight(0))
SaveImage(0, "C:\DesktopScreenshot.bmp")