Многие приложения запускаются открытием файлов с которыми они ассоциированы. Как это делается?

Например при открытии файла с расширением МР3 загружается Winamp и в нем проигрывается данный файл, и т.д.

в реестре настроить чтобы твоё прложени было по умолчанию для этого типа файлов!
просто через меню кликаешь открываешь свойства вайла и выбираешь прогу какую использовать для этого типа!

в самой проге надо при запуске загружать этот файл в неё путь к файлу хранится в ParamStr !

Вот здесь написано как ассоциировать файл со своим приложением - http://www.drkb.ru/

http://forum.vingrad.ru/index.php?act=modu...faq§ion=711

Ассоциировать файл с программой это не сложно, а вот как открыть потом его в своем приложении?

"в самой проге надо при запуске загружать этот файл в неё путь к файлу хранится в ParamStr !"

Вот описание функции:
function ParamStr(Index: Integer): string; Что за индекс в нее нужно подставлять?

Насколько я понимаю (а в Дельфи я понимаю мало) мне нужно в обработчике события OnCreate проверить существует ли файл который запустил мою программу, и если да то открыть его в ней.

Если я понимаю правильно поясните подробнее как это нужно сделать, что то у меня не выходит.

ParamStr(0) - путь до файла программы
ParamStr(1) - первый входной параметр

Цитата

Насколько я понимаю (а в Дельфи я понимаю мало) мне нужно в обработчике события OnCreate проверить

правильно...
с помощью ParamStr(1) получиш адрес файла

Код

procedure Tform1.LoadFile; var  i: integer; begin  FFileName := '';  for i := 1 to ParamCount() do    FFileName := FFileName + ParamStr(i);  if not FileExists(FFileName) then begin   FileNew1.Execute;   exit;  end  else Edit.Lines.LoadFromFile(FFileName); end;

Цитата

FFileName := ''; for i := 1 to ParamCount() do   FFileName := FFileName + ParamStr(i);

или я чего-то недогоняю, или..... Это-то зачем?... может просто:

Код

FFileName := ParamStr(1); if not FileExists(FFileName) then begin       OpenDialog1.Execute;       exit;      end      else Memo1.Lines.LoadFromFile(FFileName);

Открываешь файл по ассоциации (как это сделать - описано выше), а в проге можешь обрабатывать файл например так (выдрано из одной моей программы):

Код

procedure TForm1.FormCreate(Sender: TObject); var   GlobalFileName:string; begin   GlobalFileName:='';   If ParamCount>0 then     begin       If fileexists(ParamStr(1)) and (ExtractFileExt(ParamStr(1))='.pbo') then         begin           If Length(ExtractFileDrive(ParamStr(1)))<>0 then             begin               GlobalFileName:=ParamStr(1);             end           else             begin               GlobalFileName:=ExtractFilePath(ParamStr(0))+ParamStr(1);             end;           Edit1.Text:=GlobalFileName;         end       else         begin           MessageDlg('Некорректный файл: '+ParamStr(1), mtError, [mbOk], 0);           Application.Terminate;         end;     end;   end;

В Edit1 и будет переданный приложению файл

Всем спасибо!
Разобрался, сделал.
Только действительно непонятно зачем нужен этот цикл: for i := 1 to ParamCount() do ?