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

Previous  Top  Next

    
 

 

 

Code:

procedure DrawOnScreen;

var

ScreenDC: hDC;

begin

ScreenDC := GetDC(0); {получить контекст экрана}

Ellipse(ScreenDC, 0, 0, 200, 200); {нарисовать}

ReleaseDC(0, ScreenDC); {освободить контекст}

end;

 

 

©Drkb::03821

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