非开源另类实现 ServiceDLL ，欢迎测试。

urenai · 发表于昨天 12:25

DLL 只有2个导出函数：
第一个是安装服务。
第二个是构建服务名称。

<火山程序类型 = "通常" 版本 = 1 />
方法 Init <公开静态>
{
变量 pd <类型 = 变整数>
变量 pa1 <类型 = 变整数>
变量 pa2 <类型 = 变整数>
变量 ps <类型 = 变整数>
@ @<pd> = (INT_P)LoadLibraryW(L"ServiceDLL.dll");
@ @<pa1> = (INT_P)GetProcAddress((HMODULE)@<pd>,(LPCSTR)1);
@ @<pa2> = (INT_P)GetProcAddress((HMODULE)@<pd>,(LPCSTR)2);
ps = 分配内存 (1024)
内存清零 (ps, 1024)
调用静态方法 (pa2, 整数, 取文本指针 ("ServiceDLL_Test"), ps) // 构建服务名
调用静态方法 (pa1, 逻辑型, -950618, ps) // 安装服务
全局信息框 ("点击确定，服务自动释放。")
}

复制代码

不是源码，测试用32 64 位 DLL。

ServiceDLL.7z (232.95 KB, 下载次数: 0, 售价: 22 金钱)

白雪皑皑0306 · 发表于昨天 14:49

你的意思是,服务直接用DLL来运行的? 不需编译成EXE?

urenai · 发表于昨天 18:23

白雪皑皑0306 发表于 2025-10-17 14:49
你的意思是,服务直接用DLL来运行的? 不需编译成EXE?

众所周不知，Windows 服务好像是分为r0 r3级别。
火山搞的是r3级别的exe模板。
我发帖建议好多次，希望官方搞一个r3级别的Dll模板。
我把网上别人弄现成的直接拿来用，总是报错。
安装可以，就是启动总报错。

我就不信这个邪，官方不理我，我还不能自己搞了。

经过不断深入，我搞出了这个另类服务dll，不需要ServiceMain函数。

2oon · 发表于昨天 19:49

楼主加油

		自动登录	找回密码
密码			立即注册

[视窗] 非开源 另类实现 ServiceDLL ，欢迎测试。

[视窗] 非开源另类实现 ServiceDLL ，欢迎测试。