Как рисовать в чужом окне или по всему экрану

procedure DrawOnScreen;
var
 ScreenDC: hDC;
begin
 ScreenDC := GetDC(0); {получить контекст экрана}
 Ellipse(ScreenDC, 0, 0, 200, 200); {нарисовать}
 ReleaseDC(0, ScreenDC); {освободить контекст}
end;

Взято из http://forum.sources.ru

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...