Запуск файла

[-=alp=-]

Как сделать так чтобы когда кликну я два раза на файл home.thj запускалась моя программа, а в Command() был путь к файлу?

[sanches]

ну, во-первых зарегь расширение на твою прогу (если вручную в рееестре не6 умеешь: Вид -> Св-ва папки -> Типы файлов)
тогда путь к файлу при щелчке на нем будет передаваться в качастве параметра (myprog.exe home.thj)
А в самой проге сделать обработку Command (если предполагаются другие перамтры в ком. строке) или же просто Command1.Caption = Command

[-=alp=-]

А как программно зарегистрировать расширение на мою прогу ?

[-=alp=-]

Помогите пожалуста, очень нужно.
____________________________________________
Коллекционер информации

[RayShade]

Создать в реестре в разделе HKCR раздел. Для примера можно открыть HKCR и посмотреть, какая у него должны быть структура.

[Dr. Implex]

Сам работаю над этой фишкой, я точняк на правильном пути. В течение недели докопаюсь - обязательно напишу.
Все через [HKEY_CLASSES_ROOT] в реестре.

[-=alp=-]

Я тоже свой реестор помучаю.
Напиши на форуме о своих исследованиях
__________________________________________________
Коллекционер информации

[Gemini]

Если я правельно понял то Это будет выглядеть так:
Создаём в разделе HKEY_CLASSES_ROOT
подраздел с названием расширения файла например: .New
HKEY_CLASSES_ROOT
|
|___.New
У подраздела New задаём параметру '(По умолчанию)' значение My.New

потом создаём ещё один подраздел в разделе HKEY_CLASSES_ROOT
с именем My.New
У подраздела My.New задаём параметру '(По умолчанию)' значение 'Moy noviy fail'
Создаём ещё один подраздел в разделе My.New под именем DefaultIcon
У подраздела DefaulfIcon задаём параметру '(По умолчанию)' значение (Путь к иконке)

Создаём ещё один подраздел в разделе My.New под именем Shell
Создаём ещё один подраздел в разделе Shell под именем Open
Создаём ещё один подраздел в разделе Open под именем command

У подраздела command задаём параметру '(По умолчанию)' значение (путь к твоей проге %1) (пример: C:\Windows\Notepad.exe %1)

Вот вроде и всё.

[-=alp=-]

А что нужно написать, чтобы создать раздел или подраздел?
____________________________________________________
Коллекционер информации.

[RayShade]

НУжно почитать RTFM про Private Declare Function RegConnectRegistry Lib "advapi32.dll" Alias "RegConnectRegistryA" (ByVal lpMachineName As String, ByVal hKey As Long, phkResult As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private 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

Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long

Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long

Private Declare Function RegGetKeySecurity Lib "advapi32.dll" Alias "RegGetKeySecurity" (ByVal hKey As Long, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR, lpcbSecurityDescriptor As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (ByVal hKey As Long) As Long



И прочие функции работы с реестром

[ProgrammerVB]

Как из своего приложения запустить Project1.vbp

[Amed]

ShellExecute

[FaKk2]

ProgrammerVB
Сходи по ссылке в моей подписи.

А потом сюда.

[kirrun]

ProgrammerVB

А у тебя с головой все в порядке? А с рассудком? Этот твой вопрос в ТРЕХ топиках, как АБСАЛЮТНЫй офф!!!

[v-adix]

1. подключи к проекту registry.bas (я его приложил)
2. добавь следующий код:

Код: Выделить всё

Sub RegisterFileType(ext As String, prType As String, prOpen As String)
Dim x As String, y As String
x = getstring(HKEY_CLASSES_ROOT, ext, "")
If x <> "" Then DeleteKey HKEY_CLASSES_ROOT, x
y = Right(ext, 3)
y = y & "file"
savestring HKEY_CLASSES_ROOT, ext, "", y
savekey HKEY_CLASSES_ROOT, y & "\shell\open\command"
savestring HKEY_CLASSES_ROOT, y, "", prType
savestring HKEY_CLASSES_ROOT, y & "\shell\open\command", "", """" & prOpen & """" & " " & "%1" '& """" & "%1" & """"
End Sub

я это когда-то писал для своей проги. должно работать.

[v-adix]

да я же не написал как использовать!!!
вот:

Код: Выделить всё

RegisterFileType "*.расширение файла", "тип файла", "путь к exe файлу твоей проги"

пример:

Код: Выделить всё

RegisterFileType "*.thj", "Файлы THJ", app.path & "\" & app.exename & ".exe"