看流星社区 › 其它编程技术 › DELPHI怎么用EnumWindows函数

wangyt312 发表于 2011-3-28 08:52:24

DELPHI怎么用EnumWindows函数

我也改学DELPHI了.....其他的都差不多了 就是不会用这个函数所以不能多开..郁闷
enumwindows(lpEnumFunc:Pointer;lParam:Integer):LongBool;

谁能给个例子最好

gaofeng 发表于 2011-3-28 08:52:45

这个是回调函数，其他的就不用写了吧？
function EnumWindowsProc(hWnd:HWND;lParam:LPARAM):boolean;stdcall;
begin
Result:=true;
end;

蓝色的忧郁 发表于 2011-3-28 08:53:33

functionEnumWindowsProc(hwnd:HWND;lParam:DWORD):boolean;stdcall;   
var   
                  szCaption:arrayofChar;   
begin   
                  GetWindowText(hwnd,szCaption,127);   
   
                  iflength(szCaption)>0then   
                  begin   
                                  showmessage(szCaption);    //这里是窗体名枚举 想判断某个窗体在这里写就成
                  end;   
   
                  result:=TRUE;   
end;   
   
   
   
procedureTForm1.Button1Click(Sender:TObject);   
begin   
          EnumWindows(@EnumWindowsProc,0);   
end;

查看完整版本: DELPHI怎么用EnumWindows函数