📄 17796.html
字号:
<html> <head> <title>Re: 执行档在光碟上,用VB如何呼叫??(内文)</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 执行档在光碟上,用VB如何呼叫??(内文)</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:jtomail@tomail.com.tw">j</a> on August 24, 1999 at 17:00:31:<p>In Reply to: <a href="17780.html">Re: 执行档在光碟上,用VB如何呼叫??(内文)</a> posted by 阿雄 on August 24, 1999 at 15:26:46:<p>: : : 有一个执行档GAME.EXE在光碟上,用VB的Command_chick时,如何呼叫光碟上GAME.EXE执行,谢谢!<p>: : 可以使用 Shell() 来执行<p>: 它好像固定磁碟机代号,但换别台可以出错误问题,<br>: 我意思是说如何自动光碟上执行......请教,谢谢!<p><br>小弟不明白你的意思？？？你的意思好像是说<br>光碟机代号不是固定的？如果让小弟猜到那时<br>在是太"赛"了！<p><br>Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long<p>Private Sub Command1_Click()<br>On Error Resume Next<br>Dim nDrive As String<p>For i = 67 To 90<br> nDrive = Chr(i) & ":\"<br> DoEvents<br> If GetDriveType(nDrive) = 5 Then<br> a = Dir(nDrive & "GAME.EXE")<br> If a <> "" Then<br> Shell nDrive & "GAME.EXE", vbNormalFocus<br> Exit For<br> End If<br> End If<br>Next i<br>End Sub<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17796--></ul><!--end: 17796--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -