|
|
发表于 2011-10-11 12:59:30
|
显示全部楼层
来自： 中国广东深圳
本帖最后由 yue2233 于 2011-10-14 10:17 编辑 ' j0 J6 ]% Q J9 v( e
# A) s; F# e* O A
取注册表HKEY_LOCAL_MACHINE\SOFTWARE\Delcam\PowerMILL* _/ |3 p9 ?1 c, ?* j
4 O* k; z0 Y7 Y# c# S. U$ X源代码：
v2 g" D+ t; `# T" B- P
' i" @' V; K3 g$ \2 x8 a/ I( U; U) MImports Microsoft.Win32/ n5 z4 U0 x) l N6 U* M/ k( q* o. h
Public Class Form1: h4 ?. Z: ?! y
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
/ f ?) h8 r6 g- `'查找电脑所有已安装的powermill版本8 N) P- g$ N3 ^0 |# m, ~5 M8 o
Try
9 S! m! a8 b: u1 O! [ o: y Dim hklm As RegistryKey = Registry.LocalMachine- s1 B( X& @ C
Dim d As RegistryKey = hklm.OpenSubKey("software\delcam\powermill")
% H' B8 O5 N! H1 {- L. ]- d- W! l Dim s() As String = d.GetSubKeyNames
! T6 l" S9 G8 p: q/ g ~ For Each obj In s s/ Z* X7 z/ A S
'根据查找结果，填充选择框
2 {0 C* J, r3 W$ P5 d Me.ComboBox1.Items.Add(obj)' M: |; v3 r+ }$ d3 f0 Y% |
Next1 d! E9 x3 n/ }' ~
Catch ex As Exception
3 @, S5 t4 d6 N; |3 N6 r End Try
0 J4 _# X9 v' G4 E% c End Sub
+ Q; c' j% i4 n* [/ S% I1 g( z% ^' V$ J# m
'根据选择结果，运行相应版本的powermill4 v- N6 T0 ` X6 W- R7 K* T Z0 X
Private Sub ComboBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged
8 L1 o2 C( d5 @4 s2 Z Try
# [: v1 I3 O, Z System.Diagnostics.Process.Start(My.Computer.Registry.LocalMachine.OpenSubKey("software\delcam\powermill\" + Me.ComboBox1.Text, False).GetValue("ExecutablePath"))! E2 S/ b& @& Q6 f7 X
Catch ex As Exception
! E( Z* N9 [: [2 M End Try( z/ J; e. y+ Z8 x$ m8 P* U
End Sub
! o8 I9 ^7 [6 Z9 H! GEnd Class |
|
楼主