procedure TForm1.Button1Click(Sender: TObject);
var
wordapp,doc,table:variant;
begin
wordapp:=createoleobject('word.application');
wordapp.visible:=true;
wordapp.documents.open(getcurrentdir+'/temp.doc');
doc:=wordapp.activedocument;
if doc.HasPassword =true then
begin
showmessage('has psw');
wordapp.quit;
end
else
begin
showmessage('has no psw');
end;
end;
to 深邃眼眸,try 的 办法不行，因为
try
wordapp.documents.open(getcurrentdir+'/temp.doc');//这里还是必须要打开，同样卡在这里。
except
showmessage('a');
end;
to hupo99：我就是写个自用的程序。我有几千个word文件处理，但是加密的文件是不能处理，我也不知道密码，所以处理到这些加密的文件时就会卡在这里，要输入密码，或者点取消才能跳过，程序才能继续，问题就出来了，这个处理的时间比较长数个小时，要是一直看着程序，看见有密码的点取消，而且这些卡住的时间是在这数个小时随时都会出现，这就比较麻烦，我的意思就是想跳过这些带密码的word，一次将程序执行完毕，谁能想想办法，谢谢！
