有什么Api,可以查出程序登录界的高度和宽度?

解决方案 »

  1.   

    什么是登陆界?
    不知道你需要GetClientRect还是GetWindowRect
      

  2.   

    有什么办法可以查出,其它窗口的 Height和Width?给个文章或例子吧.
      

  3.   

    帮你写几个函数吧,
    这样吧,你把E_mail留下我发一个给你吧
      

  4.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      i:integer;
      rc:TRect;
      hwnd:Thandle;
    begin
      hwnd:=FindWindow(PChar(0),'Form1');//form caption
      GetWindowRect(hwnd,rc);
      memo1.lines.add(format('left:%d,top:%d,right:%d,bottom:%d',[rc.left,rc.Top,rc.right,rc.Bottom]));//width=right-left ;height=bottom-top
    end;