|
|
发表于 2011-10-11 12:59:30
|
显示全部楼层
来自： 中国广东深圳
本帖最后由 yue2233 于 2011-10-14 10:17 编辑
0 w; T- ~& j+ P5 a/ S3 o4 W4 Z, |/ Y9 \3 O
取注册表HKEY_LOCAL_MACHINE\SOFTWARE\Delcam\PowerMILL
4 f6 e8 K2 f. H: m
) u, f$ p$ H/ T! n% G3 u源代码：
( ?: H1 h* m+ Y' |4 d% p; K; {, F9 y! N3 x6 b5 t
Imports Microsoft.Win321 V1 V* V/ M1 d9 i+ l5 }
Public Class Form16 e5 U: ?& a, X
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load x! ], H) |, ?
'查找电脑所有已安装的powermill版本
0 {' R9 ]. y" x5 b Try6 p' p, m# W' L7 O
Dim hklm As RegistryKey = Registry.LocalMachine+ o( N% O& Q* t$ {' j
Dim d As RegistryKey = hklm.OpenSubKey("software\delcam\powermill")2 r2 k r7 m p- q' \" M* _
Dim s() As String = d.GetSubKeyNames
* n: f8 ^, B# L8 a$ P0 r* T For Each obj In s
5 p0 u5 W$ N* e1 j$ Z0 u% ]) Q'根据查找结果，填充选择框
2 s9 B0 p7 b$ g2 k | Me.ComboBox1.Items.Add(obj)
# F9 H- c% z9 B+ e Next
$ m( p% T, g# \( ?9 \ Catch ex As Exception
) X; [: Z# t ~9 L3 C% i, a End Try8 O8 G3 l% y/ R8 n4 l& z" H! t' _
End Sub
2 ?% i& G4 e( z* B- _
- c" S, J' s j1 c'根据选择结果，运行相应版本的powermill& ~& l) y7 z) a0 n8 ]
Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged. N: c$ l- ]) r) w% E0 b: p) O
Try1 W( z- R. A/ C# \6 m
System.Diagnostics.Process.Start(My.Computer.Registry.LocalMachine.OpenSubKey("software\delcam\powermill\" + Me.ComboBox1.Text, False).GetValue("ExecutablePath"))
& ? k' Y3 s) |( i7 Y0 U Catch ex As Exception
3 g3 z8 j: ~8 V End Try- e& [; K6 H6 k* ~2 B8 B& U T
End Sub
$ f* X% n6 n M) o, W% }% P# FEnd Class |
|
楼主