如何取得工作列的位置??

[tim]

可以利用 api SHAppBarMessage 來取得,
記得要 uses ShellAPI 哦!!

代碼: 選擇全部

    procedure Tform1.Button3Click(Sender: TObject); 
    var 
      abd: TAppBarData; 
    begin 
      abd.cbSize := sizeof(abd); 
      SHAppBarMessage(ABM_GETTASKBARPOS, abd); 
      memo2.lines.add(inttostr(abd.rc.Left)); 
      memo2.lines.add(inttostr(abd.rc.Top)); 
      memo2.lines.add(inttostr(abd.rc.Bottom)); 
      memo2.lines.add(inttostr(abd.rc.Right)); 
    end;