Q: Вот возник вопрос по запуску mp3. Сейчас привык делать это из эксплорера, там два варианта запуска: или просто щелчок по файлу (или выбор нескольких фалов + Enter) - это для прослушивания; или выбор файлов, right-click, Enqueue in Winamp - это для добавления в очередь. Соответственно, хотелось бы попроще реализовать это в TC. Например, две кнопки на панели, одна запускает "winamp.exe список_файлов", вторая - "winamp.exe /ADD список_файлов". Даже сделал такие кнопочки (вызов winamp.exe %L), но в винамп добавляется только "e:\winxp\Temp\CMD1B5.tmp" и т.д., номер меняется каждый раз. Как же быть? Нашел TWinAmp2 fs-плугин, но это совсем не то, что мне надо. Нашел еще WALaunch4TC - похоже, даже работает, но он запускается в отдельном окне, на которое на несколько секунд переходит фокус... :(
A: Создайте *.vbs и повесьте на кнопку:
'Проигрывание\добавление отмеченных файлов в Winamp 'В параметрах необходимо прописать %L, если нужно добавить в список 'Если нужно заменить список, нужно указать любой второй параметр
Dim Winamp Winamp = "d:\Program Files\Winamp5\winamp.exe" 'Путь к Winamp-у
Set objArgs = WScript.Arguments Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(objArgs(0), 1) Set WS = CreateObject("WScript.Shell")
if objArgs.Count > 1 then Str = TempFile.ReadLine if Right(Str,1) = "\" then Str = Left(Str, Len(Str) - 1) end if WS.run chr(34) & Winamp & chr(34) & " " & chr(34) & Str & chr(34) end if
Do While Not TempFile.AtEndOfStream Str = TempFile.ReadLine if Right(Str,1) = "\" then Str = Left(Str, Len(Str) - 1) end if WS.run chr(34) & Winamp & chr(34) & " /add " & chr(34) & Str & chr(34) Loop
