N
netbug
Unregistered / Unconfirmed
GUEST, unregistred user!
请看程序：
function gettitle(hwnd:THandle;param
ointer):boolean;stdcall;
var text:string;
begin
setlength(text,100);
setlength(s,10);
getwindowtext(hwnd,pchar(text),100);
form1.ListBox1.Items.Add(inttostr(hwnd)+':'+text);
result:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var ewproc:enumwindowsproc;i:integer;
begin
listbox1.Items.Clear;
ewproc:=gettitle;
i:=findwindow(nil,'问题1 - 记事本');
edit1.text:=inttostr(i);
enumchildwindows(i,@ewproc,0);
end;
可是我在ListBox1中只得到句柄号,并没有这个窗体中的内容,即"问题1 - 记事本"中的内容,
请问我该如何做才能得到这个窗体中的内容呢？谢谢。
function gettitle(hwnd:THandle;param
ointer):boolean;stdcall;var text:string;
begin
setlength(text,100);
setlength(s,10);
getwindowtext(hwnd,pchar(text),100);
form1.ListBox1.Items.Add(inttostr(hwnd)+':'+text);
result:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var ewproc:enumwindowsproc;i:integer;
begin
listbox1.Items.Clear;
ewproc:=gettitle;
i:=findwindow(nil,'问题1 - 记事本');
edit1.text:=inttostr(i);
enumchildwindows(i,@ewproc,0);
end;
可是我在ListBox1中只得到句柄号,并没有这个窗体中的内容,即"问题1 - 记事本"中的内容,
请问我该如何做才能得到这个窗体中的内容呢？谢谢。