|
|
发表于 2011-10-11 12:59:30
|
显示全部楼层
来自： 中国广东深圳
本帖最后由 yue2233 于 2011-10-14 10:17 编辑 + u4 U9 Y+ S! z
+ T; v6 h' H4 r/ i取注册表HKEY_LOCAL_MACHINE\SOFTWARE\Delcam\PowerMILL
3 {' C- k8 ~- D0 |4 d
5 k$ M( Q( ~' V0 X% |源代码：
3 H, S) k4 Z0 x) T
$ y* b* S$ {# EImports Microsoft.Win32
3 a4 m T9 R7 `2 XPublic Class Form1+ Y) H# B Q; E0 C
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2 o/ v3 A9 P0 h! \; G'查找电脑所有已安装的powermill版本
8 p+ d( H7 U. ?4 `& P. U Try
- G9 o3 g8 Z+ Q# u& e Dim hklm As RegistryKey = Registry.LocalMachine
3 P9 j: T4 S, T Dim d As RegistryKey = hklm.OpenSubKey("software\delcam\powermill")
3 A9 [, I7 b; F! d Dim s() As String = d.GetSubKeyNames) i) t% |! K9 e; Q
For Each obj In s
1 G. J/ h% |, ? D% V'根据查找结果，填充选择框
$ Q/ ?/ Q3 [. c* b Me.ComboBox1.Items.Add(obj)% [* U4 X! B& _9 {
Next
! a( F. `5 j! ~' ?) }7 B: }( f Catch ex As Exception
& e4 |2 R( a& K* q2 g" G5 S End Try
, R9 p, M. W- @$ @* y7 { End Sub s& X* z" z+ P \9 u
" t/ `9 O. v j, f+ G4 H' \
'根据选择结果，运行相应版本的powermill
3 Z6 S5 {* u* O Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
) T- d3 D' v2 z, e Try7 @( {8 Q$ U; L" V% j
System.Diagnostics.Process.Start(My.Computer.Registry.LocalMachine.OpenSubKey("software\delcam\powermill\" + Me.ComboBox1.Text, False).GetValue("ExecutablePath"))
5 a2 m" q* x8 P% C) T8 m( G% ^1 G Catch ex As Exception' ]0 O3 h- {2 l# f/ E* d
End Try
) M/ G; _# F- d8 M1 E) t4 d4 K/ C End Sub
- ]6 w" r+ w7 ]; c+ P, O2 QEnd Class |
|
楼主