文件名称：Delphi7保存屏幕为图片
文件大小：3KB
文件格式：RAR
更新时间：2020-09-27 10:48:53
Delphi7 保存 屏幕
Delphi7保存屏幕为图片，以下是主程序： function TForm1.GetControlsImage(ACtrl: TWinControl): TBitmap; var Ofs: Integer; begin Result := TBitmap.Create; try Result.Width := ACtrl.ClientWidth; Result.Height := ACtrl.ClientHeight; Result.Canvas.Brush := ACtrl.Brush; Result.Canvas.FillRect(ACtrl.ClientRect); Result.Canvas.Lock; try if GetWindowLong(ACtrl.Handle, GWL_STYLE) and WS_BORDER <> 0 then Ofs := -1 // Don't draw form border else Ofs := 0; // There is no border ACtrl.PaintTo(Result.Canvas.Handle, Ofs, Ofs); finally Result.Canvas.Unlock; end; except Result.Free; raise; end; end;
【文件预览】：
保存屏幕
----Project1.res(876B)
----Unit1.dfm(656B)
----Project1.cfg(434B)
----Project1.dpr(188B)
----Project1.dof(2KB)
----Unit1.pas(1KB)