Форум: "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.022 c
3-90796           Igor_                 2002-03-04 14:34  2002.03.28  
Excel ->> InterBase


4-91129           Хлор                  2002-01-10 03:31  2002.03.28  
Как игнорировать действия пользователя


1-90833           Лана Розанова         2002-03-16 13:13  2002.03.28  
Удаление


1-90928           Michael C             2002-03-11 17:13  2002.03.28  
Массивы и IP


7-91096           Flakon                2001-10-29 13:55  2002.03.28  
Com-port