如果根据句柄获取该程序的窗体边框的高度和宽度？

比如WIN7系统下一般是（25,3） 如果是没边框的程序则返回(0,0)求函数 谢谢！

解决方案 »

  1.   

    procedure GetFormBorder(hForm : HWND; var iBorder , iCaption : integer);
    var
      R , R2 : TRect;
    begin
      GetClientRect(hForm , R);
      GetWindowRect(hForm , R2);
      iBorder := (R2.Right-R2.Left-R.Right+R.Left) DIV 2;
      iCaption := R2.Bottom-R2.Top-R.Bottom+R.Top;
    end;
      

  2.   

    你可以试下GetClientRect得到的left和top值永远是0，我不知道为什么所有人都写这个函数，但其实都是错的。
      

  3.   

    GetSystemMetrics
      

  4.   

    GetSystemMetrics(SM_CXFULLSCREEN); //获取最大化窗体的显示区域宽度
    GetSystemMetrics(SM_CYFULLSCREEN); //获取最大化窗体的显示区域高度
      

  5.   

    CreateToolhelp32Snapshot
    快照用遍历的方式获得进程名
    然后EnumWindows
      

  6.   

    CPUID 0f31这是Pentium4啊，还能运行win7确实不容易，主要是内存不行，基本上主板能上4GB内存就到顶了，而且内存性能不行,差不多只有现在新电脑的1/10。
      

  7.   

    @ DelphiGuy 
    电脑型号: 惠普 HP 笔记本电脑
    操作系统: Windows 7 旗舰版 32位
      处理器: AMD Turion(炫龙) X2 双核 RM-75 笔记本处理器
      

  8.   


    啊，原来是AMD处理器，研究了一下，这个处理器性能大约就是intel高频Pentium4 HT（3GHz+）或者PentiumD双核的水平，现在用起来有点勉强了。
      

  9.   

    就是温度高了一点，AMD就是这样，其它还好。准备更换了。