Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Как сделать скриншот без вывода на экран? 


copyr25   (2002-01-23 21:44) [2]

Самый известный пример:
procedure TForm1.Button1Click(Sender: TObject);
var
DC: HDC;
Canva: TCanvas;
B: TBitmap;
begin
Canva := TCanvas.Create;
B := TBitmap.Create;
DC := GetDC(0);
try
Canva.Handle := DC;
with Screen do begin
B.Width := Width;
B.Height := Height;
B.Canvas.CopyRect(Rect(0, 0, Width, Height), Canva,
Rect(0, 0, Width, Height));
B.SaveToFile("c:\screen.bmp");
end
finally
ReleaseDC(0, DC);
B.Free;
Canva.Free
end
end;




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.051 c
3-90765           Sam                   2002-02-20 19:53  2002.03.28  
Конвертирование БД


3-90735           DeNN                  2002-02-28 18:11  2002.03.28  
Таблица


3-90736           Ptr                   2002-02-27 14:54  2002.03.28  
MasterSource - в чем проблема ?????????????????


3-90754           Beka                  2002-03-01 13:51  2002.03.28  
TDBGrid


7-91088           Pat                   2001-12-26 21:38  2002.03.28  
FAR. Список процессов.