Ошибка при завершении Runtime Error (at 96:21): Null Pointer Exception

[audiofeel]

сделал свою форму отмены и выбора папки, при завершении установки вот эта ошибка

 

[audiofeel]

DeinitializeSetup

Спойлер: основной сценарий

procedure DeinitializeSetup;
begin
  if ISInit then
    begin
      if PBOldProc <> 0 then
        SetWindowLong(WizardForm.ProgressGauge.Handle, -4, PBOldProc);
      if FileExists(ExpandConstant('{tmp}\{#Font}')) then
        RemoveFontResource(ExpandConstant('{tmp}\{#Font}'), FR_PRIVATE, 0);
        ButtonsFont.Free;
      if FileExists(ExpandConstant('{tmp}\botva2.dll')) then
        gdipShutDown;
        FreeDirBrowseForm;
        FreeExitForm;
    end;
end;

Спойлер: подключенные модули (отмена и выбор папки установки

procedure FreeDirBrowseForm;
begin
  DirBrowseFont.Free;
  DirBrowseForm.Free;
end;

procedure FreeExitForm;
begin
  ExitFont.Free;
  ExitForm.Free;
end;

 

[Nemko]

audiofeel, есть идея, что проблема связана с AddFontResourceEx\RemoveFontResourceEx. Поясню: у меня завершается без ошибки, но недавно, делал пример с загрузкой шрифта и он не запускался на другом ПК (Win10 64bit), примерно с такой же ошибкой. Убрав строки, связанные с загрузкой шрифта, ошибка пропала. ИМХО: может проблема в этом (попробуйте) или не освобождается WizardForm\WizardForm.Font\MainForm, ну или что то еще.

 

[El Sanchez]

при завершении установки вот эта ошибка

audiofeel, судя по циферкам проблема в процедуре FreeExitForm в строке MyGlobalVariable_Font.Free. Экземпляр TFont не создан, а Free уже вызывается.

 

[audiofeel]

спасибо всем, понял где искать, вроде все норм теперь
немного не по теме...
этим всем я прекратил заниматься после выхода гта 5, понял что с этим я не справлюсь, да и устаю уже (возраст, через два года мне 50 )имеется ввиду размер грядущих игр да и интернет в поселке начал потихоньку появляться 4 джи и тд, я если можно так выразиться и если есть такое понятие - региональный "репукер" ну или локальный, я никогда ни чего ни куда не выкладывал, ввиду мобильного инета, но каждый парнишка знал в поселке куда ему идти за игрой которая появилась на трекерех . в программировании я ни чего не понимаю, просто копипаст и знать что за что отвечает и тд, делал как мог. вот хочу выложить данный скрипт как пример того что можно сделать не "шаря" ни чего в этой теме, все примеры взяты с этого сайта (всем спасибо) и даже графика частями, в скрипте ни чего не обычного, без исдон, своя форма отмены, своя форма выбора диска установка доп по, создание ярлыков и запуск программы. не кастомный прогресс бар с раскрашенным задником, свой шрифт. проверка свободного места и невозможность начать установку на диск где нет места. немног времени появилось свободного, решил вспомнить...

File on MEGA

mega.nz