如何隐藏线程不让其显示在“关闭程序”中和如何判断程序已经运行。

[pc2000]

谢谢

[langzhi]

你是说让自己的程序在按:ctrl+alt+del时，看不见吧。
可以用REGISTERSEVERPROCESS这个API函数。

[ozarkgirl]

我在win98下运行编译好的vb程序，可他说“类未注册。查找对象，其CLSID为"{>00000010-0000-0010-8000-00AA006D2EA4}”还说“运行时错误713':类未注册。查找对象，其CLSID为"{>00000010-0000-0010-8000-00AA006D2EA4}”请大家帮忙看看，怎么用REGSVR32啊，在那里有啊？ 急，急，急

[szlili2013]

App.PrevInstance判断程序是否已经运行。

将窗口的 ShowInTaskbar 属性设为 FALSE 程序就不会显示出来。

REGISTERSEVERPROCESS这个API函数只对WIN98以下版本有效，
但是程序还是可以的"系统信息"中查到。

要想不在ctrl+alt+del时显示你的程序，要用到一个特殊的函数，哎~~~~,可惜我
现在找不到了，你到别的论坛问问吧。

[Leemaasn]

REGISTERSEVERPROCESS
能不显示在ctrl+alt+del里，
但是，还是能通过查进程找到，对win98有效，
App.PrevInstance判断程序是否已经运行
对的。

[Amoon]

1、隐藏线程不让其显示在“关闭程序”中：
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
注册服务（在“关闭程序”中隐藏）
Dim pid As Long
pid = GetCurrentProcessId()
RegisterServiceProcess pid, 1
取消已注册服务
Dim pid As Long
pid = GetCurrentProcessId()
RegisterServiceProcess pid, 0
2、If App.PreInstance then msgbox "Application is running"

OK,还满意么？：）

[Amoon]

Sorry ,If App.PrevInstance then msgbox "Application is running",呵呵，打漏了一个字母v ：）

[limengchen]

form.showintask=false '不在任务栏中显示
app.showtask=false'不在进程管理器中显示
用app.previnstance来判断当前程序是否在运行。

[woookaooo]

学习

[DeityFox]

REGSVR32 c:\vb\111.ocx ‘REGSVR32 win98自带，可以搜索一下