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

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

Открыть с помощью... [D7, XP]


Homo Sapiens ©   (2006-07-07 11:52:00) 

Ув. мастера!!! подскажите как можно сделать так, чтобы я мог нажать "открыть с помощью..." и началось проигрывание с помощью моего плеера


PSPF2003   (2006-07-07 12:47:00) [1]


> Ну туплю

Извиняюсь, это я туплю. Просто сейчас на работе писать слишком большие тексты не могу. Мой рабовладелец на меня с утра взъелся. :)


PSPF2003   (2006-07-07 12:45:00) [2]

Например. Если ты запустишь свой плеер. То ParamStr(0) будет содержать путь твоей программы, например C:\Play.exe. А после того как ты задашь ассоциацию с файлом и запустишь файл. Запустится твоя программа и в ParamStr(1) будет содержатся полный путь до этого файла


Homo Sapiens   (2006-07-07 12:44:00) [3]

Ну туплю. Со всеми бывает. АГРОМНОЕ СПАСИБО ЗА ПОЯСНЕНИЕ ;-)


SerJaNT   (2006-07-07 12:44:00) [4]


> Ув. мастера!!! подскажите как можно сделать так, чтобы я
> мог нажать "открыть с помощью..." и началось проигрывание
> с помощью моего плеера


Судя по вопросам автора на форуме,можно предположить что следующий его вопрос будет "А как ассоциировать муз. файлы с моей программой?" :-)


PSPF2003   (2006-07-07 12:38:00) [5]

Блин, какие сложности. ParamStr(0) это полный путь программы, а все остальные ParamStr(I) это параметры с которыми запущенна программа.


Homo Sapiens   (2006-07-07 12:23:00) [6]

А чё ето за пример???


Desdechado   (2006-07-07 12:00:00) [7]

Ну, кликаеш правой кнопкой на файле, выбираешь ис списка программ свою и играешь.
В чем проблема-то?


PSPF2003   (2006-07-07 12:00:00) [8]

Еще пример надеюсь разберешься

procedure TForm1.FormShow(Sender: TObject);
var
Str:String;
i:Integer;
begin
if (ParamCount > 0) then
 begin
  Str:=ParamStr(1);
  Memo1.Lines.LoadFromFile(Str);
 end;

end;


PSPF2003   (2006-07-07 11:58:00) [9]

По-моему этот вопрос уже задавался.


Наверх

Титульная страница Поиск, карта сайта Написать письмо