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




Вниз

HELP ME 


VDXMAN   (2002-02-17 17:03) [0]

Помогите мне пожалуйсто, ниже приведен код, который делает скриншот экрана каждую секунду, но при этом курсор мыши на экране куда-то пропадает. Как мне сделать так, чтобы курсор мыши оставался?
procedure TForm1.OnTimer1(Sender:TObject); {допустим 3 раза в секунду}
var
bmp:TBitmap;
begin
bmp := TBitmap.Create;
try
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
if BitBlt (bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, GetDC (GetDesktopWindow), 0, 0, SRCCOPY) then
begin
paintbox.canvas.draw(0,00 ,bmp);
end else
ShowMessage ("Failed get image!");
finally
bmp.Free;
end;
end;


За ранее все большое спасибо.



Hewlping   (2002-02-17 17:49) [1]

Ну хоть кто-нибудь человеку поможет??!!!



Геральт   (2002-02-17 21:11) [2]

Когда делаешь скриншот, получи указатель мыши (его положение), а потом сам нарисуй. Других вариантов я не вижу




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




Наверх





Память: 0.72 MB
Время: 0.015 c
7-9320            AlexKniga             2001-11-27 18:10  2002.03.04  
Не в тему. Про аудио системы.


3-9086            Sergant               2002-01-11 12:54  2002.03.04  
Фильтрация в базах DBF в DOS-кодировке


3-9081            bsa                   2002-02-05 15:56  2002.03.04  
Как быть с циклическими ссылками в таблицах??


14-9291           @ndron                2002-01-16 00:17  2002.03.04  
Delphi : Win API


1-9225            ded_di                2002-02-15 11:58  2002.03.04  
Объединение ячеек в TStringGrid...