使用EnumChildWindows(Form1.Handle,@EnumerateChildWindows,0);时出错(12分)

aynes · 2003-09-03

delphi 7+windows xp 原代码： unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     ListBox1: TListBox;     function EnumerateChildWindows(hWnd:HWND; lParam:LPARAM): BOOL; stdcall;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} { TForm1 } function TForm1.EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL; var    ClassName: Array[0..255] of char;  // this holds the class name of our child windows begin    {get the class name of the given child window}    GetClassName(hWnd,ClassName,255);    {display it in the list box}    Form1.ListBox1.Items.Add(ClassName);    {continue enumeration}    Result:=TRUE; end; procedure TForm1.Button1Click(Sender: TObject); begin    ListBox1.Items.Clear;    {enumerate all child windows belonging to Form1}    EnumChildWindows(Form1.Handle,@EnumerateChildWindows,0); end; end. 出错信息：[Error] Unit1.pas(49): Variable required 是什么原因，如何改正。

aynes · 2003-09-03

怎么都没人上来啊？ 我是照例子写的，为什么会这样，是不是我少写了什么东东啊？？？？？？ 急急急   郁闷中>>>>>>>

aynes · 2003-09-03

有没有可能我的操作系统的问题啊？？？？ 难道说在XP中使用这个函数会出错。

ysai · 2003-09-03

//WINDOWS的回调函数不能是类的方法 unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    ListBox1: TListBox;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} { TForm1 } function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM):boolean;stdcall; var   ClassName: Array[0..255] of char;  // this holds the class name of our child windows begin   {get the class name of the given child window}   GetClassName(hWnd,ClassName,255);   {display it in the list box}   Form1.ListBox1.Items.Add(ClassName);   {continue enumeration}   Result:=TRUE; end; procedure TForm1.Button1Click(Sender: TObject); begin   ListBox1.Items.Clear;   {enumerate all child windows belonging to Form1}   EnumChildWindows(Form1.Handle,@EnumerateChildWindows,0); end; end.

aynes · 2003-09-03

我照你的贴上去了，但还是错。 能不能把把有代码一起贴上啊？？？？ 谢了。

aynes · 2003-09-03

to ysai:     原谅我的愚笨，但请帮助我。

qfgj · 2003-09-04

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   hF:Thandle;   function EnumChildWindowsProc(H: HWnd; TF: TForm1): Boolean; stdcall;   function EnumWindowsProc(H: HWnd; TF: TForm1): Boolean; stdcall; implementation {$R *.dfm} function EnumChildWindowsProc(H: HWnd; TF: TForm1): Boolean; stdcall; var   Buffer: array[0..255] of Char;   Buffer1: array[0..255] of Char; begin   Result := True; //設定為True才會再找下一個   //開始作某事   GetWindowText(H, Buffer, 255);   GetClassName(h,buffer1,255);   TF.memo1.Lines.Add(StrPas(Buffer1)+'  '+StrPas(Buffer)+'  '+inttostr(h)); end; function EnumWindowsProc(H: HWnd; TF: TForm1): Boolean; stdcall; var   Buffer: array[0..255] of Char;   Buffer1: array[0..255] of Char; begin   Result := True; //設定為True才會再找下一個   //開始作某事   GetWindowText(H, Buffer, 255);   GetClassName(h,buffer1,255);   TF.memo1.Lines.Add(StrPas(Buffer1)+'  '+StrPas(Buffer)+'  '+inttostr(h)); end; procedure TForm1.Button1Click(Sender: TObject); begin   memo1.Clear;   if edit1.Text<>'' then begin     hF:=findwindow(nil,pchar(edit1.Text));     hf:=strtoint(edit1.Text);     if hF<>0 then       EnumChildWindows(hF, @EnumChildWindowsProc, Longint(Self));   end   else     EnumWindows(@EnumChildWindowsProc, Longint(Self)); end; end.

aynes · 2003-09-05

谢了，各位

使用EnumChildWindows(Form1.Handle,@EnumerateChildWindows,0);时出错(12分)

aynes

Unregistered / Unconfirmed

aynes

Unregistered / Unconfirmed

aynes

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

aynes

Unregistered / Unconfirmed

aynes

Unregistered / Unconfirmed

qfgj

Unregistered / Unconfirmed

aynes

Unregistered / Unconfirmed

Similar threads