Вопросик по 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

%L попробуй

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