如何去掉系统为菜单自动设置的热建??? <<Delphi5.x分布式多层应用-系统应用篇>>李维<<Delphi5.x分布式多层应用-电子商务篇>>李维 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //转贴回复贴子: 回复人: Bob7946(X度空间) (2001-11-10 13:34:16) 得0分 如果你不想自己的程序被从Ctrl+Alt+Del弹出的窗口中强行关闭,介绍一个Windows未公布的API函数给你:RegisterServiceProcess(ProcessID:Long,Type:Long)该函数存在于Kernel32.dll中.Process指向进程的ID,Type表示是否向系统注册该进程,是1,否0./////////////////////////////////////////////////////////////////////////////function RegisterServiceProcess(a:longint;const b:longint):dword;stdcall;far;external 'Kernel32.dll' name 'RegisterServiceProcess';ddd:=GetCurrentProcessId;if (RegisterServiceProcess(ddd,1)=0) then showmessage('error!');////////////////////////////////////////////////////////////////////////////用未公开函数RegisterServiceProcess#define RSP_SIMPLE_SERVICE 1#define RSP_UNREGISTER_SERVICE 0//下面代码为隐藏DWORD dwID,redserv;dwID = GetCurrentProcessId();regserv = RegisterServiceProcess(pid,RSP_SIMPLE_SERVICE);//恢复隐藏dwID= GetCurrentProcessId()regserv = RegisterServiceProcess(pid,RSP_UNREGISTER_SERVICE); 又错了,呵呵。把MainMenu1.AutoHotkeys设成maManual; delphi中如何让选中的图片高亮 在Dll 中 报 cannot assign a TBitmap to…… 错 Edit的小问题 请教Nmudp1控件的相关问题 分数统计 midas.dll载入错误的问题 如何实现鼠标帮助 有在南京金思维的请进:你们公司的基于模版的编程是什么意思,能不能给我讲一下,顺便给一个例子, 一个USB设备,有驱动,但可以自己写操作软件吗? 如何有效的截取字符串?? 救命! 明天要交差的~! :( 高手何在?……
回复贴子:
回复人: Bob7946(X度空间) (2001-11-10 13:34:16) 得0分
如果你不想自己的程序被从Ctrl+Alt+Del弹出的窗口中强行关闭,
介绍一个Windows未公布的API函数给你:RegisterServiceProcess(ProcessID:Long,Type:Long)该函数存在于Kernel32.dll中.Process指向进程的ID,Type表示是否向系统注册该进程,是1,否0./////////////////////////////////////////////////////////////////////////////
function RegisterServiceProcess(a:longint;const b:longint):dword;stdcall;far;external 'Kernel32.dll' name 'RegisterServiceProcess';ddd:=GetCurrentProcessId;
if (RegisterServiceProcess(ddd,1)=0) then
showmessage('error!');////////////////////////////////////////////////////////////////////////////
用未公开函数RegisterServiceProcess
#define RSP_SIMPLE_SERVICE 1
#define RSP_UNREGISTER_SERVICE 0//下面代码为隐藏
DWORD dwID,redserv;
dwID = GetCurrentProcessId();
regserv = RegisterServiceProcess(pid,RSP_SIMPLE_SERVICE);
//恢复隐藏
dwID= GetCurrentProcessId()
regserv = RegisterServiceProcess(pid,RSP_UNREGISTER_SERVICE);