一窗口包含了某字符，如何获得其句柄？(100分)

leo.1999 · 2004-02-21

例如 delphi 7 delphi 6 delphi 5 他们都包含了“delphi”我就是要获得标题包含“delphi”的窗口的句柄

来如风 · 2004-02-21

FindWindow，然后取这个窗体的文字，然后用POS判断你的文字是否包含在此窗口中， 循环查找

黑星星 · 2004-02-21

var    i: HWnd;    szText: array[0..254] of char; begin   listbox1.Items.Clear;   i := GetWindow(Handle, GW_HWNDFIRST);   while i <> 0 do   begin     if ( GetWindowText(i, @szText, 255)>0 ) then       if ( pos('delphi',szText)>0 ) then     begin       listbox1.items.Add(StrPas(@szText));     end;     i:=GetWindow(i, GW_HWNDNEXT);   end; end;

肥牛 · 2004-02-21

var  hwnd:Integer;  // handle to parent window  str1:array[0..255] of char; begin  hwnd:=FindWindow(nil,nil);  While hwnd>0 do  begin    GetWindowText(hwnd,str1,255);    if (pos('delphi',str1)>0 ) then      Memo1.Lines.Add(str1);    hwnd:=GetNextWindow(hwnd,GW_HWNDNEXT);  end; end;

ywk1979 · 2004-02-21

不要句柄也可以。 var   I:integer; begin   for I:=0 to screen.formcount-1 do   begin     if pos('delphi',screen.form.name)  >0 then      Listbox1.items.add(screen.form.name);   end;

oiwin · 2004-02-21

var hcrrentwindow:hwnd; sztext:array[0..254] of char; s:string; begin hcrrentwindow:=GetWindow(handle,GW_HWNDFIRST); while hcrrentwindow<>0 do begin if GetWindowtext(hcrrentwindow,@sztext,255)>0 then begin s:=strpas(@sztext); if pos('Microsoft Excel',s)<>0 then//如果发现含有Microsoft Excel的窗口将其关闭。 SendMessage(hcrrentwindow,WM_CLOSE,0,0); Memo1.Lines.Add(s); end; hcrrentwindow:=GetWindow(hcrrentwindow,GW_HWNDNEXT); end; end;

leo.1999 · 2004-02-23

一窗口包含了某字符，如何获得其句柄？(100分)

leo.1999

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

黑星星

Unregistered / Unconfirmed

肥牛

Unregistered / Unconfirmed

ywk1979

Unregistered / Unconfirmed

oiwin

Unregistered / Unconfirmed

leo.1999

Unregistered / Unconfirmed

Similar threads