Как открыть текстовые файлы по умолчанию не Блокнотом а моей программой?

HKEY_CLASSES_ROOT\.txt
Default=txtfile
(теоретически тут может быть и не txtfile, так что нужно сначала читать это значение)

HKEY_CLASSES_ROOT\txtfile\shell\open\command
Default='путь_к_твоей_программе "%1"'
%1 заменяется на имя файла
после этого в проге смотришь значение командной строки (типа имя_файлф=params(1);)

Чтобы это сделать программно - смотри "работа с реестром" по поиску или в faq, и не спрашивай как это делается т.к. запинают

Понял, попробую.

Регистрация

Код

reg:=TRegistry.Create; Reg.RootKey:= HKEY_CLASSES_ROOT; reg.OpenKey('.icd',true); reg.WriteString('Описание','txt'); reg.CloseKey; reg.OpenKey('txt\DefaultIcon', true); reg.WriteString('Путь к проге',', 0'); reg.CloseKey; reg.OpenKey('txt\shell\open\command',true); reg.WriteString('Путь к проге',' %1'); reg.CloseKey; reg.Free;

Загрузка

Код

if paramcount<>0 then memo1.Lines.LoadFromFile(ParamStr(1));

Это сообщение отредактировал(а) Girder - 21.7.2005, 20:49

Позновато я взялся за это, извините но так и не работает. В регистре кое что изменилось но боюсь что эти эксрепименты до добра не доведут. Не могли бы по подробнее что, куда, зачем а то зажарился.

Если путь к файлу будет с пробелами, то его разобьют на несколько параметров, поэтому их надо складывать, с 1-го до paramcount

А что это за paramcount и куда его писать?

Код

Var s: string;       i: Byte; ... s:=''; for i:=1 to ParamCount do S:=S+ParamStr(i);

В итоге нужный тебе файл будет в S

Это в Form.Create писать?

Открытие текстового файла при запуске программы:

Код

procedure TForm1.FormCreate(Sender: TObject); // Смотрим количество параметров и, если больше нуля, то проверяем на существование // файла   if (ParamCount > 0) and (FileExists(ParamStr(1))) then   begin // открываем файл     Memo1.Lines.LoadFromFile(ParamStr(1));     Caption:= ParamStr(1);   end   else   begin // новый файл     Memo1.Clear;     Caption:= 'Безымянный';   end; end;

Нажатие на кнопку/меню/еще чего-нибудь "Ассоциировать программу с TXT файлами":

Код

procedure TForm1.btnAssocClick(Sender: TObject); begin   with TRegistry.Create do   try     RootKey:= HKEY_CLASSES_ROOT;     OpenKey('\.txt\',true);     WriteString('','txtfile');     CloseKey;     OpenKey('\txtfile\DefaultIcon\', True); // Название программы лучше всего брать в двойные ковычки     WriteString('', '"' + ParamStr(0) + '", 0');     CloseKey;     OpenKey('\txtfile\shell\open\command',true); // вот тут и была ошибка. дело в том, что лучше всего брать и программу в двойные кавычки и // параметр %1 тоже в двойные ковычки.     WriteString('', '"' + ParamStr(0) + '" "%1"');     CloseKey;   finally     Free;   end; end;

Что такое ParamStr? - это передаваемые программе параметры. Например, prog.exe /help - здесь /help является параметром. Его можно получить по команде ParamStr(1)
Что такое ParamCount? - это количество параметров. Например, prog.exe /s /m - здесь 2 параметра, потому ParamCount = 2. Второй параметр можно получить по команде ParamStr(2) и т.д.
Что такое ParamStr(0)? - это параметр №0. Он всегда равен полному пути к программе (включая и имя файла). Например, c:\txtreader\tr.exe

PS:
не забудьте в uses прописать Registry ...

Пробуйте

Это сообщение отредактировал(а) Droll - 6.8.2005, 15:14

Цитата

if (ParamCount > 0) and (FileExists(ParamStr(1))) then   begin // открываем файл     Memo1.Lines.LoadFromFile(ParamStr(1));     Caption:= ParamStr(1);

Если приложением захотят открыть C:\Documents and Settings\1.txt,
то Paramstr(1) будет равен C:\Documents , параметр 2 = and и т.д

Поэтому я и говорю: их надо складувать.

Цитата

procedure Tform1.LoadFile; var i: integer; FFileName: string; begin FFileName := ''; for i := 1 to ParamCount() do    FFileName := FFileName + ParamStr(i); if not FileExists(FFileName) then begin   exit; end else memo1.Lines.LoadFromFile(FFileName); end;

Вызываешь енту процедуру в форм креате! И все, никаких замарочек.
В винде поставь чтобы *.txt оькрывала твоей прогой!
Програмно привязать:

Цитата

//находит путь к экзэшнику function GetExePath:string; begin Result:=ExtractFilePath(paramstr(0)); end; //присваивает procedure tform1.naznachenie; var R : TRegIniFile; begin R := TRegIniFile.Create(''); with R do   begin    RootKey := HKEY_CLASSES_ROOT;    WriteString('.txt','','txt');    WriteString('txt','','Some description of htm files');    WriteString('txt\DefaultIcon','',GetExePath+'вставить путь к твоей иконке в папке с твоаей прогой');     WriteString('txt\Shell','','This_Is_Our_Default_Action');    WriteString('txt\Shell\First_Action',       '','This is our first action');    WriteString('txt\Shell\First_Action\command','',       GetExePath+'\вставить название экзешника /LotsOfParamaters %1');    WriteString('txt\Shell\This_Is_Our_Default_Action','',       'This is our default action');    WriteString('txt\Shell\This_Is_Our_Default_Action\command',       '',GetExePath+'\вставить название экзешника %1');    WriteString('txt\Shell\Second_Action',       '','This is our second action');    WriteString('txt\Shell\Second_Action\command',       '',GetExePath+'\вставить название экзешника /TonsOfParameters %1');    Free;   end;end;

ну и в uses прописать Registry ...
у меня работает!

Это сообщение отредактировал(а) R0nin - 7.8.2005, 03:22

Цитата(Dimannn @ 6.8.2005, 22:06)

Цитата if (ParamCount > 0) and (FileExists(ParamStr(1))) then   begin // открываем файл     Memo1.Lines.LoadFromFile(ParamStr(1));     Caption:= ParamStr(1); Если приложением захотят открыть C:\Documents and Settings\1.txt, то Paramstr(1) будет равен C:\Documents , параметр 2 = and и т.д Поэтому я и говорю: их надо складувать.

потому-то я, при ассоциации файлов сделал так:
"ParamStr(0)" "%1"
т.к. "%1" взят в кавычки, то ParamStr(1) в Вашем случае будет равен C:\Documents and Settings\1.txt

Вы сначала код почитайте, а потом гофорите...