Форум » Язык Delphi » Работа с Midi в Delphi » Ответить
Работа с Midi в Delphi
hippocamus: Здесь я спрошу: никому не приходилось с этим сталкиваться? Имею в виду не проиграть mid-файл, а воспроизвести определённую ноту определённым инструментом. Может кто помочь?
Ответов - 4
Аргет: Хотел спросить, как определить корневую папку программы и искать mp3-файлы в ней.
hippocamus: Наверное, нужно добавить TOpenDialog и у него в свойствах посмотреть папку. Затем: [pre] {$I-} FindFirst(f, '*.mp3'); repeat FindNext(f); until IOResult=0; {$I+}[/pre] где f переменная типа file. Хотя я уже сам подзабыл. Ещё было такое, что ParamStr(0) возвращает путь к программе. Может, уже такого нет. Попробуй.
Arget: Не... Ето не то... Другой вопрос: как найти адрес программы?
Stalker: ExtractFileDir(ParamStr(0));
полная версия страницы