RegisterServiceProcess函数的用法？？？

Question

function RegisterServiceProcess(dwProcessID, dwType: integer): integer; stdcall; external 'KERNEL32.DLL';implementation{$R *.DFM}
formcreateRegisterServiceProcess(GetCurrentProcessID, 1);
//使程序不出现在ctrl+alt+del

Answer 1

在implementation前声明以下函数： function RegisterServiceProcess(dwProcessID, dwType: Integer):
  Integer; stdcall; external 'KERNEL32.DLL'; 在button1的OnClick 事件中：
  RegisterServiceProcess( GetCurrentProcessID, 1 ); 在button2的OnClick 事件中：
  RegisterServiceProcess( GetCurrentProcessID, 0 );
////////////////////////////////////////////////////////////////////////
这应该没有问题，我想你的windwos系统可能出问题了。