为什么我用RegisterServiceProcess函数后，在运行时总提示“找不到DLL入口点RegisterServiceProcess in kernel32",这是怎么回事？

ziww 2004-05-03 03:17:19

为什么我用RegisterServiceProcess函数后，在运行时总提示“找不到DLL入口点RegisterServiceProcess in kernel32",这是怎么回事？

...全文

286 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

monica8361 2004-05-04

打赏
举报

回复

照搬代码之前也要先看看代码的说明啊

ziww 2004-05-04

打赏
举报

回复

我用的是2003，我这个程序主要是在任务列表中隐藏起来

meteorkin 2004-05-03

打赏
举报

回复

你是不是用的98?

mingtian2008 2004-05-03

打赏
举报

回复

对我也是找不到 dll

mingtian2008 2004-05-03

打赏
举报

回复

up

TechnoFantasy 2004-05-03

打赏
举报

回复

RegisterServiceProcess函数不支持NT/2000/2003

使程序不在 Ctrl+Alt+Del 弹出的对话框内

delphi使用技艺大全问:如何让del+CTRL+ALT看不见程序运行? 答:为了让程序用ALT+DEL+CTRL看不见,在implementation后添加声明: function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL'; 再在上面的窗口Create事件加上一句：RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏也可以使用下面的函数: function My_SelfHide: Boolean; type TRegisterServiceProcess = function(dwProcessID, dwType: DWord): DWORD; stdcall; var hNdl: THandle; RegisterServiceProcess: TRegisterServiceProcess; begin Result := False; if Win32Platform VER_PLATFORM_WIN32_NT then //不是NT begin hNdl := LoadLibrary('KERNEL32.DLL'); RegisterServiceProcess := GetProcAddress(hNdl, 'RegisterServiceProcess'); RegisterServiceProcess(GetCurrentProcessID, 1); FreeLibrary(hNdl); Result := True; end else Exit; end;

任务栏上隐藏应用程序按钮代码段，自己的主窗口定义中添加一个自己的方法，再将它安装到Application对象的OnMinimize方法上去

本文介绍了，在VC6.0中怎样将程序彻底隐藏起来，在程序执行过程中，用户不能终止和看到程序的运行

Delphi常用技巧,Delphi常用技巧

1,488

社区成员

23,272

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章