БОЛЬШОЙ FAQ ПО DELPHI



Проверить, установлен ли Word


 uses
   Registry;
 
 function IsWordInstalled: Boolean;
 var
   Reg: TRegistry;
   s: string;
 begin
   Reg := TRegistry.Create;
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     Result := Reg.KeyExists('Word.Application');
   finally
     Free;
   end;
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if IsWordInstalled then
     ShowMessage('MS Word is installed.');
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ