[Lazarus Delphi] Gadżet na pulpit

[Tajny Współpracownik]

Kod:

hTaskBarWindow:=FindWindow('Shell_TrayWnd',nil);
GetWindowRect( hTaskBarWindow, Rect );
TaskWidth := Rect.Right - Rect.Left;
TaskHeight := Rect.Bottom - Rect.Top;
ShowMessage(IntToStr(TaskHeight));

Rect to nazwa zmiennej typu TRect;
hTaskBarWindow to oczywiście uchwyt
GetWindowRect() i FindWindow() to funkcje z modułu Windows.

A tu masz położenie paska:

[Aby zobaczyć linki, zarejestruj się tutaj]