如何隱藏正在運行的程序啊？

隱藏一個程序的運行最簡單的方法是將窗體的Visible設為False。但是只要用Ctrl+Alt+Del將程序列表呼出就完全露餡了。那么怎樣徹底隱藏正在運行的程序呢？其實很簡單。 我們知道，后臺運行的程序有很多。但是只有一部分出現在程序列表里，多數系統程序并不出現。實際上，被注冊成為“服務器”的進程不會出現在程序列表里。

所用API函數：

PrivateDeclareFunctionGetCurrentProcessIdLib"kernel32"Alias"GetCurrentProcessId"()AsLong 這個函數可以獲得當前進程一個唯一的標識符。

PrivateDeclareFunctionRegisterServiceProcessLib"kernel32"(ByValdwProcessIDAsLong,ByValdwTypeAsLong)AsLong 這個函數可以將進程ID號為dwProcessID的進程注冊或取消注冊為“服務器”。

所用常量： 這里的常量也就是dwType的值。

ConstRSP_SIMPLE_SERVICE=1 注冊為“服務器”。

ConstRSP_UNREGISTER_SERVICE=0 取消“服務器”注冊。 程序：

PublicSubMakeMeService() DimpidAsLong,reservAsLong '獲取當前進程ID pid=GetCurrentProcessId() '注冊為服務器 regserv=RegisterServiceProcess(pid,RSP_SIMPLE_SERVICE) EndSub PublicSubUnMakeMeService() DimpidAsLong,reservAsLong '獲取當前進程ID pid=GetCurrentProcessId() '取消服務器注冊 regserv=RegisterServiceProcess(pid,RSP_UNREGISTER_SERVICE) EndSub 不過用這種方法也不能保證程序運行時不被查到，如用程序獵手就可以查出來。 別處轉載