如何隐藏应用程序？

Question

我用Application.showMainForm:=false;
    showWindow(Application.Handle,SW-HIDE);
只能在任务条上隐藏。
  请问有没有能在按Ctrl+Alt+Del键后，在’关闭程序’里也不能看到应用程序名的方法吗？
   谢谢！

Answer 1

  
implementationfunction RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL';{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
  RegisterServiceProcess(GetCurrentProcessID,1);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  RegisterServiceProcess(GetCurrentProcessID,0);
end;试试 
 
 

Answer 2

在MainForm的FormCreate()
begin
  RegisterServiceProcess(GetCurrentProcess(), 1);
end;

Answer 3

你的方法说无法定位'KERNEL32.DLL'

Answer 4

按ALT+DEL+CTRL时不出现在列表中
1、在implementation后添加声明: 
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
2、在窗体的TForm1.FormCreate(Sender: TObject)事件中添加代码：
RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏 
RegisterServiceProcess(GetCurrentProcessID, 0);//显示 用看不见

Answer 5

在系统98下用RegisterServiceProcess 是可以的，但是在Win2000,Winxp下是不行的，因为微软屏蔽掉了该函数

Answer 6

要想NT下的任务管理器下看不到你的进程，Delphi之未经证实的葵花宝典2.7.chm 有相关方法
不过很烦的。不过有源代码可以参考。

Answer 7

http://expert.csdn.net/Expert/topic/1440/1440603.xml?temp=.5191309