Inno Setup安装服务的代码

最新推荐文章于 2024-05-19 09:50:35 发布
最新推荐文章于 2024-05-19 09:50:35 发布
阅读量1.4k 收藏 1
点赞数
文章标签： 操作系统
原文链接：https://yq.aliyun.com/articles/411561
版权
我们编写的程序经常需要在安装的时候将它安装成服务。使用 Inno Setup 如何实现呢？一下是我实现的相关代码。希望对大家有所帮助。

{*************加入服务部分*************}
//
// Services functions for InnoSetup 5.x
// Version 1.1
//
// The contents of this file are subject to the Mozilla Public License
// Version 1.1 (the "License"); you may not use this file except in
// compliance with the License. You may obtain a copy of the License at
//  http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS IS"
// basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
// License for the specific language governing rights and limitations
// under the License.
//
// The Original Code is services.iss.
//
// The Initial Developer of the Original Code is Luigi D. Sandon
// Copyright ?2006-2008 Luigi D. Sandon. All Rights Reserved.
//
//
// Note on passing PChars using RemObjects Pascal Script
// '' pass a nil PChar
// #0 pass an empty PChar
//
type
  _SERVICE_STATUS = record
    dwServiceType: Longword;
    dwCurrentState: Longword;
    dwControlsAccepted: Longword;
    dwWin32ExitCode: Longword;
    dwServiceSpecificExitCode: Longword;
    dwCheckPoint: Longword;
    dwWaitHint: Longword;
  end;
const
  NO_ERROR = 0;
  STANDARD_RIGHTS_REQUIRED = $F0000;
  //
  // Service Control Manager object specific access types
  //
  SC_MANAGER_CONNECT = $0001;
  SC_MANAGER_CREATE_SERVICE = $0002;
  SC_MANAGER_ENUMERATE_SERVICE = $0004;
  SC_MANAGER_LOCK = $0008;
  SC_MANAGER_QUERY_LOCK_STATUS = $0010;
  SC_MANAGER_MODIFY_BOOT_CONFIG = $0020;
  SC_MANAGER_ALL_ACCESS  =
    (STANDARD_RIGHTS_REQUIRED +
    SC_MANAGER_CONNECT +
    SC_MANAGER_CREATE_SERVICE +
    SC_MANAGER_ENUMERATE_SERVICE +
    SC_MANAGER_LOCK +
    SC_MANAGER_QUERY_LOCK_STATUS +
    SC_MANAGER_MODIFY_BOOT_CONFIG);
  //
  // No change constant
  //
  SERVICE_NO_CHANGE = $FFFFFFFF;
  //
  // Service Types (Bit Mask)
  //
  SERVICE_KERNEL_DRIVER = $00000001;
  SERVICE_FILE_SYSTEM_DRIVER = $00000002;
  SERVICE_ADAPTER = $00000004;
  SERVICE_RECOGNIZER_DRIVER = $00000008;
  SERVICE_DRIVER =
    (SERVICE_KERNEL_DRIVER +
     SERVICE_FILE_SYSTEM_DRIVER +
     SERVICE_RECOGNIZER_DRIVER);
  SERVICE_WIN32_OWN_PROCESS = $00000010;
  SERVICE_WIN32_SHARE_PROCESS = $00000020;
  SERVICE_WIN32 =
    (SERVICE_WIN32_OWN_PROCESS +
    SERVICE_WIN32_SHARE_PROCESS);
  SERVICE_INTERACTIVE_PROCESS = $00000100;
  SERVICE_TYPE_ALL =
    (SERVICE_WIN32 +
    SERVICE_ADAPTER +
    SERVICE_DRIVER +
    SERVICE_INTERACTIVE_PROCESS);
  //
  // Start Type
  //
  SERVICE_BOOT_START = $00000000;
  SERVICE_SYSTEM_START = $00000001;
  SERVICE_AUTO_START = $00000002;
  SERVICE_DEMAND_START = $00000003;
  SERVICE_DISABLED = $00000004;
  //
  // Error control type
  //
  SERVICE_ERROR_IGNORE = $00000000;
  SERVICE_ERROR_NORMAL = $00000001;
  SERVICE_ERROR_SEVERE = $00000002;
  SERVICE_ERROR_CRITICAL = $00000003;
  //
  // Service object specific access type
  //
  SERVICE_QUERY_CONFIG = $0001;
  SERVICE_CHANGE_CONFIG = $0002;
  SERVICE_QUERY_STATUS = $0004;
  SERVICE_ENUMERATE_DEPENDENTS = $0008;
  SERVICE_START= $0010;
  SERVICE_STOP= $0020;
  SERVICE_PAUSE_CONTINUE = $0040;
  SERVICE_INTERROGATE = $0080;
  SERVICE_USER_DEFINED_CONTROL = $0100;
  SERVICE_ALL_ACCESS =
    (STANDARD_RIGHTS_REQUIRED +
    SERVICE_QUERY_CONFIG +
    SERVICE_CHANGE_CONFIG +
    SERVICE_QUERY_STATUS +
    SERVICE_ENUMERATE_DEPENDENTS +
    SERVICE_START +
    SERVICE_STOP +
    SERVICE_PAUSE_CONTINUE +
    SERVICE_INTERROGATE +
    SERVICE_USER_DEFINED_CONTROL);
  //
  // Controls
  //
  SERVICE_CONTROL_STOP = $00000001;
  SERVICE_CONTROL_PAUSE = $00000002;
  SERVICE_CONTROL_CONTINUE = $00000003;
  SERVICE_CONTROL_INTERROGATE = $00000004;
  //
  // Status
  //
  SERVICE_CONTINUE_PENDING = $00000005;
  SERVICE_PAUSE_PENDING = $00000006;
  SERVICE_PAUSED = $00000007;
  SERVICE_RUNNING = $00000004;
  SERVICE_START_PENDING = $00000002;
  SERVICE_STOP_PENDING = $00000003;
  SERVICE_STOPPED = $00000001;

  //
  //  Error codes
  //
  ERROR_DEPENDENT_SERVICES_RUNNING = 1051;
  ERROR_INVALID_SERVICE_CONTROL = 1052;
  ERROR_SERVICE_REQUEST_TIMEOUT = 1053;
  ERROR_SERVICE_NO_THREAD = 1054;
  ERROR_SERVICE_DATABASE_LOCKED = 1055;
  ERROR_SERVICE_ALREADY_RUNNING = 1056;
  ERROR_INVALID_SERVICE_ACCOUNT = 1057;
  ERROR_SERVICE_DISABLED = 1058;
  ERROR_CIRCULAR_DEPENDENCY = 1059;
  ERROR_SERVICE_DOES_NOT_EXIST = 1060;
  ERROR_SERVICE_CANNOT_ACCEPT_CTRL = 1061;
  ERROR_SERVICE_NOT_ACTIVE = 1062;
  ERROR_FAILED_SERVICE_CONTROLLER_CONNECT = 1063;
  ERROR_EXCEPTION_IN_SERVICE = 1064;
  ERROR_DATABASE_DOES_NOT_EXIST = 1065;
  ERROR_SERVICE_SPECIFIC_ERROR = 1066;
  ERROR_PROCESS_ABORTED = 1067;
  ERROR_SERVICE_DEPENDENCY_FAIL = 1068;
  ERROR_SERVICE_LOGON_FAILED = 1069;
  ERROR_SERVICE_START_HANG = 1070;
  ERROR_INVALID_SERVICE_LOCK = 1071;
  ERROR_SERVICE_MARKED_FOR_DELETE = 1072;
  ERROR_SERVICE_EXISTS = 1073;

function OpenSCManager(
  lpMachineName: string; 
  lpDatabaseName: string; 
  dwDesiredAccess: Longword): Longword;
  external  'OpenSCManagerA@advapi32.dll  stdcall';
//
// lpServiceName is the service name, not the service display name
//
function OpenService(
  hSCManager: Longword; 
  lpServiceName: string; 
  dwDesiredAccess: Longword): Longword;
  external  'OpenServiceA@advapi32.dll  stdcall';
function StartService(
  hService: Longword;
  dwNumServiceArgs: Longword; 
  lpServiceArgVectors: PChar): Longword;
  external  'StartServiceA@advapi32.dll  stdcall';
function CloseServiceHandle(hSCObject: Longword): Longword;
  external  'CloseServiceHandle@advapi32.dll  stdcall';
function ControlService(
  hService: Longword;
  dwControl: Longword; 
  var lpServiceStatus: _SERVICE_STATUS): Longword;
  external  'ControlService@advapi32.dll  stdcall';
function CreateService(hSCManager: Longword;
  lpServiceName: string;
  lpDisplayName: string;
  dwDesiredAccess: Longword;
  dwServiceType: Longword;
  dwStartType: Longword;
  dwErrorControl: Longword;
  lpBinaryPathName: string;
  lpLoadOrderGroup: string;
  lpdwTagId: Longword;
  lpDependencies: string;
  lpServiceStartName: string;
  lpPassword: string): Longword;
  external  'CreateServiceA@advapi32.dll  stdcall';
function DeleteService(hService: Longword): Longword;
  external  'DeleteService@advapi32.dll  stdcall';
function ChangeServiceConfig(
  hService: Longword;
  dwServiceType: Longword;
  dwStartType: Longword;
  dwErrorControl: Longword;
  lpBinaryPathName: PChar;
  lpLoadOrderGroup: PChar;
  lpdwTagId: Longword;
  lpDependencies: PChar;
  lpServiceStartName: PChar;
  lpPassword: PChar;
  lpDisplayName: PChar): Longword;
  external  'ChangeServiceConfigA@advapi32.dll  stdcall';
function LockServiceDatabase(hSCManager: Longword): Longword;
  external  'LockServiceDatabase@advapi32.dll  stdcall';
function UnlockServiceDatabase(ScLock: Longword): Longword;
  external  'UnlockServiceDatabase@advapi32.dll  stdcall';

function SimpleCreateService(
  AServiceName,
  ADisplayName, 
  AFileName: string;
  AStartType: Longword;
  AUser, APassword: string; 
  Interactive: Boolean; 
  IgnoreExisting: Boolean): Boolean;
var
  SCMHandle: Longword;
  ServiceHandle: Longword;
  ServiceType: Longword;
  Error: Integer;
begin
  Result := False;
  ServiceType := SERVICE_WIN32_OWN_PROCESS;
  try
    SCMHandle := OpenSCManager('', '', SC_MANAGER_ALL_ACCESS);
    if SCMHandle = 0 then
      RaiseException( 'OpenSCManager@SimpleCreateService : ' + AServiceName + ' ' + 
        SysErrorMessage(DLLGetLastError));
    try
      if AUser = '' then
      begin
        if Interactive then
          ServiceType := ServiceType + SERVICE_INTERACTIVE_PROCESS;
        APassword := '';
      end;
      ServiceHandle := CreateService(SCMHandle, AServiceName, ADisplayName, 
        SERVICE_ALL_ACCESS, ServiceType, AStartType, SERVICE_ERROR_NORMAL, 
        AFileName, '', 0, '', AUser, APassword);
      if ServiceHandle = 0 then
      begin
        Error := DLLGetLastError;
        if IgnoreExisting and (Error = ERROR_SERVICE_EXISTS) then
          Exit
        else
          RaiseException( 'CreateService@SimpleCreateService : ' + AServiceName + 
            ' ' + SysErrorMessage(Error));
      end;
      Result := True;
    finally
      if ServiceHandle <> 0 then
        CloseServiceHandle(ServiceHandle);
    end;
  finally
    if SCMHandle <> 0 then
      CloseServiceHandle(SCMHandle);
  end;
end;
function WaitForService(ServiceHandle: Longword; AStatus: Longword): Boolean;
var
  PendingStatus: Longword;
  ServiceStatus: _SERVICE_STATUS;
  Error: Integer;
begin
  Result := False;
  case AStatus of
    SERVICE_RUNNING: PendingStatus := SERVICE_START_PENDING;
    SERVICE_STOPPED: PendingStatus := SERVICE_STOP_PENDING;
  end;
  repeat
    if ControlService(ServiceHandle, SERVICE_CONTROL_INTERROGATE, ServiceStatus) = 0 then
    begin
      Error := DLLGetLastError;
      RaiseException( 'ControlService@WaitForService : ' + SysErrorMessage(Error));
    end;
    if ServiceStatus.dwWin32ExitCode <> 0 then
      Break;
    Result := ServiceStatus.dwCurrentState = AStatus;
    if not Result and (ServiceStatus.dwCurrentState = PendingStatus) then
      Sleep(ServiceStatus.dwWaitHint)
    else
      Break;
  until Result;
end;
procedure SimpleStopService(AService: string; Wait, IgnoreStopped: Boolean);
var
  ServiceStatus: _SERVICE_STATUS;
  SCMHandle: Longword;
  ServiceHandle: Longword;
  Error: Integer;
begin
  try
    SCMHandle := OpenSCManager('', '', SC_MANAGER_ALL_ACCESS);
    if SCMHandle = 0 then
      RaiseException( 'OpenSCManager@SimpleStopService : ' + AService + ' ' + 
        SysErrorMessage(DLLGetLastError));
    try
      ServiceHandle := OpenService(SCMHandle, AService, SERVICE_ALL_ACCESS);
      if ServiceHandle = 0 then
        RaiseException( 'OpenService@SimpleStopService : ' + AService + ' ' + 
          SysErrorMessage(DLLGetLastError));
      try
        if ControlService(ServiceHandle, SERVICE_CONTROL_STOP, ServiceStatus) = 0 then
        begin
          Error := DLLGetLastError;
          if IgnoreStopped and (Error = ERROR_SERVICE_NOT_ACTIVE) then
            Exit
          else
            RaiseException( 'ControlService@SimpleStopService : ' + AService + ' ' + 
              SysErrorMessage(Error));
          if Wait then
            WaitForService(ServiceHandle, SERVICE_STOPPED);
        end;
      finally
        if ServiceHandle <> 0 then
          CloseServiceHandle(ServiceHandle);
      end;
    finally
      if SCMHandle <> 0 then
        CloseServiceHandle(SCMHandle);
    end;
  except
    ShowExceptionMessage;
  end;
end;
procedure SimpleStartService(AService: string; Wait, IgnoreStarted: Boolean);
var
  SCMHandle: Longword;
  ServiceHandle: Longword;
  Error: Integer;
begin
  try
    SCMHandle := OpenSCManager('', '', SC_MANAGER_ALL_ACCESS);
    if SCMHandle = 0 then
      RaiseException( 'OpenSCManager@SimpleStartService : ' + AService + ' ' +
        SysErrorMessage(DLLGetLastError));
    try
      ServiceHandle := OpenService(SCMHandle, AService, SERVICE_ALL_ACCESS);
      if ServiceHandle = 0 then
        RaiseException( 'OpenService@SimpleStartService : ' + AService + ' ' + 
          SysErrorMessage(DLLGetLastError));
      try
        if StartService(ServiceHandle, 0, '') = 0 then
        begin
          Error := DLLGetLastError;
          if IgnoreStarted and (Error = ERROR_SERVICE_ALREADY_RUNNING) then
            Exit
          else
            RaiseException( 'StartService@SimpleStartService : ' + AService + ' ' + 
              SysErrorMessage(Error));
          if Wait then
          begin
            WaitForService(ServiceHandle, SERVICE_RUNNING);
          end;
        end;
      finally
        if ServiceHandle <> 0 then
          CloseServiceHandle(ServiceHandle);
      end;
    finally
      if SCMHandle <> 0 then
        CloseServiceHandle(SCMHandle);
    end;
  except
    ShowExceptionMessage;
  end;
end;
procedure SimpleDeleteService(AService: string);
var
  SCMHandle: Longword;
  ServiceHandle: Longword;
begin
  try
    SCMHandle := OpenSCManager('', '', SC_MANAGER_ALL_ACCESS);
    if SCMHandle = 0 then
      RaiseException( 'OpenSCManager@SimpleDeleteService : ' + AService + ' ' + 
        SysErrorMessage(DLLGetLastError));
    try
      ServiceHandle := OpenService(SCMHandle, AService, SERVICE_ALL_ACCESS);
      if ServiceHandle = 0 then
        RaiseException( 'OpenService@SimpleDeleteService : ' + AService + ' ' + 
          SysErrorMessage(DLLGetLastError));
      try
        if DeleteService(ServiceHandle) = 0 then
          RaiseException( 'StartService@SimpleDeleteService : ' + AService + ' ' + 
            SysErrorMessage(DLLGetLastError));
      finally
        if ServiceHandle <> 0 then
          CloseServiceHandle(ServiceHandle);
      end;
    finally
      if SCMHandle <> 0 then
        CloseServiceHandle(SCMHandle);
    end;
  except
    ShowExceptionMessage;
  end;
end;
procedure SimpleSetServiceStartup(AService: string; AStartupType: Longword);
var
  SCMHandle: Longword;
  ServiceHandle: Longword;
begin
  try
    SCMHandle := OpenSCManager('', '', SC_MANAGER_ALL_ACCESS);
    if SCMHandle = 0 then
      RaiseException( 'SimpleSetServiceStartup@OpenSCManager : ' + AService + ' ' + 
        SysErrorMessage(DLLGetLastError));
    try
      ServiceHandle := OpenService(SCMHandle, AService, SERVICE_ALL_ACCESS);
      if ServiceHandle = 0 then
        RaiseException( 'SimpleSetServiceStartup@OpenService : ' + AService + ' ' + 
          SysErrorMessage(DLLGetLastError));
      try
        if ChangeServiceConfig(ServiceHandle, SERVICE_NO_CHANGE, AStartupType, SERVICE_NO_CHANGE,
          '', '', 0, '', '', '', '') = 0 then
          RaiseException( 'SimpleSetServiceStartup@SetServiceStartup : ' + AService + ' ' +
            SysErrorMessage(DLLGetLastError));
      finally
        if ServiceHandle <> 0 then
          CloseServiceHandle(ServiceHandle);
      end;
    finally
      if SCMHandle <> 0 then
        CloseServiceHandle(SCMHandle);
    end;
  except
    ShowExceptionMessage;
  end;
end;
function ServiceExists(AService: string): Boolean;
var
  SCMHandle: Longword;
  ServiceHandle: Longword;
  Error: Integer;
begin
  try
    SCMHandle := OpenSCManager('', '', SC_MANAGER_ALL_ACCESS);
    if SCMHandle = 0 then
      RaiseException( 'OpenSCManager@ServiceExists : ' + AService + ' ' + 
        SysErrorMessage(DLLGetLastError));
    try
      ServiceHandle := OpenService(SCMHandle, AService, SERVICE_ALL_ACCESS);
      try
        if ServiceHandle = 0 then
        begin
          Error := DLLGetLastError;
          if Error = ERROR_SERVICE_DOES_NOT_EXIST then
            Result := False
          else
            RaiseException( 'OpenService@ServiceExists : ' + AService + ' ' + 
              SysErrorMessage(Error));
        end
        else
          Result := True;
      finally
        if ServiceHandle <> 0 then
          CloseServiceHandle(ServiceHandle);
      end;
    finally
      if SCMHandle <> 0 then
        CloseServiceHandle(SCMHandle);
    end;
  except
    ShowExceptionMessage;
  end;
end;
function SimpleQueryService(AService: string): Longword;
var
  ServiceStatus: _SERVICE_STATUS;
  SCMHandle: Longword;
  ServiceHandle: Longword;
  Error: Integer;
begin
  Result := 0;
  try
    SCMHandle := OpenSCManager('', '', SC_MANAGER_ALL_ACCESS);
    if SCMHandle = 0 then
      RaiseException( 'OpenSCManager@SimpleQueryService : ' + AService + ' ' + 
        SysErrorMessage(DLLGetLastError));
    try
      ServiceHandle := OpenService(SCMHandle, AService, SERVICE_ALL_ACCESS);
      if ServiceHandle = 0 then
        RaiseException( 'OpenService@SimpleQueryService : ' + AService + ' ' + 
          SysErrorMessage(DLLGetLastError));
      try
        if ControlService(ServiceHandle, SERVICE_CONTROL_INTERROGATE, ServiceStatus) = 0 then
        begin
          Error := DLLGetLastError;
          RaiseException( 'ControlService@SimpleQueryService : ' + AService + ' ' + 
            SysErrorMessage(Error));
        end;
        Result := ServiceStatus.dwCurrentState;
      finally
        if ServiceHandle <> 0 then
          CloseServiceHandle(ServiceHandle);
      end;
    finally
      if SCMHandle <> 0 then
        CloseServiceHandle(SCMHandle);
    end;
  except
    ShowExceptionMessage;
  end;
end;

procedure DeinitializeSetup (); 
var
  sPath: String;
begin
  if ServiceExists(服务名称) = false then 
  begin
    sPath := ExpandConstant('{app}');
    if SimpleCreateService(服务名称, '', 所在路径, 启动方式, '','', true, false) = true then 
    begin
      //服务已经安装完成,启动服务
      SimpleStartService(服务名称, true, false);
    end;
  end
  else
  begin
    if MsgBox('服务已经存在，您是否确定要首先删除您以前的服务？', mbConfirmation, MB_YESNO) = IDYES then
    begin
      SimpleDeleteService(服务名称);
    end
    else
    begin
      Exit;
    end;
    sPath := ExpandConstant('{app}');
    if SimpleCreateService(服务名称, '', 所在路径, 启动方式, '','', true, false) = true then 
    begin
      //服务已经安装完成,启动服务
      SimpleStartService(服务名称, true, false);
    end;
  end;
end;

使用以上代码安装后就可以将应用程序安装成服务来运行了

http://www.88dev.com/thread-143-1-1.html
本文转自狗窝博客51CTO博客，原文链接http://blog.51cto.com/fxh7622/553755如需转载请自行联系原作者

fxh7622
weixin_34144450
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Inno Setup version 5.1.11+ Chinese messages 中文消息提示文件
潇湘博客
12-19 4242
; *** Inno Setup version 5.1.11+ Chinese messages  中文消息提示文件***;; To download user-contributed translations of this file, go to:;   http://www.jrsoftware.org/files/istrans/;; Note: When tra
使用innosetup安装服务
05-16
不知哪下的,感觉不错,上传给大家使用 function SartService(ServiceName: string) : boolean; var hSCM : HANDLE; hService: HANDLE; Status : SERVICE_STATUS; begin hSCM := OpenServiceManager(); Result := false; if hSCM 0 then begin hService := OpenService(hSCM,ServiceName,SERVICE_START); if hService 0 then begin Result := StartService(hService,0,''); CloseServiceHandle(hService) end; CloseServiceHandle(hSCM) end; end;
Inno Setup的常用脚本
千里之外
12-06 1万+
安装不同的目录： [Files] Source: "我的程序\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs Source: "我的程序\*"; DestDir: {cf}\我的程序; Flags: ignoreversion recursesubdirs createallsubdir
Inno Setup下载、安装和增加简体中文安装语言
最新发布
Viciower的博客
05-19 3314
Inno Setup下载、安装和增加简体中文安装语言
Inno Setup-安裝服務及開機啟動
pengymly的专栏
04-27 419
#在Inno Setup的iss文件中添加 [Tasks]Name: "startupicon"; Description: "开机启动"; GroupDescription: "{cm:AdditionalIcons}"; [Icons]Name: "{userstartup}{#MyAppName}"; Filename: "{app}{#MyAppExeName}"; Tasks: star...
inno setup打包service
YZW20140807的专栏
09-26 1521
打包service，老外已经把这块代码封装好。 type _SERVICE_STATUS = record dwServiceType: Longword; dwCurrentState: Longword; dwControlsAccepted: Longword; dwWin32ExitCode: Longword; dwServiceSpecif
inno setup自定义安装界面
05-09
自己替换app目录下的...注意：必须要用inno setup增强版封装，该资源包包含对.net FormWork 4 的封装。{code} 文件夹下的 Code.iss 是界面代码，version.h 是配置文件 可以在里面修改应用名称，公司 、版本号等信息。
inno setup安装时备份例子
11-15
《Inno Setup安装时文件备份实践详解》 在软件部署过程中，确保数据的安全性和完整性至关重要。Inno Setup，作为一款广泛使用的安装制作工具，提供了在安装过程中备份原有文件的功能，以便在更新或卸载时能恢复到...
innosetup禁止中文安装路径
10-07
标题中的“innosetup禁止中文安装路径”指的是在使用Inno Setup这个安装包制作工具时，如何通过脚本设置来防止用户在安装过程中选择含有中文字符的路径。Inno Setup是一款广泛使用的Windows应用程序安装程序制作工具...
自定义Inno Setup安装界面（仿QQ安装界面）
08-31
首先，Inno Setup脚本是用 Pascal 语法编写的，通过设置各种参数和代码段，可以实现界面的定制。要创建仿QQ安装界面，你需要了解以下几个关键知识点： 1. **界面模板**：Inno Setup提供了多种预定义的界面样式，如...
inno setup执行带参数服务程序并启动服务
chengfei112233的专栏
02-20 9221
打包程序中有一个服务需要启动，虽然可以用批处理注册并启动，但是总归是不美观。 要实现下面功能 run MyService.exe net start MyService 在innosetup的脚本中使用如下代码： [Run] Filename:"{app}/MyService.EXE"; Parameters:"-install"  Filename:
Inno Setup制作实例：Inno Setup安装服务的代码
编程小战
11-25 5400
 我们编写的程序经常需要在安装的时候将它安装成服务。使用Inno Setup如何实现呢？一下是我实现的相关代码。希望对大家有所帮助。 {*************加入服务部分*************} // // Services functions for InnoSetup 5.x // Version 1.1 // // The contents of this file
使用Python对GTA学习研究
Wrpzkb
10-10 1434
EPIC送了GTA5，最近考完试和朋友一起玩了下，由于刚开始，等级低，朋友带我打任务的时候，完全就打不过，我的甲没几下就爆了，刚开始没什么。 但是今天去打末日3的时候，由于只有两个人，玩过的都知道，末日3是需要一个人去玩小游戏，然后其他人保护玩小游戏那个队友，末日3的NPC是会一直刷，怎么打都打不完，有一瞬间就变成了CSGO练爆头模式，完全没得打（打不过就充钱，没得充钱就变强）。后面搜了搜，发现别人歪瓜的截图，有锁血功能，就想去了解一下。 打开GTAV，进入故事模式。GTAV官方在故事模式中，有给出作弊代.
VB 读取《武林外传》角色名的源码
資料為我做事
03-09 234
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClass...
VC文件操作
热门推荐
原来我什么都不懂！
03-02 1万+
在VC中文件操作有三种方式,使用C标准库,使用WINAPI或使用MFC库 一.C标准库 1.创建打开文件fopen FILE *fopen(const char* filename, Const char* mode)//相应有Unicode版本 _wfopen filename文件名 还有基于CRT的安全版本 errno_t fopen_s( FILE ** pFile, co
获取进程命令行之一
chenhui530的专栏
12-10 2370
Private Type CLIENT_ID    UniqueProcess As Long    UniqueThread  As LongEnd TypePrivate Const SYNCHRONIZE As Long = &H100000Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000Private Declar
使用inno setup生成桌面安装程序最新教程，常用功能及详解。
z37411的博客
03-10 1万+
本文主要讲解inno setup如何生成一个安装包以及一些问题的解决方案，如安装时增加密码，修改默认安装路径，删除文件等。需要进行中英文配置
InnoSetup安装程序制作指南
3. **Pascal脚本**：InnoSetup允许用户编写Pascal代码，用于执行更复杂的安装逻辑。这包括创建[Code]段、事件函数、常量和参数检查，以及安装前后执行的代码。 4. **支持的函数和类参考**：提供了许多内置函数和类，...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值