|
原帖由 推士机 于 2006-5-31 07:14 PM 发表
请教wang6071 兄,实现“安装时自动关闭运行中的安全盾”这个功能的安装脚本怎样写的?
这个不是用脚本实现的,是在syshield.exe程序中增加了一个参数做成的.
在脚本中我是这样写的:
[Code]
function NextButtonClick(CurPageID: Integer): Boolean;
var
ResultCode: Integer;
begin
case CurPageID of
wpReady:
begin
ExtractTemporaryFile('sysshield.exe');
Exec(ExpandConstant('{tmp}\sysshield.exe'), 'exit', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode)
BringToFrontAndRestore();
end;
end;
Result := True;
end;
--------
ExtractTemporaryFile('sysshield.exe'); //释放到监时目录
Exec(ExpandConstant('{tmp}\sysshield.exe'), 'exit', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) //执行sysshield.exe exit ,exit我的程序中加的参数,作用是如果发现运行的安全盾,就通知它关闭然后自身退出;如果没有,则退出. |
|