怎么使delphi写的程序在windows任务管理器中不被关掉

应该会有另外一段程序不断的进行检查，如果被关掉，则立刻重新开一个新的进程。

这一段程序可以是一个另外的进程，也可以是被注入到其它的进程中的一段程序，也可以是一个服务。

如果是正常的程序，有必要这样做吗？

Microsoft windows应用程序没有响应直接关闭即可。

Windows 10在易用性和安全性方面有了极大的提升，除了针对云服务、智能移动设备、自然人机交互等新技术进行融合外，还对固态硬盘、生物识别、高分辨率屏幕等硬件进行了优化完善与支持。

截至2021年9月14日，Windows 10正式版已更新至100190431237版本，预览版已更新至100213901版本。

2020年5月14日，据外媒报道，从2020年5月更新开始，微软将停止向PC制造商提供32位Windows 10，最低硬件要求文档中显示了这项更改，微软将逐步淘汰32位版本的Windows10系统 。

2020年12月28日消息，微软已经确认Windows 10的下一次更新将自动删除Flash Player。

2021年2月，Windows Latest 报道，微软推出的一款新的更新补丁正在向 Windows 10 版本 20H2、2004 及以上版本推出，以永久删除 Adobe Flash Player。

2021年6月16日，微软公司发布消息称，将于2025年10月14日终止对Windows 10 *** 作系统的支持，包括专业版和家庭版。

用下面这个函数可以解决你的问题：

function  WinExecAndWait32(FileName:String;  Visibility  :  integer):  DWORD;  

var  

        zAppName:array[0512]  of  char;

        zCurDir:array[0255]  of  char;

        WorkDir:String;

        StartupInfo:TStartupInfo;

        ProcessInfo:TProcessInformation;

begin

        StrPCopy(zAppName,FileName);

        GetDir(0,WorkDir);

        StrPCopy(zCurDir,WorkDir);

        FillChar(StartupInfo,Sizeof(StartupInfo),#0);

        StartupInfocb  :=  Sizeof(StartupInfo);

        StartupInfodwFlags  :=  STARTF_USESHOWWINDOW;

        StartupInfowShowWindow  :=  Visibility;

        if  not  CreateProcess(

        nil,

        zAppName,  {  pointer  to  command  line  string  }

        nil,  {  pointer  to  process  security  attributes  }

        nil,  {  pointer  to  thread  security  attributes  }

        false,  {  handle  inheritance  flag  }

        CREATE_NEW_CONSOLE  or  {  creation  flags  }

        NORMAL_PRIORITY_CLASS,

        nil,  {  pointer  to  new  environment  block  }

        nil,  {  pointer  to  current  directory  name  }

        StartupInfo,  {  pointer  to  STARTUPINFO  }

        ProcessInfo  {  pointer  to  PROCESS_INF  }

        )

        then  Result  :=  $FFFFFFFF  else  begin

                WaitforSingleObject(ProcessInfohProcess,INFINITE);

                GetExitCodeProcess(ProcessInfohProcess,Result);

        end;

end;

1,控制热启动键

Ctrl+Alt+Del:

要使系统的热启动键

Ctrl+Alt+Del

失效，使用以下语句：

SystemParametersInfo(SPI_SCREENSAVERRUNNING,

1,

0,

0);

恢复使用以下语句：

SystemParametersInfo(SPI_SCREENSAVERRUNNING,

0,

0,

0);2,使窗体的

Alt+F4

快捷键(关闭窗体)失效

把

Form

的

KeyPreview

设为

True，然后响应

OnKeyDown

事件：

procedure

TForm1FormKeyDown(Sender:

TObject;

var

Key:

Word;

Shift:

TShiftState);

begin

if

(Key=VK_F4)

and

(ssAlt

in

shift)

then

Key

0;

end;

以上就是关于怎么使delphi写的程序在windows任务管理器中不被关掉全部的内容，包括:怎么使delphi写的程序在windows任务管理器中不被关掉、怎样关闭win的应用程序、delphi怎么实现外部程序调用以及调用的外部程序关闭时，返回一个值等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！