[Lazarus Delphi] Gadżet na pulpit

[A11-11Q]

Dzięki Kod teraz wygląda tak:

Funkcja

Kod:

function WysokoscPaskaZadan(): Integer;
var
Rect: TRect; hTaskBarWindow : THandle;
begin
 hTaskBarWindow:=FindWindow('Shell_TrayWnd',nil);
 GetWindowRect( hTaskBarWindow, Rect);
 Result := Rect.Bottom - Rect.Top;
end;

Wywołanie

Kod:

procedure UstawienieOknaProgramu;
begin
 Form1.Top := 0;
 Form1.Left:= Screen.DesktopWidth - Form1.Width;
 Form1.Height:= Screen.DesktopHeight - WysokoscPaskaZadan;
end;