[Solved]Desktop ScreenShot

[codeman]

Can i get a ScreenShot of my Desktop using PostMessage ?

Code: [Select]

PostMessage(0,WM_KEYDOWN,VK_Snapshot,0);
PostMessage(0,WM_KEYUP,VK_Snapshot,0);


Secondly , this code gives me a black ScreenShot image ... ?

Code: [Select]

bmp := TBitmap.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DCDesk := GetWindowDC(GetDesktopWindow);
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0, SRCCOPY);
bmp.SaveToFile('ScreenShot.bmp');
ReleaseDC(GetDesktopWindow, DCDesk);
bmp.Free;


[Laksen]

Try this
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0, SRCCOPY or CAPTUREBLT);

[codeman]

Try this
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0, SRCCOPY or CAPTUREBLT);

I get compile error : Identifier not found "CAPTUREBLT"

[taazz]

Code: Pascal  [Select][+][-]

1. Procedure SaveScreenShot(const aFile:string);
2. var
3.   vBMP:TBitmap;
4.   vDC : HDC;
5. begin
6.   vBMP:=TBitmap.Create;
7.   vDC := GetDC(0);
8.   vBMP.LoadFromDevice(vDC);
9.   vBmp.SaveToFile(aFile);
10.   ReleaseDC(0,vDC);
11. end;
12.  

One drawback it does not capture the program that executed the procedure in the screenshot,
I do not know if this can be overcome or not.

EDIT:
Tested it on windows 7 32bit using GTK2 as my widget set. So it is probably cross platform too.

Regards
Jo.

[typo]

@codeman

Try to "find in files" the constant CAPTUREBLT.

[codeman]

One drawback it does not capture the program that executed the procedure in the screenshot,
I do not know if this can be overcome or not.

Thanks @taazz
About the drawback you said , it does not capture it only if i call the procedure onCreate or onActivate , btw i can handle this with a timer : )

[taazz]

Maybe its a GTK behavior I do not know my test where done with a button and its click event.