Форум: "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
1-90834           kaif                  2002-03-15 23:25  2002.03.28  
Выпадающий список подсказок в произв.месте?


14-91073          anod                  2002-02-16 00:27  2002.03.28  
Размеры программы в ОП


1-90896           Tadeush               2002-03-18 10:39  2002.03.28  
Hint


1-90971           Surprising            2002-03-15 01:21  2002.03.28  
Ограничение по времени работы программы


1-90965           zep                   2002-03-14 23:42  2002.03.28  
КАК В ДЕЛЬФИ СДЕЛАТЬ ГЛАВНУЮ ФОРМУ КРУГЛОЙ