Как узнавать параметры к проге?

Люди, помогите!
Предположим, мою прогу запустили с каким-нибудь параметром (например, через функцию Shell).
Как мне узнать его?

И еще.

Например, если моя прога назначена для открытия какого-нибудь типа файлов, то после открытия файла хотелось бы загрузить файл в прогу.
Как это сделать?

Всем заранее благодарен.

0

1. Смотри хелп на Command$.

2. Держи код:
[code]
Option Explicit
'
Public Declare Function GetWindowsDirectory Lib 'kernel32' Alias 'GetWindowsDirectoryA' _
(ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
'
Public Declare Function RegCreateKeyEx Lib 'advapi32.dll' Alias 'RegCreateKeyExA' _
(ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal Reserved As Long, _
ByVal lpClass As String, _
ByVal dwOptions As Long, _
ByVal samDesired As Long, _
lpSecurityAttributes As SECURITY_ATTRIBUTES, _
phkResult As Long, _
lpdwDisposition As Long) As Long
'
Public Declare Function RegSetValueEx Lib 'advapi32.dll' Alias 'RegSetValueExA' _
(ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal Reserved As Long, _
ByVal dwType As Long, _
lpData As Any, _
ByVal cbData As Long) As Long
'
Public Declare Function RegCloseKey Lib 'advapi32.dll' _
(ByVal hKey As Long) As Long
'
Public Declare Sub SHChangeNotify Lib 'shell32.dll' _
(ByVal wEventId As Long, _
ByVal uFlags As Long, _
ByVal dwItem1 As Long, _
ByVal dwItem2 As Long)
'
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Boolean
End Type
'
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const REG_SZ = 1
Public Const KEY_ALL_ACCESS = &H3F
Public Const SHCNE_ASSOCCHANGED = &H8000000
Public Const SHCNF_IDLIST = 0
'
Sub Main()
Call RegisterExtension('.mbf', 'MyApp.BatchFile', 'Пакетный файл ' + _
'MyApp', 'C:...myapp.exe')
End Sub
'
Sub RegisterExtension(ByVal fileExt As String, ByVal fileType As String, ByVal _
fileDescr As String, ByVal fullExeName As String)

' ***
' *** Функция для ассоциации типа файла с приложением
' *** fileExt - расширение файла
' ***

Dim retVal As Long
Dim result As Long
Dim SA As SECURITY_ATTRIBUTES
Dim tmp As String

' Создаем ключ для программы:
retVal = RegCreateKeyEx(HKEY_CLASSES_ROOT, fileType, 0, vbNullString, 0, _
KEY_ALL_ACCESS, SA, result, &H1)
' Присваиваем его значению по умолчанию название программы:
RegSetValueEx result, '', 0, REG_SZ, ByVal fileDescr, Len(fileDescr)
Call RegCloseKey(result)

' Создаём ключ, связанный с расширением файла:
retVal = RegCreateKeyEx(HKEY_CLASSES_ROOT, fileExt, 0, vbNullString, 0, KEY_ALL_ACCESS, SA, result, &H1)
' Присваиваем значению по умолчанию название программы:
RegSetValueEx result, '', 0, REG_SZ, ByVal fileType, Len(fileType)
Call RegCloseKey(result)

' Определяем командную строку для приложения ('Открыть'):
tmp = Chr$(34) + fullExeName + Chr$(34) + ' ' + Chr$(34) + '%1' + Chr$(34)
retVal = RegCreateKeyEx(HKEY_CLASSES_ROOT, fileType & 'shellopencommand', 0, vbNullString, 0, KEY_ALL_ACCESS, SA, result, &H1)
RegSetValueEx result, '', 0, REG_SZ, ByVal tmp, Len(tmp)
Call RegCloseKey(result)

' Определяем командную строку для редактирования ('Изменить'):
tmp = '&Изменить'
retVal = RegCreateKeyEx(HKEY_CLASSES_ROOT, fileType & 'shelledit', 0, vbNullString, 0, KEY_ALL_ACCESS, SA, result, &H1)
RegSetValueEx result, '', 0, REG_SZ, ByVal tmp, Len(

Спасибо.

0