Форум: "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.019 c
6-91020           Brand                 2002-01-10 23:05  2002.03.28  
Локальные компы в Инете


3-90786           Зинец Виктор          2002-03-01 15:23  2002.03.28  
Как заставить клиента MIDAS (или DCOM?) заработать?


3-90742           Art1                  2002-02-26 16:29  2002.03.28  
Как скопировать из DBRichEdit в RichEdit и обратно?


1-90983           Tadeush               2002-03-15 10:37  2002.03.28  
Hint


3-90769           volodya_              2002-02-27 15:30  2002.03.28  
Сортировка в SQL запросах