Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.09.10;
Скачать: 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 вся ветка

Текущий архив: 2006.09.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.063 c
1-1153735081
Чапаев
2006-07-24 13:58
2006.09.10
DbGrib, background


6-1145597801
ms_odin
2006-04-21 09:36
2006.09.10
Анализ и обработка служебной информации


6-1145621614
dest81
2006-04-21 16:13
2006.09.10
IdSMTP и ProgressBar


2-1155804709
UMU
2006-08-17 12:51
2006.09.10
Вычесть дату


3-1152245904
Хой
2006-07-07 08:18
2006.09.10
Компонент xlReport