欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

看人家用使用InstallShield制作ASP安装程序(6)

程序员文章站 2022-06-22 11:26:43
////////////////////////////////////////////////////////////////////////////////// function: onfirs...
//////////////////////////////////////////////////////////////////////////////
//
// function: onfirstuiafter
//
// event: firstuiafter event is sent after file transfer, when installation
// is run for the first time on given machine. in this event handler
// installation usually displays ui that will inform end user that
// installation has been completed successfully.
//
///////////////////////////////////////////////////////////////////////////////

function onfirstuiafter()
string sztitle, szmsg1, szmsg2, szoption1, szoption2,szcmdline;
number bopt1, bopt2;
begin
szcmdline = targetdir ^"mkwebdir.vbs "+"-c localhost -w 1 -v webapp," + targetdir ;
if (launchappandwait("wscript.exe", szcmdline,wait) < 0) then
messagebox ("不能建立web 虚拟目录.",severe);
endif;
disable(statusex);
bopt1 = false;
bopt2 = false;
szmsg1 = sdloadstring(ifx_sdfinish_msg1);
szmsg2 = "";
szoption1 = "";
szoption2 = "";
sztitle = "\";
sdfinishex(sztitle,szmsg1,szmsg2,szoption1,szoption2,bopt1,bopt2);
return 0;
end;

//////////////////////////////////////////////////////////////////////////////
//
// function: onmaintuibefz喎?https://www.2cto.com/kf/ware/vc/" target="_blank" class="keylink">vcmu8qli+ly88qli+ly8grvzftlq6ie1haw50vulczwzvcmugzxzlbnqgaxmgc2vudcb3agvuigvuzcb1c2vyihj1bnmgaw5zdgfsbgf0aw9uihroyxq8qli+ly8gagfzigfscmvhzhkgymvlbibpbnn0ywxszwqgb24gdghlig1hy2hpbmuuifvzdwfsbhkgdghpcyboyxbwzw5zidxcuj4vlyb0ahjvdwdoiefkzc9szw1vdmuguhjvz3jhbxmgyxbwbgv0libjbib0agugagfuzgxlcibpbnn0ywxsyxrpb24gpejspi8vihvzdwfsbhkgzglzcgxhexmgvukgywxsb3dpbmcgzw5kihvzzxigdg8gbw9kawz5igv4axn0aw5nigluc3rhbgxhdglvbjxcuj4vlybvcib1bmluc3rhbgwgyxbwbgljyxrpb24uiefmdgvyihroaxmgznvuy3rpb24gcmv0dxjucywgpejspi8vienvbxbvbmvudfryyw5zzmvyrgf0ysbpcybjywxszwqgdg8gcgvyzm9ybsbmawxlihryyw5zzmvyljxcuj4vlzxcuj4vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vly8vpejspmz1bmn0aw9uie9utwfpbnrvsujlzm9yzsgppejspk5vtujfuibuumvzdwx0lg5mzxzlbcxuvhlwzts8qli+u1rssu5hihn6vgl0bgusc3pnc2csc3zeaxisc3pdb21wb25lbnrzlhn2umvzdwx0lhn6q2fwdglvbjs8qli+ymvnaw48l1a+dqoncjxqpjxcuj4vl1rviervoibpzib5b3ugd2fudcb0byblbmfibgugymfja2dyb3vuzcwgd2luzg93ihrpdgxllcbhbmqgy2fwdglvbibiyxigdgl0bgugpejspi8vifnldfrpdgxlkcbavelutevftufjtiwgmjqsifdisvrfick7idxcuj4vlybtzxruaxrszsggqfrjvexfx0nbufrjt05cqvisidasiejbq0thuk9vtkrdqvbusu9oick7idxcuj4vlybtzxrdb2xvcihcqunlr1jpvu5elfjhqiaomcwgmti4lcaxmjgpktsgpejspi8vievuywjszsggrlvmtfdjtkrpv01preugktsgpejspi8vievuywjszsggqkfds0dst1vorcapoya8l1a+dqoncjxqpm5uexblid0gtu9esuzzozwvud4ncg0kpfa+rgxnx1n0yxj0ojxcuj5eaxnhymxlkejbq0tcvvrut04pozxcuj5uumvzdwx0id0gu2rxzwxjb21ltwfpbnqoc3puaxrszswgc3pnc2csig5uexblkts8qli+rw5hymxlkejbq0tcvvrut04pozwvud4ncg0kpfa+rgxnx1nkq29tcg9uzw50vhjlzto8qli+awygkg5szxn1bhqgpsbnt0rjrlkpihrozw48qli+c3puaxrszsa9ia=="";
szmsg = "";
svdir = targetdir;
szcomponents = "";
nlevel = 2;
nresult = sdcomponenttree(sztitle, szmsg, svdir, szcomponents, nlevel);
if (nresult = back) goto dlg_start;
// setup default status
setstatuswindow(0, "");
enable(statusex);
statusupdate(on, 100);

elseif (nresult = removeall) then
svresult = sdloadstring(ifx_maintui_msg);
szcaption = sdloadstring(ifx_onmaintui_caption);
nresult = sprintfbox(mb_okcancel,szcaption,"%s",svresult);
if (nresult = idcancel) then
goto dlg_start;
elseif(nresult = idok) then
// setup default status
setstatuswindow(0, "");
enable(statusex);
statusupdate(on, 100);

//-->remove all components
componentremoveall();
endif;
elseif (nresult = repair) then
// setup default status
setstatuswindow(0, "");
enable(statusex);
statusupdate(on, 100);

//-->reinstall logged components
componentreinstall();
endif;

end;

///////////////////////////////////////////////////////////////////////////////
//
// function: onmaintuiafter
//
// event: maintuiafter event is sent after file transfer, when end user runs
// installation that has already been installed on the machine. usually
// this happens through add/remove programs applet.
// in the handler installation usually displays ui that will inform
// end user that maintenance/uninstallation has been completed successfully.
//
///////////////////////////////////////////////////////////////////////////////
function onmaintuiafter()
string sztitle, szmsg1, szmsg2, szoption1, szoption2;
number bopt1, bopt2;
begin
disable(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);
return 0;
end;

///////////////////////////////////////////////////////////////////////////////
//
// function: onmoving
//
// event: moving event is sent when file transfer is started as a result of
// componenttransferdata call, before any file transfer operations
// are performed.
//
///////////////////////////////////////////////////////////////////////////////
function onmoving()
string szapppath;
begin
// set logo compliance application path
// to do : if your application .exe is in a subfolder of targetdir then add subfolder
szapppath = targetdir;
regdbsetitem(regdb_apppath, szapppath);
regdbsetitem(regdb_apppath_default, szapppath ^ @product_key);

end;

// --- include script file section ---