|
|
发表于 2011-10-11 12:59:30
|
显示全部楼层
来自: 中国广东深圳
本帖最后由 yue2233 于 2011-10-14 10:17 编辑 8 ]1 K, W4 e! D
! b8 O, V" b$ B; J5 w取注册表HKEY_LOCAL_MACHINE\SOFTWARE\Delcam\PowerMILL) Q2 V* }% N( @5 p, s* P- T
! V, e/ f3 Z* \. _8 r `# H
源代码:
o& w. |" J; x
* A& n [+ K; u5 v( D6 wImports Microsoft.Win32
5 S3 x: F2 U7 k& S5 e/ l' XPublic Class Form1# o1 e X1 {/ \, A
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4 I1 Z4 d* E- T" }: O6 K'查找电脑所有已安装的powermill版本( i' W4 J5 _- \
Try
! r$ ^# A6 m$ U" i) c S8 r Dim hklm As RegistryKey = Registry.LocalMachine
( w. z+ G0 P5 f* s2 q7 U9 y0 N2 g Dim d As RegistryKey = hklm.OpenSubKey("software\delcam\powermill")
+ }' G3 \0 o# C, j Dim s() As String = d.GetSubKeyNames! A- \7 d% n2 p4 h
For Each obj In s/ W5 L8 V$ N2 l3 a* I' U
'根据查找结果,填充选择框
) P+ o1 N: b2 W) f3 P& ~ Me.ComboBox1.Items.Add(obj)6 b m; H9 {& g: _7 @
Next2 d# r6 a% w1 L
Catch ex As Exception
/ o1 O) _ i! c3 a4 f End Try
5 W) }8 Q, Z1 `4 `( V End Sub) h M8 _) x* Z* e# _
. U& Z6 E" J9 S2 E" A: q4 x'根据选择结果,运行相应版本的powermill
5 A3 p. I6 c" b* x& q3 c+ Z4 \ Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged' R. c/ H6 T" v* c# A; U
Try5 Q2 Z- {! P" v: Z9 T: q
System.Diagnostics.Process.Start(My.Computer.Registry.LocalMachine.OpenSubKey("software\delcam\powermill\" + Me.ComboBox1.Text, False).GetValue("ExecutablePath")): X* [, ~' X3 q+ ~, Y5 V$ y- i
Catch ex As Exception2 W J5 l% X- c: U
End Try
2 R) L: e$ N/ V2 t/ E End Sub; w9 o% K' e% g1 M
End Class |
|