A
ali_yan
Unregistered / Unconfirmed
GUEST, unregistred user!
请问怎么可以向另一个EXE中的edit赋值<br>我现在有一个delphi5写的EXE在运行。。当前窗口中有两个控件edit1,edit2我现在想写<br>一个程序给edit1赋值‘123’，给edit2赋值'456'应该怎么来做？？<br><br><br>
花
花 儿
Unregistered / Unconfirmed
GUEST, unregistred user!
1。Dll<br>2。SendMessage。这个比较省事。
H
hbezwwl
Unregistered / Unconfirmed
GUEST, unregistred user!
找要被赋值的EDIT的句柄
A
amsea
Unregistered / Unconfirmed
GUEST, unregistred user!
SendMessage
T
truecat
Unregistered / Unconfirmed
GUEST, unregistred user!
我做过，晚上告诉你吧，程序放在单位了。：）
X
xyf2001721
Unregistered / Unconfirmed
GUEST, unregistred user!
sendmessage or dde
T
truecat
Unregistered / Unconfirmed
GUEST, unregistred user!
新建一工程，有一FORM1和EDIT1和BUTTON1，代码如下：<br>unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls;<br><br>type<br> TForm1 = class(TForm)<br> Edit1: TEdit;<br> Button1: TButton;<br> procedure Button1Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.DFM}<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var ds:tcopydatastruct;<br> hd:thandle;<br>begin<br> ds.cbData :=length(edit1.text)+1;<br> getmem(ds.lpdata,ds.cbdata);<br> strcopy(ds.lpdata,pchar(edit1.text));<br> hd:=findwindow(nil,'form2');<br> if hd<>0 then<br> sendmessage(hd,wm_copydata,handle,cardinal(@ds))<br> else<br> showmessage('Not find the other form!');<br> freemem(ds.lpdata);<br>end;<br><br>end.<br><br>编译保存。<br><br>再建一工程，有一FORM2和EDIT1，代码如下：<br>unit Unit2;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls;<br><br>type<br> TForm2 = class(TForm)<br> Edit1: TEdit;<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> procedure mymessage(var t:twmcopydata);message wm_copydata;<br> end;<br><br>var<br> Form2: TForm2;<br><br>implementation<br><br>{$R *.DFM}<br>procedure Tform2.mymessage(var t:twmcopydata);<br>begin<br> edit1.text:='';<br> edit1.text:=strpas(t.copydatastruct^.lpdata);<br>end;<br>end.<br>编译保存。<br><br>执行上述两个可执行文件，按下程序一的BUTTON1，<br>程序一将把其EDIT1中的数据传送至程序二中的EDIT1中显示。
I
iseek
Unregistered / Unconfirmed
GUEST, unregistred user!
找到edit的句柄后，可以用sendkey(^+v)，通过clipBoard将数据copy到Edit里
C
ChenBoy
Unregistered / Unconfirmed
GUEST, unregistred user!
我用SendMessage()发送数据到另一个用VC编的窗体上的EDIT时，虽然能改变显示数据，<br>但是当模拟对该窗体上的按钮做单击时以输出该值时，却发现输出内容为空，这是为什么？
Y
yfdciom
Unregistered / Unconfirmed
GUEST, unregistred user!
注意：在win2k下只能用sendmessage,而不能用setwindowtext；<br>var<br> buffer
char;<br> getmem(buffer,100);<br> buffer:='hello world';<br> sendmessage(edit1.handle,wm_settext,0,buffer);
char;<br> getmem(buffer,100);<br> buffer:='hello world';<br> sendmessage(edit1.handle,wm_settext,0,buffer);
幽
幽林狂人
Unregistered / Unconfirmed
GUEST, unregistred user!
假如程序1是别人写的应用程序，程序2是自己写的，<br>我怎样可以通过程序2来给程序1的edit赋值？？？<br>
S
sunrace2000
Unregistered / Unconfirmed
GUEST, unregistred user!
查找APP1的Form1的FormHandle: integer;<br>在Form1中循环查找Edit的EditHandle;<br>sendMessage(EditHandle,WM_SETTEXT,0,Integer(pchar('Your Mesaage')));<br><br>procudure DoSomeThing;<br>var<br> Handle,FormHandle: Integer;<br> tmpHandle: Integer;<br> FindFlag: Boolean;<br> editHandle, ButtonHandle: integer;<br>begin<br> Handle:=0; TmpHandle:=0;<br> edithandle:=0; buttonHandle:=0;<br> FindFlag:=False;<br> while FindFlag=False do<br> begin <br> Handle := FindWindow(nil,'Form1Caption'); <br> if Handle<>0 then<br> begin<br> FindFlag:=True;<br> tmpHandle := Handle;<br> FormHandle:=Handle;<br> repeat<br> EnumChildWindows(Handle,@GetButtonHandle,Integer(@Handle));<br> FButtonHandle := Handle;<br> until FButtonHandle<>FormHandle;<br> repeat<br> EnumChildWindows(tmpHandle,@GetEditHandle,Integer(@tmpHandle));<br> FTextHandle := tmpHandle;<br> until FTextHandle<>FormHandle;<br> SendMessage(FTextHandle,WM_SETTEXT,0,Integer(pchar('Your Message Here')));<br> SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);<br> SendMessage(FButtonHandle,WM_LBUTTONUP,0,0);<br> end;<br> end;<br>end;<br><br>function GetEditHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall;<br>var<br> buffer: array[0..255] of Char;<br> buffer1: array[0..255] of Char;<br>begin<br> Result := True; <br> GetClassName(hwnd,buffer,256); <br> if StrPas(Buffer)='Edit' then<br> begin<br> GetWindowText(hwnd,buffer1,100);<br> PInteger(lparam)^ := hwnd; <br> Result:=False;<br> end;<br>end;<br><br>function GetButtonHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall;<br>var<br> buffer: array[0..255] of Char;<br> buffer1: array[0..255] of Char;<br>begin<br> Result := True; <br> GetClassName(hwnd,buffer,256);<br> if StrPas(Buffer)='Button' then<br> begin<br> GetWindowText(hwnd,buffer1,100);<br> if buffer1 = '确定' then<br> begin<br> PInteger(lparam)^ := hwnd;<br> Result:=False; <br> end;<br> end;<br>end;<br><br>待会儿再来
S
sunrace2000
Unregistered / Unconfirmed
GUEST, unregistred user!
今天心情好，接着灌。<br>上面的代码本来是写在线程中的，改了一下，可能有错。<br>如'xx狂人'所说，App1是现成的，那就稍微麻烦一点，你可能需要下面的调试工具。<br>procedure TForm1.GetMousePosHwndAndClassName(Sender: TPoint); <br>var <br> hWnd: THandle; <br> aName: array [0..255] of char; <br>begin <br> hWnd := WindowFromPoint(Sender);<br> Label1.Caption := 'Handle : ' + IntToStr(hWnd); <br> if boolean(GetClassName(hWnd, aName, 256)) then <br> Label2.Caption := 'ClassName : ' + string(aName)<br> else<br> Label2.Caption := 'ClassName : not found';<br>end;<br><br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> Form1.FormStyle := fsStayOnTop; <br> Timer1.Interval := 50;<br>end;<br><br>procedure TForm1.Timer1Timer(Sender: TObject);<br>var <br> rPos: TPoint; <br>begin <br> if boolean(GetCursorPos(rPos)) then <br> GetMousePosHwndAndClassName(rPos); <br>end; <br><br>你先用这个工具抓一下App1的FormHandle, 记下来<br>再取Edit的EditHandle和ClassName,记下来<br>再取Button的ButtonHandle和ClassName,记下来<br>if StrPas(Buffer)='Edit' then<br>if StrPas(Buffer)='Button' then<br>以上的'Edit'和'Button'就是要改的ClassName; 如果App1是用Delphi做的,<br>那就是'TEdit'和'TButton'.<br><br>if buffer1 = '确定' then<br>'确定'要在调试时跟一下.<br><br>应该搞定了,打字好辛苦.<br>上面的代码大都是DFWS奉献出来的,感谢他们吧!<br><br>
X
xianguo
Unregistered / Unconfirmed
GUEST, unregistred user!
DDE
Z
zswang
Unregistered / Unconfirmed
GUEST, unregistred user!
FindWindow() and FindWindowEx //找到Edit的句柄vHandle<br>SendMessage(vHandle, WM_SETTEXT, 0, Integer(PChar('发送的字符')));
