Lazarus检测任务栏位置的代码

bugxiong

1. var
   
2.   hWndTaskbar: HWND;
   
3.   TaskbarRect: TRect;
   
4. begin
   
5.     { First we get the Taskbar window and it's screen position }
   
6.     hWndTaskbar := FindWindow('Shell_TrayWnd', nil);
   
7.     if hWndTaskbar = 0 then Exit;
   
8.     Windows.GetWindowRect(hWndTaskbar, @TaskbarRect);
   
9. 
   
10.     //Memo1.Lines.Add(TaskbarRect.Top);
    
11.     //Memo1.Lines.Add(TaskbarRect.Bottom);
    
12.     //Memo1.Lines.Add(TaskbarRect.Left);
    
13.     //Memo1.Lines.Add(TaskbarRect.Right);
    
14. end;

复制代码

拾捌芓

试试！~~~~~~~~~~