Hide a process in the kill task menu

最新推荐文章于 2022-03-06 17:46:14 发布

lanyus

最新推荐文章于 2022-03-06 17:46:14 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： DELPHI编程文章标签： menu kill windows application forms interface

本文链接：https://blog.youkuaiyun.com/lanyus/article/details/460893

DELPHI编程专栏收录该内容

71 篇文章

订阅专栏

博客涉及Windows应用程序相关内容，包含菜单、终止应用等方面，与信息技术领域的Windows系统应用操作有关。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

注:此程序只能在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.