Вот нашёл код которые регестрирует своё расширение в реестре. Сделал событие на кнопку. Вроде всё нормально, ещё в панели управление просмотрел все расширения, расширение появилось. Но. У меня есть как бы текстовой редактор, я регестрирую для него расширение tef (TextEditorFile) . Сохраняю файл например 1.tef . Нажимаю на него открываеться редактор а сожержимое непокахываеться..почему? Мне говорили всё дело с регестрацией расширения...
И как сделать чтобы как тока программа запускалась создавалось расирение а в следующий раз эта процедура невыполнялась. Или сделать проверку существует ли такое расширение?

Это сообщение отредактировал(а) Vco - 15.2.2003, 05:37

А и ещё, можно вопросик) Как зделать подобно HTML-у при клике на надпись открывалась веб-страница? Т.е. хочу сделать раздел о программе и там указать сайт, и при клике открывался адрес.

Цитата

А и ещё, можно вопросик) Как зделать подобно HTML-у при клике на надпись открывалась веб-страница? Т.е. хочу сделать раздел о программе и там указать сайт, и при клике открывался адрес.

В событие OnClick пишешь:

Код

ShellExecute(Handle, 'open', 'http://...',nil,nil,SW_RESTORE);

PS: Один топик - один вопрос

Спасибо) . Ок, тада щас весь фоорум в моих топах будет т.к. только начал дельфи учить

А какой юнит для shellexecute нужен? Пишет что незнает такой процедуры..

Цитата

Ок, тада щас весь фоорум в моих топах будет т.к. только начал дельфи учить

Не, для начала есть FAQ.

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

Цитата(Vco @ 14.2.2003, 21:20)

А какой юнит для shellexecute нужен? Пишет что незнает такой процедуры..

ShellAPI

www.pascal.sources.ru ты там был, в faq напсано...

Код

Uses ..., Registry; ... Procedure TForm1.RegisterFileType(prefix:String; exepfad:String); Begin With TRegistry.Create Do  try   RootKey:=HKEY_CLASSES_ROOT;    { create a new key --> .pci }   OpenKey('.'+prefix,True);    { create a new value for this key --> pcifile }   WriteString('',prefix+'file');   CloseKey;    { create a new key --> pcifile }   CreateKey(prefix+'file');    { create a new key pcifile\DefaultIcon }   OpenKey(prefix+'file\DefaultIcon',True);    { and create a value where the icon is stored --> c:\project1.exe,0 }   WriteString('',exepfad+',0');   CloseKey;   OpenKey(prefix+'file\shell\open\command',True);    { create value where exefile is stored --> c:\project1.exe "%1" }   WriteString('',exepfad+' "%1"');   CloseKey;  finally   Free;  end; end; procedure TForm1.Button1Click(Sender: TObject); Begin RegisterFileType('pci','c:\project1.exe'); End;

To Вася: Читаю потихоньку...но всё же форум это хорошо )

Это сообщение отредактировал(а) Vco - 15.2.2003, 06:43

Вот мой код:

Код

procedure registerfiletype(ft,desc:string); begin    ft := '.'+ft;    with Treginifile.create do      try        rootkey := hkey_classes_root;        writestring(ft,'','MyType');        writestring('MyType','',desc);        writestring('MyType\shell\open\command','',Paramstr(0)+' "%1"');    finally        free;    end; end;

э Выдаёт ошибку:Incopatible types:tobject and string.
Можешь написать своё пример с расширегием tef? Вот я написал твою процедуру, потом на событие onclick кнопки написал
registerfiletype('tef','c:\texteditor.exe');
Так?

Код

procedure registerfiletype(ft,desc:string); begin   ft := '.'+ft;   with Treginifile.create do     try       rootkey := hkey_classes_root;       writestring(ft,'','texteditor');       writestring('texteditor','','texteditor');       writestring('texteditor\shell\open\command','','desc "%1"');   finally       free;   end; end;

А ты параметры загрузки смотришь?
(ParamStr(index))

Неможешь объяснить подробнее? Просто я книгу читаю, там тока прошёл развитые элементы типа блонкнот, трэкбар и т.д. а реестр вообще нехатрагивал...просто спросил почему файл с таким расширением в текст редакторе не открываеться (то есть его содержимое), сказали добавь расширение в реестр..и что?? Всё равно файл то не отображаеться в редакторе...

Блин, я тебе в аське говорил, что имя файла передаётся как параметр к твоей программе т.е. если у тебя редактор сделан на основе TMemo, тогда напиши загрузку файла в мемо: Memo1.Lines.LoadFromFile(ParamStr(1)); Сколько можно объяснять? Из-за такой ерунды устроил переполох здесь, на исходниках, да ещё и мне в аське все мозги проел!