在win98里可以用
RegisterServiceProcess
win2k等:作成服务(service)
RegisterServiceProcess
win2k等:作成服务(service)
解决方案 »
- 同事的女朋友看上我了`她想跟我。。。昨天晚上又发生了那事,怎么处理?
- 将具体的数据库文件转换成 sql脚本文件的优点是什么?
- 关于打印
- property OnDragOver stored IsForm;这里的stored IsForm是什么意思?
- 库存管理中我对于盘点单的一些看法请大家评论一下
- 是高手的进来!
- 串口接收和发送文件名问题
- [Delphi/VCL组件开发及应用]要与西门子的模块,关于Delphi与opc接口基础及编程
- 修改treeview某一项目的text后,怎样获得选中的项目修改后的treeview.selected.text?
- 关于打包问题??
- 求 胜新通用人事工资管理系统豪华版 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:作成服务类型的