Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.09.10;
Скачать: [xml.tar.bz2];

Вниз

Вопросик по 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.043 c
15-1155565213
PSPF2003
2006-08-14 18:20
2006.09.10
Российский сайт


1-1153733070
Mintos
2006-07-24 13:24
2006.09.10
OleContainer и Exel


15-1155885857
tesseract
2006-08-18 11:24
2006.09.10
До выхода turbo delphi осталось :


3-1152081248
zorik
2006-07-05 10:34
2006.09.10
Какое событие в TDataLink отвечает за изменение данных


15-1155020125
QuickFinder
2006-08-08 10:55
2006.09.10
Популярность поисковиков





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский