| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

открыть файл своей программой [D6, Win2k]

Dudee ©   (2006-01-24 20:02:00) 

Ребятки, помогите плз, буду очень признателен!
Такая ситуация: написал я прогу, которая делает кучу ерунды, а потом (по команде юзера) сохраняет всё что наделала в файл уникального формата.Может (по команде того же юзера) потом этот файл открыть. Меня интересует следующее: как сделать так, чтобы при двойном клике на файл, он открывался этой погой? Получилось присвоить этим файлам иконку проги

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, которой я окрываю файлы изнутри программы?

---

Dudee   (2006-01-25 19:11:00) [1]

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

---

ArtemESC   (2006-01-24 20:42:00) [2]

ParamStr ??

---

TUser   (2006-01-24 20:37:00) [3]

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

---

Наверх