使用innosetup安装服务 不知哪下的,感觉不错,上传给大家使用 function SartService(ServiceName: string) : boolean; var hSCM : HANDLE; hService: HANDLE; Status : SERVICE_STATUS; begin hSCM := Op