Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2011年05月07日] [更新 2011年05月07日] ワード操作フォームEx
   
ワード操作フォームEx   参考コード類
ワードの使用可否をチェック
動作確認等 Windows 7 U64(SP1) + Delphi XE Pro + Word 2010







ワードがインストールされているかを調査


ワード操作フォームEx は,ワードがインストールされていなと利用できません.
使用環境にワードがインストールされているかをチェックする1つの方法です. ただしこの方法は,ワード操作フォームEx が Create される前に行う必要がありますので,ワード操作フォームEx を自動生成している場合は,利用方法に少し工夫が必要です.


リスト1
ワードがインストールされているか
//=============================================================================
//  ワードの使用可否をチェック
//  usseにComObjが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  ObjWord : OleVariant;
  StrVer  : String;
begin
  try
    ObjWord := CreateOleObject('Word.Application');
    StrVer  := ObjWord.Version + ' が使用可能です';
    Application.MessageBox(PChar(StrVer), '情報', MB_OK);
  except
    Application.MessageBox('ワードがインストールされていません', '情報', MB_OK);
  end;
  objWord.Quit;
  ObjWord := Unassigned;
end;