|
|
发表于 2011-10-11 12:59:30
|
显示全部楼层
来自： 中国广东深圳
本帖最后由 yue2233 于 2011-10-14 10:17 编辑 # }1 ~5 ] y G0 f
6 L: b# X8 ? E取注册表HKEY_LOCAL_MACHINE\SOFTWARE\Delcam\PowerMILL; o7 h3 o1 d! `8 ~2 U, m
9 k8 D/ T v" U) b1 `( d
源代码：4 |) U# g& n& o/ u- p% k( ~. O
3 D& R2 g& e1 `. M9 A. k. U2 }
Imports Microsoft.Win32# T( _9 d+ ?/ N% y
Public Class Form12 Y* e6 g0 o3 t$ q( }5 c( q
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
: X, m o2 o3 b: f; J: V'查找电脑所有已安装的powermill版本
' L7 V& @1 m4 r Try, B8 O8 |, B3 B* o
Dim hklm As RegistryKey = Registry.LocalMachine
- }* ~9 [8 q6 q, Z" d- [- `+ K Dim d As RegistryKey = hklm.OpenSubKey("software\delcam\powermill")
) k) C+ o! n* }! f: ^ Dim s() As String = d.GetSubKeyNames8 w8 x1 }( K: M2 G
For Each obj In s; p* {& ?7 p" {+ n# y) T% M' h
'根据查找结果，填充选择框
+ A" ?" w1 n2 U8 x: Y* t, O& G% B Me.ComboBox1.Items.Add(obj)
2 d4 b% W9 U2 L1 g, L Next: ?, b5 `9 y, H. O% Q, Y
Catch ex As Exception
, m7 K# q! y" W2 y* z- v# j End Try
+ l. k$ G4 D Q2 ]4 P% \. g( ~ End Sub
1 T& ^/ P8 V( `: v# f, E9 c3 V( U8 ^, T2 N
'根据选择结果，运行相应版本的powermill
0 ~4 X' y8 T+ h" Z5 ]( w% i/ W Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
" z: Z' x( K* b Try9 ]' i+ B0 {6 B/ y: G- ^& y* q3 X# w
System.Diagnostics.Process.Start(My.Computer.Registry.LocalMachine.OpenSubKey("software\delcam\powermill\" + Me.ComboBox1.Text, False).GetValue("ExecutablePath"))
6 _: _5 }8 U$ S! v Catch ex As Exception
5 \6 o9 [7 w" z End Try
( B1 e+ U3 t) Q% t, y* ^ End Sub
1 Z+ f9 ^- I d4 V5 DEnd Class |
|
楼主