易语言软件使用inno setup很好用代码

南栀哥哥

图标更换：

[C++] 纯文本查看 复制代码

//更换安装后图片，bmp是图片格式
WizardImageFile=C:\Users\Administrator\Desktop\安装包制作文件\d.bmp
//更换右上角小图片
 WizardSmallImageFile=C:\Users\Administrator\Desktop\安装包制作文件\x.bmp
//这个是控制面板图标更换
UninstallDisplayIcon={app}\uninstall.ico

多语言更换:

[C++] 纯文本查看 复制代码

[Languages]
Name: "chinesesimp"; MessagesFile: "compiler:Default.isl"
  //多语言安装开始
Name: "english"; MessagesFile: "compiler:Languages\English.isl"
Name: "french"; MessagesFile: "compiler:Languages\French.isl"
Name: "german"; MessagesFile: "compiler:Languages\German.isl"
Name: "italian"; MessagesFile: "compiler:Languages\Italian.isl"
Name: "japanese"; MessagesFile: "compiler:Languages\Japanese.isl"
Name: "spanish"; MessagesFile: "compiler:Languages\Spanish.isl"
  //多语言安装结束

开机启动选项：

[C++] 纯文本查看 复制代码

[Tasks]
Name: "startupicon"; Description: "开机启动"; GroupDescription: "{cm:AdditionalIcons}";

自定义代码：

[C++] 纯文本查看 复制代码

[code]
//许可证默认允许开始
procedure InitializeWizard();
begin
WizardForm.LICENSEACCEPTEDRADIO.Checked := true;
       end;
//许可证默认允许结束
  //更改卸载框弹出框开始
[Messages]   
;卸载对话框说明  
ConfirmUninstall=您真的想要从电脑中卸载单号扫描器吗?%n%n按 [是] 将会删除 %1 以及它的组件;%n按 [否] 则让软件继续留在您的电脑上.  
//更改卸载框弹出框结束
[Registry]  
Root: HKLM ;SubKey:"Software\ZhugAssistant";ValueType:dword;ValueName:config;ValueData:10 ;Flags: uninsdeletekey
[code]
 //检测程序是否重复安装开始
function InitializeSetup(): boolean;  

var Istoken: boolean;  
begin       
Istoken := true;        
if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\ZhugAssistant', 'config') then  
begin  
    MsgBox('程序已安装,请卸载后再尝试安装!',mbConfirmation, MB_OK);  
    Istoken := false;  
end else  
begin  
     Istoken := true;  
end;  
Result := Istoken;  
end;
 //检测程序是否重复安装结束

 //检测程序是否运行开始

function IsAppRunning(const FileName: string): Boolean;
var
  FWMIService: Variant;
  FSWbemLocator: Variant;
  FWbemObjectSet: Variant;
begin
  Result := false;
  FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator');
  FWMIService := FSWbemLocator.ConnectServer('', 'root\CIMV2', '', '');
  FWbemObjectSet := FWMIService.ExecQuery(Format('SELECT Name FROM Win32_Process Where Name="%s"',[FileName]));
  Result := (FWbemObjectSet.Count > 0);
  FWbemObjectSet := Unassigned;
  FWMIService := Unassigned;
  FSWbemLocator := Unassigned;
end;
//准备卸载
function InitializeUninstall(): Boolean;
begin
  result := IsAppRunning('{#MyAppExeName}');
  if result then
    begin
      MsgBox('检测到{#MyAppName}正在运行，请先关闭程序后重试! ', mbError, MB_OK); 
      result:=false;
    end
  else
    begin
      result:=true;
    end
end;
//检测程序是否运行结束

南栀哥哥

提示报错话看下哪里需要修改一下就自己修改都是一些简单的代码 ，没什么难度 适合小白！

我非平凡

程序员的150个CMD命令

gardparen

学习学习！！！谢谢分享！！！

5098351

不错的作品

给自己留一片天空

感谢楼主！！！！

精易神

感谢楼主