这是一个得到传奇输入框的例子,但就是得不到输入的数据 .Button1Click后..有返回showmessage,但返回的是空,我是用的逐鹿中原传奇Form1: TForm1;
name:Array [0..100] Of Char;
hwnd1,hwnd2,temp:hwnd;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
hwnd1:=FindWindow('TFrmMain','legend of mir2');
hwnd2:=FindWindowEx(hwnd1,0,'TEdit',0);
if hwnd2<>0 then
begin
temp:=FindWindowEx(hwnd1,0,'TEdit',0);
sendmessage(temp,WM_GETTEXT,100,Longint(name)); showmessage(name);
end;
end;end.
name:Array [0..100] Of Char;
hwnd1,hwnd2,temp:hwnd;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
hwnd1:=FindWindow('TFrmMain','legend of mir2');
hwnd2:=FindWindowEx(hwnd1,0,'TEdit',0);
if hwnd2<>0 then
begin
temp:=FindWindowEx(hwnd1,0,'TEdit',0);
sendmessage(temp,WM_GETTEXT,100,Longint(name)); showmessage(name);
end;
end;end.
解决方案 »
- 做一个拖动效果,mousemove好像不行啊
- 用SHGetFileInfo能得到文件、文件夹的大小、修改日期吗?
- 大家好!
- 请问delphi6.0和delphi7.0是否有官方发布的中文版?
- 急***在线等***如何查找一个目录下的文件
- 哪里有DELPHI中文联机帮助??元件的属性方法的介绍??
- 求串口通信的资料。
- 从Delphi程序代码中如何拿到FastReport的总页数和其中一个对象在页面上的位置(不ShowReport的情况下)?
- winnt下,money类型字段的显示问题!!
- 关于@的介绍
- 我用indy10做邮件收发程序,为什么用IdMessage的MSGID无法获取邮件在服务器上的编号?
- Delphi 在开发下一代互联网和网络会议上是否已经落伍?
当然,学什么都是抄袭.哪个哥哥给我说下