Delphi中如何使用WMI获取系统信息？(有点难度哦)(30分)

W

wwshuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-29

• #1

我以前用VB做过,代码是这样的:
Dim BiosSet As SWbemObjectSet
Dim bios As SWbemObject
Set BiosSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_BIOS")
For Each bios In BiosSet
.....取信息
Next
我刚用Delphi不知道怎样用Delphi来写，WbemScripting_TLB我知道怎样引用，关键是把上面的代码翻译成delphi的。谢谢！再谢谢！

 

W

wwshuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-31

• #2

没人回复啊，高手呢？失望。

 

K

ka52

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-02

• #3

我记得在Bdn.Borland.com里有这个的Demo，是在Code Center里面的。
你看看。
我以前也想也写个，但后来还是无功而返。
发个mail给我：ka52@etang.com
一个控件：
WMI Windows Managemnet Instrumentation Delphi 6 application
File version: 0.9.70.109

 

W

wfzha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-02

• #4

在ide中从菜单project/improt type library 选择microsoft WMI scripting ....
点击install...就行了

 

W

wwshuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-07

• #5

我找到源代码了，但是看不懂，请高手指教！
http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=7&lngCodeId=628&strZipAccessCode=tp%2FG6282254

 

D

DragonPC_???

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-10

• #6

什么鸟源码，网站我打不开呀，兄弟贴上来看看

 

G

gydldfw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-20

• #7

要控件啊，我没有那个控件！

 

W

wwshuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-08

• #8

谢谢，我己解决