[twix47]

У мну такой вопрос: допустим я хочу написать прогу открывающую определенный тип файлов. Например MP3 плеер... В опцах я выбираю по умолчанию открывать файл моей прогой... Вопрос вот в чем... Допустим я открываю файл который находится в D:\musik\qwerty.mp3. Я два раза клацаю - прога открывается... Как можна программно узнать путь к файлу который эту прогу открыл? За рание благодарен.

[moo2k]

Код:

ExtractFilePath(Form1.OpenDialog1.FileName);

[twix47]

Что-то не помогает...

procedure TForm1.FormShow(Sender: TObject);
begin
ShowMessage(ExtractFilePath(Form1.OpenDialog1.File Name));
end;

При открытие файла сшовмеседж пуст...

[moo2k]

Код:

Label1.Caption := Format('%s', [ExtractFileName(Form1.OpenDialog1.FileName)]);

.

[zip000]

moo2k, человек говорит о другом.

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(ParamStr(1));
end;

Функция ParamStr возвращает параметры, переданные программе, нулевым параметром (т.е. ParamStr(0)) будет имя самой программы, первым параметром (ParamStr(1)) - файл который надо открыть.

[moo2k]

to zip000
Просто человека не допонял.