Hide a process in the kill task menu

王朝delphi·作者佚名  2006-01-10
窄屏简体版  字體: |||超大  

注:此程序只能在WIN9X下运行,WINDOWS NT以下操作系统的KERNEL32.DLL文件已不包含API函数RegisterServiceProcess;

How can I hide my application in

the Ctrl+Alt+Del menu? You need to

use RegisterServiceProcess, which

has to be imported from the kernel.

See the following example:

unit Unit1;

Interface

uses

Windows, Messages, SysUtils, Classes,

Graphics, Controls, Forms, Dialogs,StdCtrls;

type

TForm1 = class (TForm)

Button1 : TButton;

procedure FormDestroy (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1 : TForm1;

implementation

{$R *.DFM}

const

RSPSIMPLESERVICE = 1;

RSPUNREGISTERSERVICE = 0;

function RegisterServiceProcess(dwProcessID,

dwType: DWord) : DWord; stdcall;

external 'KERNEL32.DLL';

procedure TForm1.FormDestroy(Sender: TObject);

begin

RegisterServiceProcess(GetCurrentProcessID,

RSPUNREGISTERSERVICE)

end;

procedure TForm1.FormCreate (Sender: TObject);

begin

RegisterServiceProcess (GetCurrentProcessID,

RSPSIMPLESERVICE)

end;

end.

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航