открыть файл своей программой

← →
Dudee © (2006-01-24 20:02) [0]

Ребятки, помогите плз, буду очень признателен!
Такая ситуация: написал я прогу, которая делает кучу ерунды, а потом (по команде юзера) сохраняет всё что наделала в файл уникального формата.Может (по команде того же юзера) потом этот файл открыть. Меня интересует следующее: как сделать так, чтобы при двойном клике на файл, он открывался этой погой? Получилось присвоить этим файлам иконку проги
var Reg : TRegistry; begin try Reg := TRegistry.Create; Reg.RootKey := HKEY_CLASSES_ROOT; Reg.OpenKey(".tec",true); Reg.WriteString("","FluorFile"); Reg.CloseKey; Reg.OpenKey("FluorFile",true); Reg.WriteString("","FAnalyser"); Reg.OpenKey("DefaultIcon",true); Reg.WriteString("",ParamStr(0) + ",0"); Reg.CloseKey; Reg.OpenKey("FluorFileshellopencommand",true); Reg.WriteString("",ParamStr(0) + "%1"); finally Reg.Free; end; end;
но когда запускаю файл, открывается список всех программ,чтоб я выбрал одну из них. Даже если выбираю свою, то открывается пустое окно моей проги,как еслибы я посто запустил exe"шник :( Подскажите, как можно указать на процедуру Load, которой я окрываю файлы изнутри программы?

← →
TUser © (2006-01-24 20:37) [1]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/programmersguide/shell_basics/sh ell_basics_extending/fileassociations/fa_intro.asp

← →
ArtemESC © (2006-01-24 20:42) [2]

ParamStr ??

Почему при запуске файла ParamStr(1) = пустой строке? Ведь по иде это и есть путь к файлу, или нет?

открыть файл своей программой Найти похожие ветки