Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.04;
Скачать: CL | DM;

Вниз

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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.03.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
6-9262
Alligator
2001-12-13 15:15
2002.03.04
ClientSocket >>как перекачать файл <<ServerSocket?


1-9130
Squall
2002-02-17 03:05
2002.03.04
Объясните пожалуйста !!! (Transparency)!!!


4-9322
cad
2002-01-03 12:59
2002.03.04
Имя пользователя windows


4-9331
NetBreaker666
2001-12-25 16:16
2002.03.04
Люди, понимаю, что мне пить надо меньше, на как получить список процессов.


1-9169
Zool
2002-02-12 17:34
2002.03.04
Как узнать в каком каталоге находится моя прога?