深藍色論壇 • 如何取得工作列的位置??

第 1 頁 (共 1 頁)

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

發表於 : 2008年 11月 27日, 17:17

由 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;