|
|
-Как запустить ЕХЕ-файл?
Используйте оператор Shell. Например
Shell ("C:\Games\Tetris\tetris3.exe") или
x=Shell ("C:\Games\Tetris\tetris3.exe")
Все очень просто, вызываете Shell, а в скобках и кавычках указываете полный
путь. Во втором примере переменная х будет содержать идентификатор программы
(уникальный идентификатор запущенной программы), либо 0, если программу не
удалось запустить. Чтобы открыть какой-нибудь файл в сопоставленной для него
программой (например какой-нибудь txt в Notepad-е), нужно использовать API,
обычный оператор Shell для этого не годится. Об этом читайте ниже.
-Как запустить какой-нибудь файл в сопоставленной для него программе?
Правильнее было бы сказать как запустить сопоставленную программу и открыть
в ней указанный файл. Делается это с помощью API-функции ShellExecute.
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters As _
String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
ShellExecute Me.hwnd, vbNullString, "C:\Docs\Inetcrack.txt", _
vbNullString, "C:\", SW_SHOWNORMAL
End Sub
Вместо C:\Docs
\Inetcrack.txt напишите то, что у вас есть. Таким же образомможно создавать e-mail письма. Вместо C:\Docs
\Inetcrack.txt напишитеmailto:maxx@migsv.ru?subject=Example. Также можно открывать гипертекстовые
ссылки, для этого напишите http://k12.chat.ru (всегда указывайте протокол,
http:// или ftp:// ...).