рисовать точку по центру стола?

[4elovek]

Добрый вечер, киньте пожалуйста кусок кода если не сложно. Мне нужно нарисовать по центру рабочего стола маленькую точку, буквально 5x5 пикселей. Спасибо тем, кто поможет!

[zetrix]

Нифигасе точка... Точище!

var scr:TCanvas;
    x,y:integer;
begin
scr:=TCanvas.Create;
Scr.Handle := GetDC(HWND_DESKTOP);
scr.Pen.Color:=clLime;
scr.Pen.Width:=10;
x:=scr.ClipRect.Right div 2;
y:=scr.ClipRect.Bottom div 2;
scr.MoveTo(x,y);
scr.LineTo(x,y);
end;

Вешаем эту процедуру на кнопку, жмём и смотрим результат. НО при перерисовке точка пропадёт, так что лучше это всё делать в таймере. (а именно 2 последние строчки).

Размер точки регулируем изменяя scr.Pen.Width:=10

[4elovek]

Спасибо огромное, все просто супер!