S seared2008 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-25 #1 在程序当中怎样检查本机系统当中是否安装有word应用程序？
J jlutt-sadan Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-25 #4 function CheckWordInstall: Boolean; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CLASSES_ROOT; Result := Reg.KeyExists('Word.Application'); finally Reg.Free; end; end;
function CheckWordInstall: Boolean; var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CLASSES_ROOT; Result := Reg.KeyExists('Word.Application'); finally Reg.Free; end; end;
S seared2008 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-25 #5 可以令开一个帖子给你加分？ 也可以发给我：seared2008@sina.com.cn
X xeen Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-25 #6 var v:variant; begin try v := CreateOleObject('word.basic'); except end; end;
B bbs-wqt Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-25 #7 太简单了！ok var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CLASSES_ROOT; Result := Reg.KeyExists('Word.Application'); finally Reg.Free; end;
太简单了！ok var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CLASSES_ROOT; Result := Reg.KeyExists('Word.Application'); finally Reg.Free; end;
