主要看只能够了code段的内容 就转过来了 代码未验证
[Setup]
AppName=Windows优化大师
AppVerName=Windows优化大师 V7.87.8.1121 专业版
AppCopyright=Copyright (C) 2000-2008 Wopti
AppPublisher=xiaofeng'studio
DefaultDirName={{pf}\Wopti}
OutputBaseFilename=SETUP
Compression=lzma/max
LicenseFile=embedded\License.txt
WizardImageFile=embedded\WizardImage.bmp
WizardSmallImageFile=embedded\WizardSmallImage.bmp
SetupIconFile=Wopti.ico
UninstallIconFile=Wopti.ico
VersionInfoVersion=7.87.8.1121
[Files]
Source: "{tmp}\woptiinfo.dll"; DestDir: "{tmp}"; Flags: deleteafterinstall dontcopy
Source: "{app}\woptiinfo.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiUtilities,1.exe"; DestDir: "{app}"; DestName: "WoptiUtilities.exe"; Flags: ignoreversion
Source: "{app}\ActiveXImmunity.ini"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\Big5.dat"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\D3DX81ab.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\Devs.Dat"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiHWDetect.sys"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\LIGHTMAP.PNG"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\PortsList.inf"; DestDir: "{app}"; Flags: ignoreversion
Source: "{sys}\Iosubsys\Smartvsd.vxd"; DestDir: "{sys}\Iosubsys"; Check: "OSIs9x"; Flags: ignoreversion
Source: "{app}\UpdateServer.ini"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiP2P.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiUpdate.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiUpdateModule.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiDefrag.dll"; DestDir: "{app}"; Check: "(not OSIs9x) and (not OSIsVista)"; Flags: regserver ignoreversion
Source: "{app}\WoptiDefragVista.dll"; DestDir: "{app}"; Check: "OSIsVista"; Flags: regserver ignoreversion
Source: "{app}\Woptiglobe.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiHelp.chm"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiMem.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\MonV.Dat"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiUtils.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\JEDEC.dat"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\Empty.ico"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiCDRomContmenu.dll"; DestDir: "{app}"; Flags: restartreplace uninsrestartdelete ignoreversion
Source: "{app}\WoptiEncryptModule.dll"; DestDir: "{app}"; Flags: restartreplace uninsrestartdelete ignoreversion
Source: "{app}\Book.ico"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiVulnRepair.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\SPLib.dat"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiClean.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\Malicious.dat"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiClean.sys"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiCleanDll.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiClean.chm"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiAntiHook.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\Adv.dat"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiWipe.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiDecryption.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiEncrypt.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\WoptiProcess.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "{app}\SelfRegChg.ini"; DestDir: "{app}"; Flags: ignoreversion
[Registry]
Root: HKLM; Subkey: "Software\Wom"; Flags: uninsdeletekey
Root: HKCR; Subkey: "*\shell\WoptiWipe"; Flags: uninsdeletekey dontcreatekey
Root: HKCR; Subkey: "Folder\shell\WoptiWipe"; Flags: uninsdeletekey dontcreatekey
Root: HKCR; Subkey: "Folder\shell\WoptiWipe\command"; Flags: uninsdeletekey dontcreatekey
Root: HKCR; Subkey: "*\shell\WoptiEncryption"; Flags: uninsdeletekey dontcreatekey
Root: HKCR; Subkey: "wom encryption file"; Flags: uninsdeletekey dontcreatekey
Root: HKCR; Subkey: ".womec"; Flags: uninsdeletekey dontcreatekey
[Run]
Filename: "{app}\WoptiUtilities.exe"; Description: "{cm:LaunchProgram,Windows优化大师}";
[Icons]
Name: "{group}\Windows优化大师"; Filename: "{app}\WoptiUtilities.exe";
Name: "{group}\Wopti 流氓清除"; Filename: "{app}\WoptiClean.exe";
Name: "{group}\Wopti 内存整理"; Filename: "{app}\WoptiMem.exe";
Name: "{group}\Wopti 进程管理"; Filename: "{app}\WoptiProcess.exe";
Name: "{group}\Wopti 漏洞修复"; Filename: "{app}\WoptiVulnRepair.exe";
Name: "{group}\Wopti 文件粉碎"; Filename: "{app}\WoptiWipe.exe";
Name: "{group}\Wopti 文件加密"; Filename: "{app}\WoptiEncrypt.exe";
Name: "{group}\Wopti 网站"; Filename: "{app}\Wopti.url";
Name: "{group}\帮助"; Filename: "{app}\WoptiHelp.chm";
Name: "{group}\卸载"; Filename: "{uninstallexe}";
Name: "{commondesktop}\Windows优化大师"; Filename: "{app}\WoptiUtilities.exe"; Tasks: "desktopicon";
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}";
[CustomMessages]
english.NameAndVersion=%1 版本 %2
english.AdditionalIcons=附加图标：
english.CreateDesktopIcon=创建桌面图标(&D)
english.CreateQuickLaunchIcon=创建快速启动栏图标(&Q)
english.ProgramOnTheWeb=%1 网站
english.UninstallProgram=卸载 %1
english.LaunchProgram=运行 %1
english.AssocFileExtension=将 %1 与 %2 文件扩展名关联(&A)
english.AssocingFileExtension=正在将 %1 与 %2 文件扩展名关联...
[Languages]
; These files are stubs
; To achieve better results after recompilation, use the real language files
Name: "english"; MessagesFile: "embedded\english.isl";
[Messages]
BeveledLabel=Wopti
[code]
var
wom_value: integer;
function InitializeSetup(): Boolean;
begin
Result :=true;
wom_value:=FindWindowByClassName('TWomccMainForm');
while wom_value<>0 do
begin
if Msgbox('安装程序发现 Windows优化大师 正在运行!' #13#13 '请立即关闭所有实例,然后点击“确定”继续，或按“取消”退出。', mbConfirmation, MB_YESNO) = idNO then
begin
Result :=false; //安装程序退出
wom_value :=0;
end else begin
Result :=true; //安装程序继续
wom_value:=FindWindowByClassName('TWomccMainForm');
end;
end;
end;
function InitializeUninstall(): Boolean;
begin
Result :=true;
wom_value:=FindWindowByClassName('TWomccMainForm');
while wom_value<>0 do
begin
if Msgbox('卸载程序发现 Windows优化大师 正在运行!' #13#13 '请立即关闭所有实例,然后点击“确定”继续，或按“取消”退出。', mbConfirmation, MB_YESNO) = idNO then
begin
Result :=false; //卸载程序退出
wom_value :=0;
end else begin
Result :=true; //卸载程序继续
wom_value:=FindWindowByClassName('TWomccMainForm');
end;
end;
end;
Function OSIs9x: boolean; //判断是不是9X的系统
begin
if UsingWinNT then
result:=true
else
result:=false;
end;
function GetWindowsVersion: Cardinal;
begin
end;
Function OSIsVista: boolean; //判断是不是Vista
begin
if (GetWindowsVersion>=6) Then
result:=true
else
result:=false;
end;
