Скачать: CL | DM;

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

← →
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 ??

---

← →
Dudee ©   (2006-01-25 19:11) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c