|
|
发表于 2011-10-11 12:59:30
|
显示全部楼层
来自: 中国广东深圳
本帖最后由 yue2233 于 2011-10-14 10:17 编辑
2 C6 E) o( D2 }" w2 B# d. @4 z6 h& U$ Z+ a+ i
取注册表HKEY_LOCAL_MACHINE\SOFTWARE\Delcam\PowerMILL* A4 }6 W a9 G K, r2 c
7 M4 R8 S# Q% d4 d8 G; C源代码:
1 B# `- u( ]7 U) ]3 k5 K7 W# d
% P* g. U0 Y7 g" t% H$ [. xImports Microsoft.Win32; ]3 D+ y( T4 X
Public Class Form1
: y& J% H- A, j' r# V Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load5 C3 l* L/ c0 L8 p0 T- L2 z8 J1 ^
'查找电脑所有已安装的powermill版本
7 m) u+ \" S/ B/ f# X; k6 J Try
/ I+ s. X; `( b/ _+ I Dim hklm As RegistryKey = Registry.LocalMachine& y% h6 M! _3 D- j# n
Dim d As RegistryKey = hklm.OpenSubKey("software\delcam\powermill")/ G p4 ^; j1 {% h& ?/ U2 ?
Dim s() As String = d.GetSubKeyNames, u: H+ {! c9 ?$ D( |! R
For Each obj In s% [% L" k4 X3 e# p7 r2 C* D, W j
'根据查找结果,填充选择框
7 \! @# F4 o2 ^, T; h' B" a7 _ Me.ComboBox1.Items.Add(obj)
) L! \& I- ^/ B; N4 [* z. c Next
# T- ~4 |* z( N. r1 c; s1 y Catch ex As Exception& n% Q' @- ~8 c2 I
End Try8 Q$ P; v1 H8 w" B% x% `2 j
End Sub0 A# Q0 o4 }' T* |$ U" l" U6 s- }
: k4 Z# P8 E" q/ Y, ]3 b'根据选择结果,运行相应版本的powermill: x% a9 h. m: h& G( |0 ~( I7 N
Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged2 Z1 k" l& M$ N2 t7 g
Try- Y9 j1 `/ n8 h1 m5 v6 W$ J; n
System.Diagnostics.Process.Start(My.Computer.Registry.LocalMachine.OpenSubKey("software\delcam\powermill\" + Me.ComboBox1.Text, False).GetValue("ExecutablePath"))
1 X( z6 ^ V8 @2 `7 d( `; P Catch ex As Exception
4 A8 i( C! V% k2 ?3 ?# e9 W End Try$ b- o& N1 J, j4 g
End Sub0 L) Q) V. u+ A
End Class |
|