Создайте установщик ASP с помощью InstallShield (6)

Автор：Eve Cole Время обновления：2025-02-23 20:32:01

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

// Функция: Onfirstuiafter

// Событие: первое событие отправляется после передачи файла, при установке

// запускается впервые на данной машине. В этом обработке

// Установка обычно отображает пользовательский интерфейс, который сообщает конечному пользователю, что

// Установка была успешно завершена.

Функция Onfirstuiafter ()

String Sztitle, SZMSG1, SZMSG2, SZOPTION1, SZOPTION2, SZCMDLINE;

Номер bopt1, bopt2;

начинать

szcmdline = targetdir ^"mkwebdir.vbs" + " -c localhost -w 1 -v webapp, + targetdir;

if (unwarkappandwait ("wscript.exe", szcmdline, подождать) <0)

MessageBox («不能建立 Web 虚拟目录.», Sorree);

endif;

Отключить (Statusex);

bopt1 = false;

bopt2 = false;

szmsg1 = sdloadstring (ifx_sdfinish_msg1);

szmsg2 = "";

szoption1 = "";

szoption2 = "";

sztitle = "";

Sdfinishex (Sztitle, Szmsg1, Szmsg2, Szoption1, Szoption2, Bopt1, Bopt2);

возврат 0;

конец;

// Функция: Onmaintuibefore

// Событие: Событие Maintuibefore отправляется, когда конечный пользователь запускает установку, которая

// уже установлен на машине. Обычно это происходит

// через добавление/удаление программ апплет. В установке обработчика

// обычно отображает пользовательский интерфейс, позволяющий конечному пользователю изменять существующую установку

// или применение удаления. После возвращения этой функции,

// ComponentTransferData вызывается для выполнения передачи файла.

Функция onmaintuibefore ()

Номер NRESULT, Nlevel, NTYPE;

String Sztitle, Szmsg, Svdir, Szcomponents, Svresult, Szcaption;

начинать

// сделать: если вы хотите включить фон, заголовок окна и заголовок Bar Bar

// settitle (@title_main, 24, белый);

// settitle (@title_captionbar, 0, founalcaption);

// setColor (фон, RGB (0, 128, 128));

// enable (fullWindowMode);

// включить (фон);

ntype = modify;

Dlg_start:

Отключить (Backbutton);

nResult = sdwelcomemaint (sztitle, szmsg, ntype);

Включить (задняя кнопка);

Dlg_sdcomponenttree:

if (nresult = modify), тогда

sztitle = "";

szmsg = "";

svdir = targetdir;

szcomponents = "";

nlevel = 2;

nResult = sdcomponenttree (Sztitle, Szmsg, Svdir, SzComponents, Nlevel);

if (nresult = назад) goto dlg_start;

// Настройка статуса по умолчанию

SetStatusWindow (0, "");

Inable (statusex);

Статуспад (на, 100);

elseif (nresult = removeall) тогда

svresult = sdloadstring (ifx_maintui_msg);

szcaption = sdloadstring (ifx_onmaintui_caption);

nResult = sprintfbox (mb_okcancel, szcaption, "%s", svresult);

if (nresult = idcancel) тогда

goto dlg_start;

elseif (nresult = idok) тогда

// Настройка статуса по умолчанию

SetStatusWindow (0, "");

Inable (statusex);

Статуспад (на, 100);

//-> Удалить все компоненты

ComponentRemoveall ();

endif;

elseif (nresult = ремонт) тогда

// Настройка статуса по умолчанию

SetStatusWindow (0, "");

Inable (statusex);

Статуспад (на, 100);

//-> Переустановка зарегистрированных компонентов

ComponentReinstall ();

endif;

конец;

// Функция: Onmaintuiafter

// Событие: событие Maintuiafter отправляется после передачи файла, когда запуска конечного пользователя запускается

// Установка, которая уже была установлена на машине. Обычно

// Это происходит через апплет «Добавить/удалить программы».

// в установке обработчика обычно отображается пользовательский интерфейс, который сообщает

// конечный пользователь, что обслуживание/удаление было успешно завершено.

Функция onmaintuiafter ()

String Sztitle, SZMSG1, SZMSG2, Szoption1, Szoption2;

Номер bopt1, bopt2;

начинать

Отключить (Statusex);

bopt1 = false;

bopt2 = false;

szmsg1 = sdloadstring (ifx_sdfinish_maint_msg1);

szmsg2 = "";

szoption1 = "";

szoption2 = "";

sztitle = sdloadstring (ifx_sdfinish_maint_title);

Sdfinishex (Sztitle, Szmsg1, Szmsg2, Szoption1, Szoption2, Bopt1, Bopt2);

возврат 0;

конец;

// Функция: OnMoving

// Событие: событие перемещения отправляется при запуске переноса файла в результате

// componenttransferdata вызов, перед любыми операциями передачи файлов

// выполняются.

Функция onmoving ()

String Szapppath;

начинать

// Установить путь приложения приложения логотипа

// сделать: если ваше приложение .exe находится в подпапке TargetDir, добавьте подпалку

szapppath = targetdir;

Regdbsetitem (regdb_apppath, szapppath);

RegdBsetItem (regdb_apppath_default, szapppath ^ @product_key);

конец;

// --- Включите раздел файла скрипта ---