Форум: "Потрепаться";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
ВнизПомогите, очень прошу Найти похожие ветки
← →
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);
надо задержечку - не всегда успевает скопироваться
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c