Высота таск бара...

[Altera]

Привет всем!
А как мне программно узнать высоту taskBar-а?

[Alter]

Примерно так:

procedure TForm1.Button1Click(Sender: TObject);
Var H,W :LongInt; Hnd :HWND;
    Rec :TRect;
begin
 Hnd := FindWindow('Shell_TrayWnd', Nil);
 If Hnd<>0 then
 begin
  Windows.GetClientRect(Hnd, Rec);
   H:=Rec.Bottom;
   W:=Rec.Right;
  Edit1.Text := Format('Высота=%d; Ширина=%d', [H, W]);
 end;
end;

[Altera]

Спасибо Alter!
----
А что тему перенесли то? Разве не на месте была?

[Stilet]

вот еще способ:

unit Unit2;

interface

uses     shellapi,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var     t:TAppBarData;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

 t.cbSize := SizeOf(t);
 ShAppbarMessage(ABM_GETTASKBARPOS, t);
 ShowMessageFmt('Высота таскбара = %d', [t.rc.bottom - t.rc.top]);
end;

end.