DELPHI怎么用EnumWindows函数

wangyt312

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

谁能给个例子最好

gaofeng

这个是回调函数，其他的就不用写了吧？

1. 
   
2. function EnumWindowsProc(hWnd:HWND;lParam:LPARAM):boolean;stdcall;
   
3. begin
   
4.   Result:=true;
   
5. end;
   

复制代码

蓝色的忧郁

1. 
   
2. function  EnumWindowsProc(hwnd:HWND;lParam:DWORD  ):boolean;  stdcall;   
   
3.   var   
   
4.                   szCaption:  array[0..256]  of  Char;   
   
5.   begin   
   
6.                   GetWindowText(hwnd,szCaption,127);   
   
7.      
   
8.                   if  length(szCaption)>0  then   
   
9.                   begin   
   
10.                                   showmessage(szCaption);    //这里是窗体名枚举 想判断某个窗体在这里写就成
    
11.                   end;   
    
12.      
    
13.                   result:=  TRUE;   
    
14.   end;   
    
15.      
    
16.      
    
17.      
    
18.   procedure  TForm1.Button1Click(Sender:  TObject);   
    
19.   begin   
    
20.           EnumWindows(@EnumWindowsProc,  0);   
    
21.   end;
    

复制代码