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




Вниз

Помогите, очень прошу 


Dimitry_I   (2002-01-28 14:50) [0]

Надо срочно любую помощь, как сделать снимок экрана и сохранить это на винт. I need help. Срочно! Дуду очень примного благодарен мыло: Dimitry_I@mnogo.ru



Bazzilio   (2002-01-28 14:53) [1]

экран можно просто запринтскринить, а потом вставить рисунок в графический редактор, в результате, графический файл.



Romkin   (2002-01-28 14:58) [2]

uses Windows, Clipbrd;

Keybd_event(VK_SNAPSHOT,0,0,0);
Keybd_event(VK_SNAPSHOT,0,KEYEVENTF_KEYUP,0);
//image in clipboard now
Image1.Picture.Assign(Clipboard);
А дальше - чо хочешь...



limon   (2002-01-28 15:18) [3]

Alt+Print Screen - скриншот активного окна
Print Screen - копия экрана
Все попадает в буфер обмена, оттуда вставка в любой редактор, поддерживающий вставку bmp



MBo   (2002-01-28 15:27) [4]

а также
var h:hDC;
b:TBitmap;
begin
b:=TBitmap.Create;
b.Width:=Screen.Width;
b.Height:=Screen.Height;
h:=GetWindowDC(GetDesktopWindow);
BitBlt(b.Canvas.Handle,0,0,Screen.Width,Screen.Height,h,0,0,SRCCOPY);
b.SaveToFile("c:\shot.bmp");
ReleaseDC(GetDesktopWindow,h);
b.Free;
end;

кстати, после
Keybd_event(VK_SNAPSHOT,0,KEYEVENTF_KEYUP,0);
надо задержечку - не всегда успевает скопироваться




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




Наверх





Память: 0.72 MB
Время: 0.031 c
4-32603           Burmistroff           2002-01-10 23:54  2002.03.11  
Список thread ов в WinNT


6-32524           Delphimun             2001-12-24 11:03  2002.03.11  
Поиск файлов в локальной сети


1-32482           GovoRun               2002-02-23 13:49  2002.03.11  
InitialDir for OpenDialog


3-32424           Johnmen               2002-02-11 12:57  2002.03.11  
Проблема с триггером


14-32577          33                    2002-01-23 09:09  2002.03.11  
Русская фантастика.Что нового?