Screen Capture Without Lazarus App Showing in Screen Capture

[Possum]

Hi

I really have looked hi and low but no answer found so here I am.

I want to do a screen capture that does not include my Lazarus (linux) app.. But the app keeps on getting included in image...

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

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3. ScreenDC: HDC;
4. MyRec : TRect;
5. LocalBitmap : Tbitmap;
6. begin
7.   form1.Visible:=false;
8.   LocalBitmap := TBitmap.Create;
9.   ScreenDC := GetDC(1);
10.   LocalBitmap.LoadFromDevice(ScreenDC);
11.   LocalBitmap.SaveToFile('/home/mpskinner/Desktop/zz.bmp');
12.   LocalBitmap.free;
13.   form1.Visible:=true;
14.   ReleaseDC( 0, ScreenDC );
15. end;
16.  
17.  

I'm lost. Any pointers appreciated..

Thank You..

[dsiders]

https://wiki.lazarus.freepascal.org/Developing_with_Graphics#Taking_a_screenshot_of_the_screen

[Possum]

That's the code I am using. Even though I make the form invisible it still gets included in the bitmap..

Thank You..

[Jurassic Pork]

hello,
try this :

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

1. form1.Visible:=false;
2.   Application.ProcessMessages;
3.     Sleep(2000);
4.     LocalBitmap := TBitmap.Create;    

Friendly, J.P

[Possum]

Thank You....

 

Solved