Как сохранить содержимое экрана в файл

← →
Fixxxer © (2002-06-10 14:21) [0]

Уважаемые мастера. Подскажите пожалуйста, каким образом программно можно сохранить содержимое экрана в файл.
Заранее спасибо.

← →
Song © (2002-06-10 14:23) [1]

Получить DC десктопа, связать с TCanvas, дальше CopyRect() и SaveToFile()

procedure TForm1.Timer1Timer(Sender: TObject);
var vv: hwnd;
begin
keybd_event(VK_SNAPSHOT,1,KEYEVENTF_KEYUP,0);
OpenClipBoard(Form1.handle);
SetClipBoardData(CF_DIB,Form1.handle);
vv:=GetClipBoardData(CF_BITMAP);
Image1.Picture.LoadFromClipboardFormat(CF_BITMAP,vv,0);
CloseClipBoard; EmptyClipBoard;
end;

Как сохранить содержимое экрана в файл Найти похожие ветки