根据窗体的标题获得句柄,并设置其控件的值

emailqjc

于 2009-09-30 17:32:00 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： buffer integer

本文链接：https://blog.youkuaiyun.com/emailqjc/article/details/4622223

Delphi 专栏收录该内容

2 篇文章

订阅专栏

var
hMain:HWND;
hChild:HWND;
buffer:array[0..255]   of   char;
ss:Pchar;
begin
hMain:=FindWindow(nil,'计算器');
hChild:=FindWindowEx(hMain,0,nil,nil);
while hChild>0   do
begin
    GetClassName(hChild,buffer,256);
    if UpperCase(StrPas(@Buffer))='EDIT' then //子窗体类名为TEdit
    begin
       ListBox1.Items.Add(StrPas(@Buffer));
       //读
       GetMem(ss,255);
       SendMessage(hChild,   WM_GETTEXT,   255,   longInt(ss));
       showmessage('获得的：'+ss);
       FreeMem(ss);
       //写
       SendMessage(hChild,WM_SETTEXT,0,Integer(pchar('23')));
       exit ;
    end;
    hChild:=FindWindowEx(hMain,hChild,nil,nil);
end;

end;