دستور زير چك مي كند ورد در كامپيوتر نصب است يا نه

uses registry;

function Word_Installed : Boolean;
var
Reg: TRegistry;
s: String;
begin
Reg := TRegistry.Create;
With Reg do
Begin
RootKey:=HKEY_CLASSES_ROOT;
result := Keyexists('Word.Application');
Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Word_Installed then
ShowMessage('MS Word is installed.');
end;


موضوع :