Как связать расширение с прогой?

← →
Intell (2003-04-19 19:09) [0]

У меня плеер, нужно, чтобы медиа открывалось через него. Как в Winamp`е - открылось и заиграло...

← →
Kair (2003-04-19 21:32) [1]

Программа должна сама уметь автоматически проигрывать при открытии.
А расширение связывается в реестре.
Может в FAQ про это есть.

← →
Intell (2003-04-20 10:28) [2]

Больная тема - FAQ...

← →
Spartak (2003-04-21 07:14) [3]

Посмотри на http://delphibase.endimus.com/ там точно есть

← →
Rocker (2003-04-21 07:24) [4]

Нужно зарегистрировать это расширение ("ext"). Для этого в реестре нужно создать два раздела. Первый HKEY_CLASSES_ROOT\.ext. В нем, в параметре "по умолчанию" нужно написать "MyProg". В разделе KEY_CLASSES_ROOT\MyProg "по умолчанию" поставь "Файл моей программы". Эта фраза будет отображаться в Проводнике в колонке "Тип". А в HKEY_CLASSES_ROOT\MyProg\Shell\Open\Command напиши "С:\MyProg.exe "%1"".
А при запуске программы проверяй, нет ли в параметрах имени файла, а если есть, то открой этот файл.

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
FileName: string;
begin
Reg := nil;
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey("\.ext", true);
Reg.WriteString("", "MyProg");
Reg.CloseKey;
Reg.OpenKey("\MyProg", true);
Reg.WriteString("", "My document");
Reg.CloseKey;
Reg.OpenKey("\MyProg\Shell\Open\Command", true);
Reg.WriteString("", ParamStr(0) + " "%1"");
Reg.CloseKey;
Reg.OpenKey("\MyProg\DefaultIcon", true);
Reg.WriteString("", ParamStr(0) + ", 1");
Reg.CloseKey;
finally
if Assigned(Reg) then Reg.Destroy;
end;
if ParamCount > 0 then begin
FileName := ParamStr(1);
if FileExists(FileName)
then Memo1.Lines.LoadFromFile(FileName)
else ShowMessage(FileName + " не существует");
end;
end;

← →
Intell (2003-04-21 12:30) [5]

Rocker, посмотрю и заценю. Спасибо за ответ.

← →
Intell (2003-05-27 11:23) [6]

Rocker, огромное спасибо, сработало! Испробовал исходник только вчера.

Как связать расширение с прогой? Найти похожие ветки