如何获得一个其它运行着程序里的所有构件的句丙?(50分)

bigroute · 2002-04-10

如何获得一个其它运行着程序里的所有构件的句丙?

menxin · 2002-04-10

先得到他的句柄，再getchildwindow

bigroute · 2002-04-10

具体点，最好有原码。 就拿Shell_TrayWnd来说吧。

forss · 2002-04-10

如何获得一个其它运行着程序里的所有构件的句丙? ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 最好先用SPY++观察他,了解结构后,然后你在一个一个的FIND.. 不然你FIND了半天HANDLE还是=0,,我做OICQ自动注册器的时候就是用SPY++看着做的..

zxb200 · 2002-04-12

任務欄上各控件句柄： procedure TForm1.Button1Click(Sender: TObject); var handle1,handle2:thandle;     str,str1:array [0..225] of char; begin  handle1:=findwindow('Shell_TrayWnd',nil);  if handle1<>0 then   handle2:=GetWindow(handle1,GW_CHILD);    if handle2<>0 then     begin       getwindowtext(handle2,str,225);       getclassname(handle2,str1,225);       listbox1.Items.Add(inttostr(handle2)+' 標題：'+str+' 類名：'+str1);       while handle2<>0 do        begin         handle2:=GetWindow(handle2,GW_HWNDNEXT);         if handle2<>0 then          begin           getwindowtext(handle2,str,225);           getclassname(handle2,str1,225);           listbox1.Items.Add(inttostr(handle2)+' 標題：'+str+' 類名：'+str1);          end;        end;     end; end;

bigroute · 2002-04-13

zxb200  你试了吗？ 它不能把全部的都搜出不。

tan_jian · 2002-04-14

调用getWindow和递归方法，很简单，以前朕发过该贴,大概是关于怎样隐藏托盘图标 的问题

bigroute · 2002-04-16

隐藏托盘图标没找到，

yfdciom · 2002-06-18

试试我的代码： form上放一个edit,输入窗体名称，一个button，一个memo； Function EnumChildProc(hwnd:HWND;lParam:LPARAM):Boolean;  //EnumChildWindows的回调函数 var   ClassName:array[0..255]of char;   L:integer;   Buf

Char; begin   GetClassName(hwnd,ClassName,255);   Form1.Memo1.Lines.Add('类名：'+ClassName);   L:=SendMessage(hwnd,WM_GETTEXTLENGTH,0,0);   Form1.Memo1.Lines.Add('长度：'+IntToStr(L));   GetMem(Buf,255);   SendMessage(hwnd,WM_GETTEXT,255,LongInt(Buf));     Form1.Memo1.Lines.Add('内容：'+Buf);   Form1.Memo1.Lines.Add('=============');   FreeMem(Buf);   Result:=true; end; procedure TForm1.Button1Click(Sender: TObject); var   hParent:THandle; begin   hParent:=FindWindow(nil,pChar(Edit1.Text));   if hParent<>0 then     Memo1.Lines.Add('主窗体句柄：'+IntToStr(hParent));   EnumChildWindows(hParent,@EnumChildProc,0); end;

bigroute · 2002-07-28

下面是结果 主窗体句柄：1704976 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E ============= 类名： 长度：0 内容：&E =============

如何获得一个其它运行着程序里的所有构件的句丙?(50分)

bigroute

Unregistered / Unconfirmed

menxin

Unregistered / Unconfirmed

bigroute

Unregistered / Unconfirmed

forss

Unregistered / Unconfirmed

zxb200

Unregistered / Unconfirmed

bigroute

Unregistered / Unconfirmed

tan_jian

Unregistered / Unconfirmed

bigroute

Unregistered / Unconfirmed

yfdciom

Unregistered / Unconfirmed

bigroute

Unregistered / Unconfirmed

Similar threads