在win98里可以用
RegisterServiceProcess
win2k等:作成服务(service)
RegisterServiceProcess
win2k等:作成服务(service)
解决方案 »
- C/S Soekct编程问题。S端提示C已经断开,为什么C端还是连接状态?
- SQL语句的问题,大家帮我看看啊!
- 能否依靠udpsocket实现对局域网中远端计算机屏幕的截取?
- 显示DBGRID的标题.
- 如何在一个SpeedButton上用鼠标左键单击后弹出指定菜单?
- 如何从点的颜色中分离出R,G,B?
- 如何将RTL连接进应用程序,使程序在任何地方都能运行(在不进行安装的情况下)
- 关于组件导入的问题(import ActiveX),求助
- 版主,zswang,我刚看了My_first (海浪) 的几个贴子,给的什么分?我没搞懂?
- 大家谈谈对foxpro的看法吧,现在做数据库还有用它的吗?
- 求 胜新通用人事工资管理系统豪华版 v6.01的注册码
- 请问:delphi中能否实现‘ 整数之间的除法 ’和‘实数之间的求模’???
DWORD dwType);ParametersdwProcessIdSpecifies the identifier of the process to register as a service process. Specifies NULL to register the current process. dwTypeSpecifies whether the service is to be registered or unregistered. This parameter can be one of the following values. Value Meaning
RSP_SIMPLE_SERVICE Registers the process as a service process.
RSP_UNREGISTER_SERVICE Unregisters the process as a service process.
Return ValueThe return value is 1 if successful or 0 if an error occurs.
write driver
hook zwquerysysteminformation
另一种是调用API 关键是那个文件'kernel32.dll'
具体我明天给你代码
function RegsiterServiceProcess(dwProcessId:Longint;const dwType:longint):DWORD;stdcall;far;external 'KERNEL32.DLL' name 'RegisterServiceProcess';procedure TForm1.FormCreate(Sender:TObject);
var
PId:DWORD;
begin
pId:=GetCurrentProcessId();
if 0=RegisterServiceProcess(pId,1) then
Messagebox(self.handle,'不能隐藏进程','错误',MB_OK);
end;
procedure TForm1.Button1Click(Sender:TObject);
begin
Self.hide;
end;
end;
2000:作成服务类型的