[Decoding]

Вот пример сохранения скриншота рабочего стола в файл:

Код:

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;

Использование:

Код:

GetWindowsScreen( 'C:\Screen.bmp' );