Программа над пуском

[Манжосов Денис :)]

, привет всем. У меня вопрос. Как сделать порграмму, которая всё время находилась бы над панелью пуск. Я расположил свою программу в правом нижнем углу.
Width := 100;
Height := width;
Top := Screen.Height -150;
Left := Screen.Width -100;

Но веть все знают, что панель с кнопкой пуск, можно изменять в размерах и положениях, тогда поргрмма просо останется на месте. Подскажите, пожалуйста.

[_Dmitry]

Нужно брать размеры не всего экрана, а его рабочей области:
Screen.WorkAreaHeight;
Screen.WorkAreaWidth;
Screen.WorkAreaLeft;
Screen.WorkAreaTop;
И не забывайте о возможности "примагничивания" окна к краям рабочей области экрана:
SnapBuffer;
ScreenSnap;

Ну, а это высота панели задач:

var
  h: integer;
  R: TRect;
begin
 GetWindowRect(FindWindow('Shell_TrayWnd',nil),R);
 h:=R.Bottom-R.Top;

[Gorychev]

Узнаем дескриптор панели по имени класса, потом с помощью GetWindowRect заносим координаты в структуру Rect

procedure TForm1.DetectTaskBar;
var hnd: HWND;
    Rect: TRect;

begin
   // "ловим" панель
  hnd := FindWindow('Shell_TrayWnd', nil);
   // заносим координаты рамки окна (панели) в структуру
  GetWindowRect(hnd, rect);
   // дальше считывай из структуры Rect нужные тебе координаты
   // например так
  caption:= inttostr(Rect.Right);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    DetectTaskBar;
end;

[B_N]

Остаётся придумать, что делать, если таскбар будет сверху/слева/справа....

[Манжосов Денис :)]

Спасибо за помощь!

[Манжосов Денис :)]

У меня кое- что не получается. Не мону никак понять.
procedure TMainForm.FormCreate(Sender: TObject);
var
R : Trect;
Size : integer;
begin
GetWindowRect(FindWindow('Shell_Tra yWnd',nil), R);
Size := R.Bottom - R.Top;

sec := 0;

AutoSize := true;
Left := Screen.WorkAreaWidth - 115;
Top := Screen.WorkAreaHeight - Size;
ScreenSnap := true;

Ошибку понимаю, но не могу догадаться как же её исправить

[Карась]

А какая ошибка?
ЧТо такое Size, Top, Left?
Если это относиться к обьекту, то надо это указать.

[_Dmitry]

procedure TMainForm.FormCreate(Sender: TObject);
begin
  AutoSize:=true;
  Left:=Screen.WorkAreaWidth-Width;
  Top:=Screen.WorkAreaHeight-Height;
  ScreenSnap:=true;
end;