[Oreon]

Добрый день. Прошу помочь в таком вопросе. Написал небольшую програмку, которая использует функции доступные не во всех виндах (GDI+, - если не ошибаюсь начиная с ХP). Так вот, если этих компонент в винде нет - на старте возникает нечто типа "Application Еггог: Класс не зарегистрирован". Ситуация осложнена тем, что на доступных мне системах такая ошибка не возникает, так что я ее даже получить толком не могу.
И так вопрос: как перехватить ошибку, определить какой именно библиотеки (класса) не хватает (может я ее с екзешником поставлять буду) и вывести удобоваримое сообщение типа "Сорри у вас не установлено то-то, обновите это".
Мануалы по try... except читал, более того использовал. Но не знаю как решить задачу в данном конкретном случае. Заранее спасибо за любую помощь

[NumLock]

это:

возникает при статической загрузке библиотеки:

Код:

function gg(): Boolean; stdcall; external 'Обработка.исключений';

а это:

при не зарегистрированом классе:

Код:

const
  g: TGUID = '{4545A291-1A5A-41C4-B92B-CBBE4CA24643}';
begin
  CreateComObject(g);
end;

первое лечится динамической загрузкой библиотеки с проверкой результата, второе регистрированием объекта.

на VirtualBox можно установить систему, на которой нет возможности проверить.

[Oreon]

Спасибо за ответ. Значит это не библиотека... Идея VirtualBox интересна, но я как бы не могу предусмотреть все варианты где может быть запущен мой код , поэтому интересует нельзя ли перехватить "Класс не зарегистрирован" и выдать более развернутое сообщение, какой класс (может я бы понял что с этим делать дальше ).

[NumLock]

вариантов много, как бит в байте:

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Oops(Sender: TObject; E: Exception); 
...
procedure TForm1.FormCreate(Sender: TObject);
const
  g: TGUID = '{EF5E2FDC-0E79-47BE-8B66-0D8982C7CE38}';
begin
  // вариант 1
  try
    CreateComObject(g);
  except
    on E: Exception do ShowMessage('У Вас Windows !правильная :)'#13#10+E.Message);
  end;
  // вариант 2
  Application.OnException:=Oops;
  CreateComObject(g);
end;

procedure TForm1.Oops(Sender: TObject; E: Exception);
begin
  ShowMessage('У Вас Windows !правильная :)'#13#10+E.Message);
end;

[Oreon]

NumLock
Прошу меня простить, но я либо не понял, либо понял только направление
1. Если пример показывает как получить расшифровку "E.Message", то это я знаю. Я не знаю где в каком месте правильно перехватить ошибку (Application.CreateForm или Application.Initialize в try... except ставить?) и не знаю как соотнести

---------------------------
У Вас Windows !правильная
Класс не зарегистрирован, ClassID: {EF5E2FDC-0E79-47BE-8B66-0D8982C7CE38}
---------------------------
OK
---------------------------

с собственно какой клас и где искать (каких компонентов не хватает)
2. Если же пример следует разуметь буквально, то тогда совершенно не понимаю зачем мне создавать Com-объект, который кстати и создает ошибку выше...?

[NumLock]

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

Я не знаю где в каком месте правильно перехватить ошибку

в том, где она может произойти. пример как раз это и показывает: создание незарегистрированого объекта вызывает исключение, которое и обрабатывается, выводя "нормальное" сообщение.

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

где искать (каких компонентов не хватает)

у себя в программе.

[robt]

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

но я как бы не могу предусмотреть все варианты где может быть запущен мой код

а какая польза от твоего кода чтоб его запускать вообще ?

[angvelem]

NumLock, "неправильная" пишется слитно.

[Oreon]

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

а какая польза от твоего кода чтоб его запускать вообще ?

С удовольствием бы подискутировал на тему уникальности и глобальной полезности моего кода , но по-моему, это несколько выходит за рамки темы форума. А если я ее, эту тему, создавал, то наверно некоторые предпосылки к этому имеются.