|
|
发表于 2011-10-11 12:59:30
|
显示全部楼层
来自： 中国广东深圳
本帖最后由 yue2233 于 2011-10-14 10:17 编辑 i1 H0 n4 O$ _1 |
+ n6 N% O4 y# h
取注册表HKEY_LOCAL_MACHINE\SOFTWARE\Delcam\PowerMILL
7 |3 ?: h+ {4 R* B$ U i& L" }. k6 X# t
源代码：& ]9 u/ a) O0 l
# ^ x4 m, @& n9 n" N! u8 RImports Microsoft.Win32, q7 [8 ]. X8 k' `" z6 ^
Public Class Form1& W! W/ e$ d5 q. Z# m
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2 ^3 N4 ~5 p" r% Y- B'查找电脑所有已安装的powermill版本
0 x3 `. C9 ?3 v5 M Try
7 A1 y) V" y8 d8 M# x7 f5 S4 @, i Dim hklm As RegistryKey = Registry.LocalMachine) J7 `; Z2 o0 r
Dim d As RegistryKey = hklm.OpenSubKey("software\delcam\powermill")
( y" y0 @$ z4 Y( C& i0 j" F) ], D Dim s() As String = d.GetSubKeyNames
3 D7 J0 a' w+ ~- N; X0 M' } i- K For Each obj In s2 a/ T- H3 G5 F7 Y: h( b. D
'根据查找结果，填充选择框+ a" p5 f9 }1 _' {5 T- ]9 f _
Me.ComboBox1.Items.Add(obj)# ]# g- a; E9 U! @8 ~7 L5 a! ^. ]3 {
Next* M3 m3 v0 `& z% @3 b
Catch ex As Exception
8 b9 P; g0 B+ r8 q: L* X1 h! f' D6 i End Try
) j. E/ a# w" }+ Q8 C% w* R- }/ P6 ] End Sub8 m1 J" { m v0 p, q
8 T. d# |. N: s9 h# K6 x
'根据选择结果，运行相应版本的powermill4 Q8 s, _) L* ~* R' |4 n0 h; _
Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged8 Z! o, q7 \, {! ]
Try% a4 g7 m* R8 B# F" T/ L. N J
System.Diagnostics.Process.Start(My.Computer.Registry.LocalMachine.OpenSubKey("software\delcam\powermill\" + Me.ComboBox1.Text, False).GetValue("ExecutablePath"))' X+ n" D+ d8 M
Catch ex As Exception
) |8 \* l2 {1 e7 G a End Try
9 b9 a$ n2 h' v* s6 P6 j$ {4 @ End Sub6 D6 b* l* _. A/ ?' }& g0 k( T+ G) Y' r
End Class |
|
楼主