L
LiGen
Unregistered / Unconfirmed
GUEST, unregistred user!
我想查找 Excel 有没有编辑名为:test.xls 的文档,用如下方法:
1、
用:hand:=GetWindow(handle,GW_HWNDFIRST);找到 Excel;
用
IF FindWindowEx(Hand,0,nil,'test.xls')<>0 Then
Result:=True;
找文档,不行!
2、用:hand:=GetWindow(handle,GW_HWNDFIRST);找到 Excel;
TemHand:=getWindow(Hand,GW_CHILD);
While temHand<>0 do begin
IF GetWindowText(TemHand,@Name,32)>0 Then
IF LowerCase(StrPas(@Name))= 'test.xls' Then
Result:=True;
temHand:=GetWindow(temHand,GW_HWNDNEXT);
end;
还是不行?
分不够可以加,答案急需。
1、
用:hand:=GetWindow(handle,GW_HWNDFIRST);找到 Excel;
用
IF FindWindowEx(Hand,0,nil,'test.xls')<>0 Then
Result:=True;
找文档,不行!
2、用:hand:=GetWindow(handle,GW_HWNDFIRST);找到 Excel;
TemHand:=getWindow(Hand,GW_CHILD);
While temHand<>0 do begin
IF GetWindowText(TemHand,@Name,32)>0 Then
IF LowerCase(StrPas(@Name))= 'test.xls' Then
Result:=True;
temHand:=GetWindow(temHand,GW_HWNDNEXT);
end;
还是不行?
分不够可以加,答案急需。