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

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

Вопросик по ShellApi [D7, XP]

GeLLeR ©   (2006-08-22 17:55:00) 

Я добавил в меню свою прогу:

procedure TMainForm.createmenu;
var
 reg:tregistry;
begin
 reg:=tregistry.Create;
 reg.RootKey:=HKEY_CLASSES_ROOT;
 reg.OpenKey('*\Shell\Open With Chuk && Gek Player',true);
 reg.WriteString('','Open With Chuk && Gek Player');
 reg.WriteString('','Open With Chuk && Gek Player');
 reg.CloseKey;
 reg.OpenKey('*\Shell\Open With Chuk && Gek Player\command',true);
 reg.WriteString('','command');
 reg.WriteString('',paramstr(0)+' "1%"');
 reg.CloseKey;
 reg.Free;
end;

Но почему-то когда я жмыкаю "Open with Chuk & Gek Player" он пишет "Invalid stream file(1)"

Вот код процедуры MainForm.Show:

if ParamCount>0 then
 begin
   PlayList_editor.ListBox1.Items.Strings[0]:=ParamStr(1);
   BASSPlayer1.Open(PlayList_editor.ListBox1.Items.Strings[0]);
   BASSPlayer1.Play;
   index:=0;
   pl_tb.Max:=BASSPlayer1.PlayLength;
   PlayList_editor.ListBox2.items.strings[0]:=ExtractFileName(
       PlayList_editor.ListBox1.Items.Strings[0]);
   label1.Caption:=PlayList_editor.ListBox2.Items.Strings[index];
   Info_to_label;
   mas_time[0]:=LenghtTime;
 end;

Самый прикол в том, что когда я жму "Открыть с помощью..." и выбираю свою прогу, всё открывается...
Помогите пожалуйста.
А. Чуть не забыл.Как сделать чтобы эта строка появлялась в меню только когда жмёшь на аудио-
файл. Заранее спасибо.

---

Anatoly Podgoretsky   (2006-08-22 18:49:00) [1]

%L попробуй

---

GeLLeR   (2006-08-22 18:12:00) [2]

Спасибо. Ой я туплю)))))))
Но теперь новый глумак: песня называется Calogero- Face A La Mer
А компик пишет: CALOGE~1.MP3

---

DprYg   (2006-08-22 18:06:00) [3]

> reg.WriteString('',paramstr(0)+' "1%"');

reg.WriteString('',paramstr(0)+' " %1"');

---

Наверх