怎样用Delphi检测有无安装了Wrod?

Question

读注册表阿！
看看在root目录下是否有Word.Basic这个ProgID就行了！

Answer 1

var
  WordApp: Variant;try
  WordApp := CreateOleObject('WORD.Application');
  WordApp := Unassigned;
except
  ShowMessage('没有安装WORD!');
end;

Answer 2

uses
  Registry;procedure TForm1.Button1Click(Sender: TObject);
var
  vStringList: TStringList;
  I: Integer;
begin
  vStringList := TStringList.Create;
  with TRegistry.Create do try
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Uninstall\', False) then begin
      GetKeyNames(vStringList);
      for I := 0 to vStringList.Count - 1 do
        if Pos('Microsoft SQL Server', vStringList[I]) > 0 then
          ShowMessage(vStringList[I]);
    end;
    CloseKey;
  finally
    vStringList.Free;
    Free;
  end;
end;

Answer 3

判断是否安装一个软件
你把
if Pos('Microsoft SQL Server', vStringList[I]) > 0 then
修改成
if Pos('Microsoft Word', vStringList[I]) > 0 then