Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

создание редакторов, плееров и т.д.

Igorexa © (2003-06-11 16:30:00)

Может кто-нибуть подскажет как сделать чтобы определенный тип файла открывался моей программой, при этом необходимо определить вайл который прога должна открыть. Например "Блокнот" - при щелчке по *.txt запускается и открывает нужный файл - Помогите пожалуйста!!!

Rol (2003-06-21 07:38:00) [1]

А что я хотел сказать?! Ах, ну да, матюкаться некрасиво...

Igorexa (2003-06-21 05:00:00) [2]

Дело в том что мне не нужно регистрировать расширение за моей прогой - это я знаю как сделать; Я имел ввиду как сделать чтобы при двойном щелчке на файле моего типа запустилась копия моей программы и получила путь к открытому файлу, но ответ я уже сам нашел - ParamStr(0)!!! Но всеравно спасибо.

msgipss (2003-06-11 17:12:00) [3]

в 98, w2k и wxp это работает, в 95 не проверял, 8) не ругайся...

LMD (2003-06-11 17:07:00) [4]

Поэтому и был вопрос об операционке. Кроме того, в w2k - сработает, в xp не знаю.

msgipss (2003-06-11 16:59:00) [5]

совсем не уверен что в w2k or wxp это сработает

LMD (2003-06-11 16:46:00) [6]

to
> msgipss

проще добавить в win.ini в [embedding] и в [Extensions]
что то плана
midfile=Файл MIDI,Файл MIDI,C:\SYSTEM_DIR\mplayer.exe /mid,picture

msgipss (2003-06-11 16:38:00) [7]
procedure RegisterExt(SFileFullName:String); ( "")
procedure RegisterExt(SFileFullName:String); // Регистрация в системе расширений и значка
var R:TRegIniFile;
begin
R := TRegIniFile.Create("");
with R do begin
RootKey := HKEY_CLASSES_ROOT;
WriteString(".cpi","","FixChart");
WriteString("FixChart","","Программа просмотра архивной инормации по параметрам");
WriteString("FixChart\DefaultIcon","",SFileFullName+",0");
WriteString("FixChart\Shell","","This_Is_Our_Default_Action");
WriteString("FixChart\Shell\First_Action","","Открыть группу трендов");
WriteString("FixChart\Shell\First_Action\command","",SFileFullName+" /LotsOfParamaters %1");
WriteString("FixChart\Shell\This_Is_Our_Default_Action","","This is our default action");
WriteString("FixChart\Shell\This_Is_Our_Default_Action\command","",SFileFullName+" %1");
Free;
end;
end;

LMD (2003-06-11 16:35:00) [8]

PS. Объясни Palladin"у, причем тут
> создание редакторов, плееров и т.д.
:)

LMD (2003-06-11 16:33:00) [9]

Какая у тебя операционная система, родной?

Наверх

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