var
h,k: HWND;
vClassName,vText:array [0..1024] of char;
begin
h := FindWindow(nil, 'Microsoft Word');
if h = 0 then
ShowMessage('A');
k:=GetWindow(h,GW_CHILD) ; //子控件- 最後一个产生的控件
while k<>0 do
begin
getClassName(k,vclassname,1024);
if SameText(vclassname,'Static') or SameText(vclassname,'MSOUNISTAT') then
begin
Getwindowtext(k, vText,1024);
if vText <> '' then
ShowMessage(vText);
end;
k:=GetWindow(k,GW_HWNDNEXT) ; //上一个产生的子控件
end;
//word里弹出的提示框要找类名是'MSOUNISTAT',要是其它的提示框还是找不到,就把
if SameText(vclassname,'Static') or SameText(vclassname,'MSOUNISTAT') then
这句话注释掉, showmessage(vclassname)出来,看看它到底是哪个类