Moze i malo jednostavnije:
u var-u unita dodas:
...
var
Form1: TForm1;
dc: HDC;
...
U OnCreate stavis
dc := GetWindowDC(Self.Handle);
a u OnDestroy stavis
ReleaseDC(dc);
posle sa dc-jem radis sta 'oces i kad 'oces dok je forma aktivna ... ovako imas pristup celokupnom prozoru, a ne samo klijent regiji.
Nadovezao bih se ovde sa jednim pitanjem: kako da dodam neki nestandardni char u captionbar?
kao sto je to uradjeno u npr. Windows Commander-u 5.0 beta 4...
Zanimame da li je neko (i ako jeste, kako) uspeo da doda npr. nasa slova u caption bar, ali bez preuzimanja crtanja, posto je ruzno ?
Don't try to impress me... I'm good !