100元求代码：请进——(100分)

小乙 · 2002-07-21

是这样：我想在FORM上的ListBox内显示出所有在右下脚任务栏内自动启动运行的
程序，该如何实现？（最好附上代码）
我实在不想再拿我的注册表做试验了，真麻烦啊！恳求各位大侠帮帮忙吧！
另外，该如何获得这些系统启动自动运行程序的图标？(有答另加50元)

zhengct · 2002-07-21

通过注册表好像不行，因为在run键值中有些程序不在任务栏显示，
如C:/WINDOWS/taskmon.exe，C:/WINDOWS/scanregw.exe /autorun等
关注。

小乙 · 2002-07-22

你说的这些程序是在注册表中找不到的，它们是在系统启动时就已经随系统运行的
它们是系统启动所必须支持的程序，是在系统内自动配置封装的，而我要求列出的
不是这些程序，恰恰就是在注册表中run

热血 · 2002-07-22

不明白你的要求?

小乙 · 2002-07-23

不清楚？：
就是把在注册表中HKEY_CURRCENT_USER下的/sofotwar/micrsoft/windows/currtversion/polic/explore/run
下列出的自启动程序在FORM中的LISTBOX中列出来。

zhengct · 2002-07-23

终于有点明白了，看下面的代码，已编译通过
procedure TForm1.Button1Click(Sender: TObject);
var
psreg:Tregistry;
Val:TStringList;
I:Integer;
begin
psreg:=TRegistry.Create;
Val:=TStringList.Create;
psreg.RootKey:=HKEY_LOCAL_MACHINE;
try
if psreg.OpenKey('/Software/Microsoft/Windows/CurrentVersion/Run',False) then
begin
psReg.GetValueNames(Val); //得到键值名
//psReg.ReadString(Val.Strings;得到键值
listbox1.Items.AddStrings(val);
Val.Free;
end;
psreg.CloseKey;
finally
psreg.Free;
end;
end;

小乙 · 2002-07-24

你编译通过了？
可我怎么出现了这个问题？：

“项目project1.exe凸起的故障类错误：EStringListError有跃进的消息‘列表索引外面
的（177570458)’过程停止。...
麻烦您再看一下！
拜托！

svw0506 · 2002-07-24

你用的是什么操作系统，我用98编译上面的代码，一点问题没有哇
我可又学了一着

Nizvoo · 2002-07-24

呵呵
装个机器狂写狂代码

好的机器只用来存储代码。。

可呵

www.vmware.com
可以符合你的要求。。。。

UPUP

小乙 · 2002-07-26

我的操作系统是WindowsME
to Nizoo:
你说的是什么？

Nizvoo · 2002-07-26

是基于win32/linux虚拟机。。。

小乙 · 2002-07-28

satoni · 2002-07-28

zhengct：如果我想知道实时运行的程序又应该读哪里呢；

小乙 · 2002-10-06

接受答案了.

100元求代码：请进——(100分)

小乙

Unregistered / Unconfirmed

zhengct

Unregistered / Unconfirmed

小乙

Unregistered / Unconfirmed

热血

Unregistered / Unconfirmed

小乙

Unregistered / Unconfirmed

zhengct

Unregistered / Unconfirmed

小乙

Unregistered / Unconfirmed

svw0506

Unregistered / Unconfirmed

Nizvoo

Unregistered / Unconfirmed

小乙

Unregistered / Unconfirmed

Nizvoo

Unregistered / Unconfirmed

小乙

Unregistered / Unconfirmed

satoni

Unregistered / Unconfirmed

小乙

Unregistered / Unconfirmed

Similar threads