[saurn]

если отказаться от удаления программы нажав "нет", то появляется ошибка »

читать дальше »

Код:

procedure InitializeUninstallProgressForm;
begin
  with UninstallProgressForm do
    begin
      iInitialize = True;
///////////////////////////////////Логотип и изображения мастера
      if GetFromRes('_IS_BOTVA', 'botva2.dll') and GetFromRes('_IS_B2P', 'b2p.dll') and GetFromRes('_IS_LOGO', 'logo.png') and GetFromRes('_IS_LIPIC', 'LIPic.png') then
      begin
///////////////////////////////////Изображения
        lPicHandle := ImgLoad(MainPanel.Handle, ExpandConstant('{tmp}\LiPic.png'), WizardSmallBitmapImage.Left, WizardSmallBitmapImage.Top, WizardSmallBitmapImage.Width, WizardSmallBitmapImage.Height, True, True);
        WizardSmallBitmapImage.Hide;
        ImgSetVisibility(lPicHandle, True);
        ImgApplyChanges(MainPanel.Handle);

///////////////////////////////////Логотип
        lPLogo:= ImgLoad(UninstallProgressForm.Handle, ExpandConstant('{tmp}\logo.png'), ScaleX(20), ScaleY(318), ScaleX(124), ScaleY(40), True, True);
        ImgApplyChanges(UninstallProgressForm.Handle);
      end;

    with TLabel.Create(nil) do
    begin
      Parent:=UninstallProgressForm;
      AutoSize:=False;
      Transparent:= true;
      SetBounds(ScaleX(20), ScaleY(318), ScaleX(124), ScaleY(40));
    end;
  end;
end;

procedure DeinitializeUninstall();
begin
  if iInitialize then gdipShutdown;
end;

потому что у меня этот код не работает т.е вместо пути из реестра показывает др путь {pf}\My Program} »

Вот это:
DefaultDirName={reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID") }_is1,InstallLocation|{pf}\My Program}
Работает по следующему принципу:
DefaultDirName={Если запись в реестре не найдена|Берем путь отсюда}
Вывод напрашивается сам собой: записи в реестре нет, или указана она здесь не верно.

-----------------------------------------------------------------------------------------

с утра до вечера ни одного ответа на мое сообщение »

Наверное потому что люди на форуме не живут, нет?