|
|
发表于 2011-10-11 12:59:30
|
显示全部楼层
来自： 中国广东深圳
本帖最后由 yue2233 于 2011-10-14 10:17 编辑
1 F' c' W$ A4 u; O4 L: {1 T1 N& E; {& p, N: h9 e- U% ]6 V% o
取注册表HKEY_LOCAL_MACHINE\SOFTWARE\Delcam\PowerMILL1 ]: q: Y$ }$ k5 T+ M: l7 ~& F
' [+ w. A" c: y- S% Q
源代码：* h2 X e% K" B: b l
% q7 q5 X4 T$ t0 y3 B% o. v
Imports Microsoft.Win329 G/ I7 g# e7 j
Public Class Form10 _) V/ H% r o& p
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load/ ], B5 {. I* b5 e/ _
'查找电脑所有已安装的powermill版本1 U1 t- @/ s; }$ ] C& y5 s
Try. L! a+ C. B6 O7 F
Dim hklm As RegistryKey = Registry.LocalMachine
, N* j3 }0 s, H, w$ M Dim d As RegistryKey = hklm.OpenSubKey("software\delcam\powermill")) y* R7 V3 F y S8 g- @: `
Dim s() As String = d.GetSubKeyNames; ^4 p* S" y5 L' o1 y0 V3 b5 _
For Each obj In s* p8 C7 J5 J& B1 k' G
'根据查找结果，填充选择框
1 z" t {/ p# H% T* M Me.ComboBox1.Items.Add(obj)
* k+ d4 N$ t8 I* l% l4 {6 Q Next
; @( f. I, D5 ?9 z4 ~# e( u, V Catch ex As Exception
0 f% d" M8 O |' m! _) Q End Try2 d0 B+ h. i8 k7 k9 e
End Sub
/ `/ b% V$ _' L$ B- E; ^; A# h& I# F; @% k. ~; M m* J: O/ I5 N5 Q
'根据选择结果，运行相应版本的powermill. u i# H& x, I. h" e
Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
7 I- A- B6 _+ [0 c9 S Try
" z7 a0 x. i) F1 c System.Diagnostics.Process.Start(My.Computer.Registry.LocalMachine.OpenSubKey("software\delcam\powermill\" + Me.ComboBox1.Text, False).GetValue("ExecutablePath"))9 F6 H! s# I/ Q9 ^2 k6 ]7 g6 v/ ?
Catch ex As Exception/ P) \& ~( O1 {6 o* t% v
End Try
, n5 w; M& y. M& q3 s+ ?% O- e9 y End Sub
. d( ?& w) [+ B; z& ]End Class |
|
楼主