写其他程序文本框不可行，简易，有源码，帮调下，谢谢，在线等，急 ( 积分: 200 )

birdhzx · 2007-09-24

{简介：就是发个送数据到google earth的经纬度输入的文本框' 查了下用的findwindow，sendmessage等操作窗体和消息的api，可以往记事本和自己写的调试程序发送，但google earth的经纬度输入的文本框不可以，我怀疑是不是该软件屏蔽了某些消息。。！！！唉，实在是黔驴技穷了，调试的话，可能要装个google earth } unit Unit1; interface  uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   Spin, StdCtrls;  type  TForm1 = class(TForm)     Button1: TButton;     Memo1: TMemo;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure Button2Click(Sender: TObject);  protected     procedure myshortcut(var message: TMessage); message WM_HOTKEY;  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  cnt : Integer = 0;  jd,wd,fx,sd:real;  id:Integer;  procedure SetWndText(hWnd: HWND; Text: String);  function SetGoogleHandle(Hwnd:THandle;lParam:LParam):boolean;Stdcall;  function GetWndText(hWnd: HWND): String;  function GetQQWnd(s1,s2:string): HWND; implementation {$R *.DFM} function GetWndText(hWnd: HWND): String; Var  Ret:LongInt;  mText

Char;  Buf:Integer; begin   Ret:=SendMessage(hWnd,WM_GETTEXTLENGTH,0,0)+1;  GetMem(mText,Ret);   try     Buf:=LongInt(mText);    SendMessage(hWnd,WM_GETTEXT,Ret,Buf);    Result:=StrPas(mText);  finally    FreeMem(mText,Ret);  end; end; function s2r(s:string):real; var i1,i2:real; begin i1:=strtofloat(copy(s,1,pos('?',s)-1)); delete(s,1,pos('?',s)); i2:=strtofloat(copy(s,1,pos('?',s)-1));     result:=i1+i2/60; end; procedure SetWndText(hWnd: HWND; Text: String); Var  Ret:LongInt;  mText

Char;  Buf:Integer; begin  GetMem(mText,Length(Text));  StrCopy(mText,PChar(Text));  try    Buf:=LongInt(mText);   SendMessage(hWnd,WM_SETTEXT,0,Buf);   //postMessage(hWnd,WM_SETTEXT,0,Buf);  finally     FreeMem(mText,Length(Text));  end; end; function SetGoogleHandle(Hwnd:THandle;lParam:LParam):boolean;Stdcall; var  buffer: array[0..255] of Char;   sWindowText: PChar; s1,Msg:string; begin  Result := True;  //得到目标窗口的控件  GetClassName(hwnd,buffer,256);    s1:=GetWndText(hwnd);  //找到目标窗口的目标控件  form1.Memo1.Lines.Add(StrPas(buffer)+'----'+s1); //if Pos('COMBO EDIT',UpperCase(s1)) > 0 then  //怕是这个名字，试验了不行 //if Pos('MFLYCOMBO',UpperCase(s1)) > 0 then  //我要改的就是这个下拉输入框 //if Pos('MFLYLABEL',UpperCase(s1)) > 0 then  // 可气的是，下拉输入框改不了，标签也改不了， //好吧。我把所有的条件去掉，是个控件就改。。。。还是不行 if Pos('EDIT',UpperCase(buffer)) > 0 then   //  但是。。。换成发送数据到     记事本就可以  begin       form1.Memo1.Lines.Add('纯粹调试show');       Cnt:=Cnt+1;       Msg:='29.2545N'+' '+'113.1141E';       SetWndText(hwnd,Msg); //  SendMessage(hWnd,WM_PASTE,0,0);//试验了粘贴也不行，怕它把消息屏蔽了   { case Cnt of   //这个计数纯粹我偷懒，直接数第几个控件用的，貌似有个api干这个，没时间去查了        1:SetWindowText(hwnd,pchar(Msg));  //直接用api也不行       2:SetWndText(hwnd,Msg);       3:SetWndText(hwnd,Msg);       4:SetWndText(hwnd,Msg);       5:SetWndText(hwnd,Msg);       6:SetWndText(hwnd,Msg);    else       begin      // Cnt:=0;       //SetWindowText(hwnd,pchar(Msg));       //SetWndText(hwnd,Msg);       end;     end;    }    if Cnt=100 then    Result:=False;  //终止循环  end; end; function GetQQWnd(s1,s2:string): HWND; var  hCurrentWindow: HWnd;  WndText:String; begin  hCurrentWindow := GetWindow(Application.Handle, GW_HWNDFIRST);  while hCurrentWindow> 0 do  begin    WndText:=GetWndText(hCurrentWindow);    if (Pos(s1,WndText)>0) or (Pos(s2,WndText)>0) then    begin    WndText:=GetWndText(hCurrentWindow);      Result:=hCurrentWindow;      Exit;     end;    hCurrentWindow := GetWindow(hCurrentWindow, GW_HWNDNEXT);  end;  Result:=0; end; procedure TForm1.FormCreate(Sender: TObject); begin id:=GlobalAddAtom('hotkey'); RegisterHotKey(handle,id,mod_control,$51);  cnt:=0; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin UnRegisterHotKey(handle,id); //别忘了在退出时取消定义 end; procedure TForm1.myshortcut(var message: TMessage); begin     Caption:='你好，Crtl + Q 被按下'+datetimetostr(now);     Button1.Click; end; procedure TForm1.Button1Click(Sender: TObject); var  Handle: Integer; begin  //------------------------------发送数据到google earth  {取句柄}  //Handle:=GetQQWnd('QWidget','Google Earth');//可能要麻烦大哥们装个Google Earth了，不试验是不知道滴  //Handle:=GetQQWnd('Form111','Form111');//可以发送数据到    自己写的测试窗口  Handle:=GetQQWnd('记事本','记事本');//  也发送数据到  记事本也可以 ，大家记事本就不用装了。。  if Handle=0 then Exit;  BringWindowToTop(Handle);  if Handle>0 then  begin    //在这里循环取到想要的句柄为止    EnumChildWindows(Handle,@SetGoogleHandle,Integer(@Handle));    //此时，Handle就是你要的句柄  end;//end of if  } end; procedure TForm1.Button2Click(Sender: TObject); var  Handle: Integer; begin  //------------------------------发送数据到google earth  {取句柄}  Handle:=GetQQWnd('QWidget','Google Earth');//可能要麻烦大哥们装个Google Earth了，     // 不试验是不知道滴 它不大，20来M吧，装了你不会舍得删的，下载地址去搜吧，偶给链接会有带病嫌疑。。  //Handle:=GetQQWnd('Form111','Form111');//可以发送数据到    自己写的测试窗口  //Handle:=GetQQWnd('记事本','记事本');//  也发送数据到  记事本也可以 ，大家记事本就不用装了。。  if Handle=0 then  begin      ShowMessage('不试验是不知道滴 google earth不大，20来M吧，装了你不会舍得删的，下载地址去搜吧，偶给链接会有带病毒嫌疑。兄弟救救偶吧，就是发个送数据到google earth的经纬度输入的文本框');      Exit;  end;  BringWindowToTop(Handle);  if Handle>0 then  begin    //在这里循环取到想要的句柄为止    EnumChildWindows(Handle,@SetGoogleHandle,Integer(@Handle));    //此时，Handle就是你要的句柄  end;//end of if  } end; end.

birdhzx · 2007-09-24

简介：就是发个送数据到google earth的经纬度输入的文本框' 查了下用的findwindow，sendmessage等操作窗体和消息的api，可以往记事本和自己写的调试程序发送，但google earth的经纬度输入的文本框不可以，我怀疑是不是该软件屏蔽了某些消息。。！！！唉，实在是黔驴技穷了，调试的话，可能要装个google earth

birdhzx · 2007-09-24

至下顶，没啥

写其他程序文本框不可行，简易，有源码，帮调下，谢谢，在线等，急 ( 积分: 200 )

birdhzx

Unregistered / Unconfirmed

birdhzx

Unregistered / Unconfirmed

birdhzx

Unregistered / Unconfirmed

Similar threads