09.11.2006, 00:15
|
|
Местный
|
|
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
|
|
Код:
procedure GetWindowsScreen( PathToSave: string );
begin
with TBitmap.Create do
begin
Width := Screen.Width;
Height := Screen.Height;
BitBlt( Canvas.Handle, 0, 0, Width, Height, GetDC( GetDesktopWindow ), 0, 0, SRCCOPY );
SaveToFile( PathToSave );
Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetWindowsScreen( 'C:\Screen.bmp' );
end;
|