Подскажите, пожалуйста...

← →
!_SM_! (2006-07-20 00:41) [40]

> Footballer © (20.07.06 00:22) [39]
> Куда?
>
> Footballer © (18.07.06 00:15)
> 1) Как можно "открыть с помощью" сразу несколько файлов и по очереди
> их обработать;

А куда надо?

← →
!_SM_! (2006-07-20 00:42) [41]

Я просто пример написал обработки файлов по очереди, а дальше сам чего хочешь с ними (файлами из спика) делай.

← →
Footballer © (2006-07-20 00:57) [42]

По-моему, вы пытаетесь делать, как Alx_ © (См.2).
Да, и что это за функция DragAcceptFiles и процедура TForm1.DropFiles?

← →
!_SM_! (2006-07-20 01:18) [43]

Пробовал мой код? Если нет, создай новый проект, добавь на форму ListBox
оставь имя ListBox1. Скомпилируй. Потом, хочешь, выделяй файлы в провднике и кидай на значок ехе файла, тоже в проводнике, который только что скомпилил. Или на уже загруженную форму брось выделенные файлы.
Что получилось?

← →
Footballer © (2006-07-20 01:36) [44]

> Что получилось?

Ничего...
А что должно получиться? Может я что-то нитак сделал...

← →
!_SM_! (2006-07-20 12:16) [45]

Сделал как? Создал новый проект. Вставил на голую форму ListBox1. Оставил имя ListBox1. Выделил код, который я написал в !_SM_! (19.07.06 18:06) [29], целиком от unit Unit1; до end. Скопировать. Выделить у себя в редакторе делфи в модуле формы весь текст, удалить его и вставить из буфера мой. Потом два раза щелкнуть по форме - чтобы задействовать событие OnCreate. Скомпилировать. Опять ничего не получилось?
А значит "ничего" и не должно получиться :(( Значит что-то нитак делаешь.
У меня все отлично получается. При старте проги если кидаешь на значек проги список (кучу выделенных) файлов, прога запустится и ListBoxe будет весь этот список, так-же если уже на открытую форму бросишь список файлов.
Может я чего не догоняю, того чего ты желаешь получить.....

← →
Footballer © (2006-07-20 12:25) [46]

Тьфу ты... Я ж OnCrete не задействовал...
Ща попробуем...

← →
Footballer © (2006-07-20 13:24) [47]

> !_SM_!

Огромаднейшее СПАСИБО
Я ТАК ДОЛГО пытался это сделать, и наконец нашёл у тебя!
Ещё раз спасибо! Теперь мой благодарный список выглядит так:
1) Ещё раз Marser за пост [1] (сортировка массива);
2) Огромное спасибо ArtemESC © за пост [16] (поиск);
3) Поблагодарю Kertman если он наконец объяснит, что такое"shell extensions" или какой-нибудь другой вариант решения первого вопроса :-)
4) Огромаднейшее СПАСИБО !_SM_! за пост [29] (перетаскивание файлов в плейлист, хотя я это даже и не просил ;-))
P.S. Но кстати проблему с множественным "открыть с помощью" это не решает...

← →
!_SM_! (2006-07-20 17:05) [48]

> Footballer © (20.07.06 13:24) [47]

> Но кстати проблему с множественным "открыть с помощью"
> это не решает...

А ты сделай(добавь) свое меню типа "отрыть с помощью МОЕГО плеера".
Как добавить (меню) обсуждалось уже нираз.
А стандартно меню "Открыть с помощью..." не работает даже и у Worda. Выделяешь кучу файлов жмешь открыть с помощью... выбираешь Word, или любую другую прогу которая позволяет открывать много документов(файлов), и.... открывается один файл (который из выделенных был под мышой) ну т.е. на нем правый клик.

← →
!_SM_! (2006-07-20 17:11) [49]

Можно еще вот такую фиговину сделать:
function VerifyFile(const S: String): Boolean; begin //Здесь проверяй нужен этот файл или нет Result:=True; end; ...... FlNm:=PChar(FlNm); if VerifyFile(FlNm) then AddFile(FlNm); end; .....
Ну это так для разнообразия.

← →
Footballer © (2006-07-25 01:34) [50]

Продолжаю ветвь... ответьте плиз на вопрос № 2: Как можно сделать баланс (правая - левая колонка) Примечание:Использую компонент TBassPlayer

Да, кстати с "shell extensions" мы вроде разобрались, но всё-таки возникла проблемка :(
Пункт в меню, всплывающее по нажатию правой кнопки мыши (кстати, как оно называется?) добавляется, но когда пытаешься нажать на него всплывают ошибки типа Invalid stream file (1) Шо це таке здесь происходит?

Люди, ну серьёзно, никто больше помочь не может? :-(((

> как всегда -- виновата многострадальная 17-я строка.

А в коде 16 строк... :-)
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;

>3) Как можно сделать баланс (правая - левая колонка) Примечание:Использую компонент TBassPlayer;

Вот из help к Bass:

BASS_ChannelSetAttributes(
DWORD handle,
int freq,
int volume,
int pan
);
handle The channel handle... a HCHANNEL, HMUSIC, HSTREAM, or CDCHANNEL.
freq The sample rate... 100 (min) - 100000 (max), 0 = original rate (when the channel was created), -1 = leave current.
volume The volume... 0 (silent) - 100 (max), -1 = leave current.
pan The panning position... -100 (left) - 100 (right), -101 = leave current.

например
BASS_ChannelSetAttributes(chan,-1,-100,pan);

Код ещё не смотрел, но всё равно спасибо...

Подскажите, пожалуйста... Найти похожие ветки