[Dodakaedr]

Kashtan007, добавьте такое

Скрытый текст

Код:

[Code]
var
Init: Boolean;

procedure InitializeWizard();
begin
  Init := True;
end;

procedure DeinitializeSetup();
begin
if Init <> False then
      begin
      RemoveFontResource(ExpandConstant('{tmp}\{#Font}'), FR_PRIVATE, 0);
      UnloadSkin;
      WizardForm.Free;      
      end;
end;

[saurn]

Dodakaedr, Kashtan007, зачем плодить дубли InitializeSetup? Грамотней оформить действия отдельными блоками функций и последовательно проверять результат. Это, как минимум, упрощает читаемость и оптимизирует организацию структуры кода.

Скрытый текст

Код:

function MyFunc1(): Boolean;
begin
    Result := ...;
end;

function MyFunc2(): Boolean;
begin
    Result := ...;
end;

function InitializeSetup(): Boolean;
begin
    Result := MyFunc1();
    if Result then Result := MyFunc2();
end;

WizardForm.Free; »

Форма и так разрушится при выходе.

[Irenis]

[Setup] AppName=MyApp AppVerName=MyApp DefaultDirname={pf}\MyApp [INI] Filename: {userdesktop}\Перейти на сайт.url; Section: InternetShortcut; Key: URL; String: http://forum.oszone.net; [UninstallDelete] Name: {userdesktop}\Перейти на сайт.url; Type: files; »

Спасибо, попробовала, все получилось. Единственное, подскажите пожалуйста, как задать свою картинку для ярлыка?

[kotyarko@fb]

Форма и так разрушится при выходе. »

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

[Kashtan007]

saurn, есть ли альтернативные способы, чтобы форма не рушилась?

P.S. Когда нажимаешь "Нет" либо "Да", все работает идеально. Но если закрываешь сам установщик, то сразу рушится скин.

[saurn]

При некотором количестве хэндлов этой формы, при выходе программа может неправильно завершаться »

Что мешает закрыть хэндлы?

Но если закрываешь сам установщик, то сразу рушится скин. »

А это потому, что разрушаете форму раньше, чем выгружаете скин. При закрытии форма уничтожается. Ну или разрушайте ее после выполнения всех действий.

Код:

procedure DeinitializeSetup();
begin
    RemoveFontResource(ExpandConstant('{tmp}\{#Font}'), FR_PRIVATE, 0);
    UnloadSkin;

    WizardForm.Free;
end;

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

Единственное, подскажите пожалуйста, как задать свою картинку для ярлыка? »

Скрытый текст

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp


[INI]
Filename: {app}\Перейти на сайт.url; Section: InternetShortcut; Key: URL; String: http://forum.oszone.net;

[Icons]
Name: {userdesktop}\Сайт программы; Filename: {app}\Перейти на сайт.url; WorkingDir: {app}; IconFilename: {uninstallexe}; IconIndex: 0;


[UninstallDelete]
Name: {app}\Перейти на сайт.url; Type: files;

[icetanker]

парни,подскажите,как без прогрессбара сделать,так,чтобы файл ActiveX качался с сайта в определенную директорию и после этого регистрировался?про прогрессбар в шапке прочитал,не совсем понял.

[kotyarko@fb]

Что мешает закрыть хэндлы? »

Есть множество примеров, использующих хэндл визарда (или его "детей"). И не только лишь все не изменяют этот пример, при добавлении к себе в код. От этого появляются несколько хэндлов, которые нужно как-то освобождать. Решение тому - WizardForm.Free, при деинициализации.

[saurn]

И не только лишь все не изменяют этот пример, при добавлении к себе в код. »

Бесспорно. Однако WizardForm.Free - не решение. Скорее аварийный выход. Правильное решение - "разрушать" то, что создаешь.

[kotyarko@fb]

Однако WizardForm.Free - не решение. Скорее аварийный выход. Правильное решение - "разрушать" то, что создаешь »

Не стоит забывать об прогромистах, которые не в силах изменить найденный и нужный им пример.