How to capture the desktop screen<\/p>\n
[code lang=”delphi”]procedure TForm1.GetDesktopBitmap;
\n Var
\n DeskHWnd : Hwnd;
\n dc: HDC;
\n ScreenWidth, ScreenHeight: Integer;
\n TheBmp : TBitmap;
\n FName : String;
\nbegin
\n \/\/ Get the handle of the Desktop
\n DeskHWnd := GetDeskTopWindow;
\n\/\/ Get the DeviceContext
\n dc := GetDC(DeskHWnd);
\n\/\/ Get the screen dimensions
\n ScreenWidth := GetDeviceCaps(dc,HORZRES);
\n ScreenHeight := GetDeviceCaps(dc,VERTRES);
\n\/\/ Create the bitmap
\n TheBmp := TBitmap.Create;
\n TheBmp.Width := ScreenWidth;
\n TheBmp.Height := ScreenHeight;
\n\/\/ Lets paint the desktop on the bitmap.
\n BitBlt(TheBmp.Canvas.Handle, 0,0,ScreenWidth,ScreenHeight,dc, 0,0,SRCCOPY);
\n\/\/ Now we put the bitmap into a TImage
\n Image1.Picture.Bitmap := TheBmp;
\n Application.ProcessMessages;
\n TheBmp.Free;
\n ReleaseDC(DeskHWnd, dc);
\n\/\/ We need a filename to save it to.
\n FName := ExtractFilePath(Application.Exename) + ‘capture.bmp’;
\n\/\/ Lets save the bitmap to a file.
\n Image1.Picture.Bitmap.SaveToFile(FName);
\nend;
\n[\/code]<\/p>\n
[tags]Delphi, Graphic[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"
How to capture the desktop screen [code lang=”delphi”]procedure TForm1.GetDesktopBitmap; Var DeskHWnd : Hwnd; dc: HDC; ScreenWidth, ScreenHeight: Integer; TheBmp : TBitmap; FName :…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,101],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-29","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/133"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=133"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/133\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=133"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=133"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=133"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}