[fofka]

Вопрос простой. Проверяю на наличие офиса на компе, если нет офиса програма должна закрыватся. Вроде все просто, а не работает.
Подскажите, что не так делаю.

Procedure TForm1.FormCreate(Sender: TObject);
var
 Excel: variant;
begin
  try
    Excel := CreateOleObject('Excel.Application');///Проверка на наличие офиса
    StatusBar1.Panels[3].Text := 'Microsoft Office установлен на Вашем компьютере';
    Excel.Quit;
  except
   if MessageDlg('MS Excel отсутствует на компьютере!'+ #13#10 +'Работа не возможна', mtError, [mbOk], 0 ) = MrOk
    then Form1.Close;
  end;
  end;

[guranvir]

А может просто вот так сделать: запускаете нужный компонент office,если неудача сообщение юзеру. Или проверяете на существование соотв директорию в Programm Files

[lmikle]

А что не работает-то?
На вид - правильно. Только вместо Form1.Close лучше вызвать Application.Terminate;

[Ultras]

Сообщение от guranvir

Или проверяете на существование соотв директорию в Programm Files

а если офис в другой папке стоит? ))

[fofka]

Не работает что, не хочет форму закрывать.

[fofka]

Сообщение от lmikle

А что не работает-то?
На вид - правильно. Только вместо Form1.Close лучше вызвать Application.Terminate;

Благодарю за совет. Поставил вместо Form1.Close - Application.Terminate, и все работает. В смысле при отсутсвии офиса на машине выдает предупреждение и закрывает программу. Еще раз сенкс.