|
|
发表于 2011-10-11 12:59:30
|
显示全部楼层
来自: 中国广东深圳
本帖最后由 yue2233 于 2011-10-14 10:17 编辑 3 [' q% ]. T) T
' _/ J; i, Y) s0 F
取注册表HKEY_LOCAL_MACHINE\SOFTWARE\Delcam\PowerMILL
3 d2 e/ |6 V! H3 Q3 s- m
5 N, s. E0 a% P* B' o源代码:
: G6 }5 p* H# ^$ {* f# P+ X' P
9 u; F" y, O9 N# l9 v; ^Imports Microsoft.Win32- _- ?. B2 [+ n! \, L
Public Class Form1
# _ ^4 L2 [$ Q2 q, U- V3 y Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
) ]8 L$ |3 m) O! F5 H+ v'查找电脑所有已安装的powermill版本
( u+ {" T6 c1 n9 r Try5 p5 `4 _. D4 U& ~ A8 Q
Dim hklm As RegistryKey = Registry.LocalMachine! g/ N k; ?* X! Q2 U4 H3 @4 }
Dim d As RegistryKey = hklm.OpenSubKey("software\delcam\powermill")3 @ w% e2 i* u: ?
Dim s() As String = d.GetSubKeyNames& e ?4 p, L Q" {; v3 b, Z
For Each obj In s
9 _. s. [+ V8 ]! r' p/ O, S'根据查找结果,填充选择框
) k4 z8 U8 {. j& I5 U( h Me.ComboBox1.Items.Add(obj)
3 z3 X) l' x& K) l: r3 x2 w+ J Next
. |# v. z3 g2 j- j' l Catch ex As Exception* P' u! x& d! |8 \3 w2 n% p: Z
End Try4 F$ P2 V! k* Z4 j X' M2 _" a6 l t
End Sub
3 Y/ z" L P, D! U/ F3 d
" ?; i' ?: r- c. o2 B8 `+ Z; ^1 s'根据选择结果,运行相应版本的powermill2 e/ c& M( y" n: }) f
Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
4 ]1 m$ j: S6 p* _. U Try2 g3 V, C5 p M U5 c' ?. O
System.Diagnostics.Process.Start(My.Computer.Registry.LocalMachine.OpenSubKey("software\delcam\powermill\" + Me.ComboBox1.Text, False).GetValue("ExecutablePath"))8 X8 D) U _- ~4 J2 q9 _8 h* n: C
Catch ex As Exception
2 b6 o" T+ P; d0 _0 O. i% D5 _* \7 b End Try A2 e* J0 x1 \5 r) u( O
End Sub
6 k) ^ X2 U5 B; LEnd Class |
|