Скачать: CL | DM;

Вопросик по ShellApi   Найти похожие ветки 

← →
GeLLeR ©   (2006-08-22 17:55) [0]

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

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;

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

---

← →
DprYg ©   (2006-08-22 18:06) [1]

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

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

---

← →
GeLLeR ©   (2006-08-22 18:12) [2]

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

---

← →
Anatoly Podgoretsky ©   (2006-08-22 18:49) [3]

%L попробуй

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c