| Код |
//---------------------------------------------------------------------------
//установлено ли приложение
bool bIsApplicationInstalled() {
Variant vApp;
try {
vApp = Variant::CreateObject("Access.Application");
return true;
} catch (EOleSysError &E) {
if (E.ErrorCode == - 2147221005) { //ошибка: недопустимая строка с указанием класса
MessageBox(0, "Приложение не установлено", "", MB_OK);
return false;
} else {
//не гарантировано, что результат правильный,
//т.к. может быть другая причина невозможности запустить приложение
MessageBox(0, "Неизвестная ошибка", "", MB_OK);
return false;
}
}
}
//---------------------------------------------------------------------------
//для Word, Excel, Access
void __fastcall TfrmMain::btnIsAppInstalledClick(TObject *Sender) {
if (bIsApplicationInstalled() == true) {
MessageBox(0, "Приложение установлено", "", MB_OK);
}
}
//---------------------------------------------------------------------------
|
|
