RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序 > 正文

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

作者:admin 来源: 日期:2018/1/27 17:23:53 人气: 标签:

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

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料