AutoRun

[Rembo]

Помогите ламеру! Я хочу сделать авторан для диска, как мне сделать ссылку на файл, чтоб он запускался при нажатии кнопки и как при том же нажатии другой кнопки открывался проводник с нужной папке на диске?

[Dex]

Както ты непонятно разъяснил ситуацию:
1.Тебе надо запустить файл при нажатии по первой кнопке(файл с каким расширением?).
2.По нажатию другой кнопки ты хочешь запускать проводник с указанной в ней срузу папкой.

[Oxygen]

А что тут сложного? Прописываешь не полный путь (без указания метки диска), соответствии с тем, где находится юзвер в данный момент генеришь путь и имя файла, а потом через shell запускаешь этот файл. А по второму вопросу, вызываешь Explorer с параметром той папки, которую нужно отобразить.
2Dex запускать можно, насколько мне помнится файлы с немногочисленными расширениями (exe, bat, com, src). Да и какое это имеет значение?

[Rembo]

Я хочу нажать первую кнопку и вылезет setup одной проги (=> setup.EXE) А второй кнопкой будет открываться папка с архивами (и все ето должно быть на диске)

[GSerg]

А, он хочет оболочку...

[Dex]

Хм...

[Rembo]

Oxygen не можешь ли пример скрипта показать, плз?

[Oxygen]

Ща, только vb установлю. У меня только .NET. Могу правда на нем. Если тебя это не затруднит.

[Konst_One]

не страдайте, а поставьте себе AutoRun Pro 2.0.1 и делайте себе любые оболочки.

да и вообще , таких прог полно по инету валяется

[Oxygen]

Вот это логично. На самом деле проще что-нить подобное заюзать, чем писать самому. Тем-более, что это бывает опасно. Прикинь, если ты будешь писать на VB.NET или VB 6, а на компе, нет нужных библиотек (Win 95 или 98). Или ты их с собой будешь прикладывать?

[Александр80]

Самому интересней…

Можно так, с помощью – API:
Option Explicit
'This example requires a command button (Command1)
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
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
Const SE_ERR_NOASSOC = 31
Const sOperation As String = "open" ' Constants for shell operations
Const sRun As String = "RUNDLL32.EXE"
Const sParameters As String = "shell32.dll,OpenAs_RunDLL "
Private Function shelldoc(sfile As String)
Dim sPath As String, RetVal As Long, _
lRet As Long
lRet = ShellExecute(GetDesktopWindow(), sOperation, sfile, _
vbNullString, vbNullString, SW_SHOWNORMAL)
If lRet = SE_ERR_NOASSOC Then ' No association exists
'Create a buffer
sPath = Space(255)
'Get the system directory
RetVal = GetSystemDirectory(sPath, 255)
'Remove all unnecessary chr$(0)'s
'and move on the stack
sPath = Left$(sPath, RetVal)

lRet = ShellExecute(GetDesktopWindow(), "open", sRun, _
sParameters + sfile, sPath, SW_SHOWNORMAL)
End If
End Function
Private Sub Command1_Click()
Call shelldoc("C:\myfile.txt") ‘Открыть или запустить файл
Call shelldoc("C:\ ") ‘Открыть папку…
End Sub

(Тупо скопировал из API Guide, классная вещь)
Можно открыть, запустить любой файл…

Можно так:
Private Sub Command1_Click()
Shell "C:\qwqwqwq\qq.exe", vbNormalFocus 'Имеет некоторые ограничения в отличае от ShellExecute
‘vbNormalNoFocus
‘vbMaximizedFocus
‘vbMinimizedFocus
‘vbMinimizedNoFocus
‘vbNormalFocus
End Sub

Путь можно указывать так:
Shell app.Path & "\qwqwqwq\qq.exe", vbNormalFocus


Ты это спрашивал…?

[Александр80]

Можно так...

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

Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "c:\", vbNullString, vbNullString, 1
End Sub