delphi 实现窗口与任务栏右下角对齐

本文整理自网络，侵删。

 
//aflarin
function SysTray_GetRect: TRect;
var
  H1, H2 : HWND;
begin
  Result:= Rect(0,0,0,0);
  H1 := FindWindow('Shell_TrayWnd', nil);
  if H1 <> 0 then
  begin
    H2 := FindWindowEx(H1, 0, 'TrayNotifyWnd', nil);
    if H2 <> 0 then
      GetWindowRect(H2, Result);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  SysTrayRect: TRect;
begin
  SysTrayRect:= SysTray_GetRect;
  Top:= SysTrayRect.Top - Height;
  Left:= SysTrayRect.Right - Width;
end;
 

相关阅读 >>

Delphi 手机号码库段号地区查询

Delphi xe6取得android智能手机的电话号码等的终端信息

Delphi中补齐字符串长度

Delphi 内存池

Delphi模拟点击网页中的按钮

Delphi 判断某个磁盘分区是否存在

Delphi中如何控制webbrowser滚动条

Delphi d10.x 安卓app开发中创建密钥库文件

Delphi strtodatetime 这个函数在win7下出错

用Delphi实现百度地图经纬度与地址互转

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 实现窗口与任务栏右下角对齐