会使用Delphi编程的,家里有Everything这个软件的少爷!

查看 8|回复 0
作者:冥界3大法王   
procedure TForm18.Button1Click(Sender: TObject);
var
  子窗口句柄, 窗口句柄: HWND;
begin
窗口句柄 := FindWindow('EVERYTHING_(1.5a)', nil);          //知道类名是EVERYTHING_(1.5a)
  if 窗口句柄  0 then
  begin
    ShowMessage(IntToStr(窗口句柄));      //正常得到了Everything的窗口句柄
    子窗口句柄 := FindWindowEx(窗口句柄, 0, 'Edit1', nil);
    ShowMessage(IntToStr(子窗口句柄));    //怎么得不到子窗口的句柄呢?
end;
后面还需要使用SendMessage向Edit1发送文字呢

句柄, 窗口

您需要登录后才可以回帖 登录 | 立即注册

返回顶部