Опять про Блокнот

[Jenizix]

Ну скажите плиз как можно мой блокнот привязать к файлам с расширением .TXT


ПЛИЗ!!!

[areh]

Связать расширение файла с приложением

Данный пример покажет, как можно связать файлы с расширением .BAR с вашим приложением. В моем случае - это приложение для редактирования текстовых файлов.

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

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 RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
' Return codes from Registration functions.
Const ERROR_SUCCESS = 0&
Const ERROR_BADDB = 1&
Const ERROR_BADKEY = 2&
Const ERROR_CANTOPEN = 3&
Const ERROR_CANTREAD = 4&
Const ERROR_CANTWRITE = 5&
Const ERROR_OUTOFMEMORY = 6&
Const ERROR_INVALID_PARAMETER = 7&
Const ERROR_ACCESS_DENIED = 8&
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const MAX_PATH = 260&
Private Const REG_SZ = 1

Private Sub Command1_Click()
Dim sKeyName As String
Dim sKeyValue As String
Dim ret&
Dim lphKey&

'Создание ключа "MyApp".
sKeyName = "MyApp"
sKeyValue = "My Application"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'Создание ключа, связанного с "MyApp".
sKeyName = ".BAR"
sKeyValue = "MyApp"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'Коммандная линия для приложения"MyApp".
sKeyName = "MyApp"
sKeyValue = "D:\Basic\MyProjects\SharPad\SharPad.exe %1"
ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH)

End Sub

[Jenizix]

Да, но у меня не видно содержимого файла в TextBox'e
=(

[areh]

Да, но у меня не видно содержимого файла в TextBox'e
=(

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

[mefestofele]

Для прграммы блокнот будет лучше заюзать RichTextBox
Project->component microsoft->RichTextBox
Ты сразу заметиш разницу (позоляет применять различные форматирование к фрагментам текста)
Уточничто должнаделать твояяяяпрограмма

_________________
Да поможет тебе F1, Да сохранит тебя F2. Во имяя ALT'a, SHIFT'a и свяятого DEL'a, ESC.

[Jenizix]

Если у кого есть пример на эту тему, то дайте!
ПЛИЗ!!!

[Sirik]

Наверное проблема в следущем, его программа не обрабатывает функцию command.
Т.е. в начале (может процедура Main) программы анализируешь функцию Command$.

Например: Command$=" C:\My.txt" - это и есть твой файл, затем открывай его и работай с ним