Скриншот рабочего стола
Как сохранить внешний вид рабочего стола?
Procedure ScreenShot; var ScreenDC:HDC; Canvas:TCanvas; Image1:TImage; Begin ScreenDC := GetDC(0); Canvas:=TCanvas.Create(); Canvas.Handle:=ScreenDC; Image1 := TImage.Create(nil); Image1.Width := Screen.Width Image1.Height := Screen.Height Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height), Canvas, Rect(0,0,Screen.Width,Screen.Height)); ReleaseDC(0,ScreenDC); Canvas.Free; end;
