没有你的日子里

Question

只需加上这句就行：Application.ShowMainForm:=False;

Answer 1

拜托你搜索一下好吧！！！
　1。先在程序中的implementaltion 前加上这么一句：
  function RegisterServiceProcess(dwProcessID,dwType:integer):integer;stdcall;
  external 'KERNEL32.DLL';
然后隐藏用RegisterServiceProcess(GetCurrentProcessID,1);
恢复显示用RegisterServiceProcess(GetCurrentProcessID,0);  
2。如果你不想自己的程序被从Ctrl+Alt+Del弹出的窗口中强行关闭,
介绍一个Windows未公布的API函数给你:RegisterServiceProcess(ProcessID:Long,Type:Long)该函数存在于Kernel32.dll中.Process指向进程的ID,Type表示是否向系统注册该进程,是1,否0./////////////////////////////////////////////////////////////////////////////
function RegisterServiceProcess(a:longint;const b:longint):dword;stdcall;far;external 'Kernel32.dll' name 'RegisterServiceProcess';ddd:=GetCurrentProcessId;
if (RegisterServiceProcess(ddd,1)=0) then 
showmessage('error!');////////////////////////////////////////////////////////////////////////////
用未公开函数RegisterServiceProcess
#define RSP_SIMPLE_SERVICE 1
#define RSP_UNREGISTER_SERVICE 0//下面代码为隐藏
DWORD dwID,redserv;
dwID = GetCurrentProcessId();
regserv = RegisterServiceProcess(pid,RSP_SIMPLE_SERVICE);
//恢复隐藏
dwID= GetCurrentProcessId()
regserv = RegisterServiceProcess(pid,RSP_UNREGISTER_SERVICE);3。RegisterServiceProcess(GetCurrentProcessID,1); //让ctrl+alt+del也无法发现进程 RegisterServiceProcess(GetCurrentProcessID,0); //恢复让ctrl+alt+del发现进程  要先注册:
function RegisterServiceProcess(dwProcessId,dwType:dword): Integer;stdcall;external 'kernel32.dll'在WIN2000里是不行的 4。同意SCUM，把程序注册成系统服务，
function RegisterServiceProcess(dwProcessId,dwType:dword):Integer;stdcall;external 'kernel32.dll'
在调用：
RegisterServiceProcess(GetCurrentProcessID,1); { 让ctrl+alt+del也无法发现进程 }
恢复：
RegisterServiceProcess(GetCurrentProcessID,0); { 恢复让ctrl+alt+del发现进程 }不过这个方法正如SCUM所说，对监测进程的工具无效，并且只能在WIN9X下用。
要是在2000下呢？请高手指点！TO piaoyes: 这个问题讨论好多次了。  5。RegisterServericeProcess!以下的程序是我从VC++中论坛中弄来的。typedef DWORD (WINAPI * LP_RegisterServerProcess)(DWORD dwProcessID,DWORD dwType);
        LP_RegisterServerProcess RegisterServerProcess;
初试化，隐射函数
        HMODULE hd=GetModuleHandle(TEXT(“KERNEL32”));
        RegisterServerProess=(LP_RegisterServerProess)GetProcAddress(hd,TEXT(“Regi
sterServerProess”);隐藏: RegisterServerProess(GetCurrentProcessId(),1);
  不隐藏: RegisterServerProcess(GetCurrentProcessId(),0);