Сделал плеер mpX

[pasha_1]

Здорова всем, вот написал плеер, хочу услышать ваше мнение , может кто баги найдет (буду благодарен), это еще beta версия , но вроде все без ошибок. Плеер делал для девушки , поэтому такое оформление .

[SunKnight]

Плеер делал для девушки

Увлекается канабисом?
Плеер норм., только функционала побольше добавить нужно.

[pasha_1]

нет, в фотошопе увидел и сделал. нужно было readme написать что плеер умет (но лень).

[DomiNick]

В диалоге "Открыть" надо бы сделть фильтры (*.mp3, *.wav и.т.д.)...
И сделай чтоб окошко могло к краям экрана "пристыковываться"...

А на чём хоть писал?)

[0nni]

Время загрузки ок 3 секунд, затраты памяти больше 3мб и во время игры 3-4% загрузки процессора, по мне безобразие

[pasha_1]

delphi10). это будет просто, так что завтра после универа сделаю. Вот только одна проблема: не получается связать программу с mp3 wma mp4 wav файлами (чтоб при открытии моя программа включалась),сейчас это нужно делать через свойство файла. Если кто знает как связать программу напишите) (Главное jpg получилось связать, а музыкальные файлы нет )

[0nni]

А ты как ассоциацию делаешь покажи, исправим.

[pasha_1]

2_0nni Честно говоря я не знаю как разработчик AIMP сделал загрузку процессора 0%( у меня так ), В bass есть функция, которая показывает использования ею процессора, она меньше 3 не падает, так что это не моя вина) , В свернутом режиме около 1метра, а в обычном ну да почти 4 метра , может потомучто качество картинки ( оформление все сам делал без посторонних компонентов ) 32bit. Скоро думаю делать движок для скинов. и еще в плеере два визуалайзера (два раза на него кликнуть надо)

[pasha_1]

var
  reg: TRegistry;
begin

  Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('.mp4' , True);
Reg.WriteString('', 'mpx.mp4.file');
Reg.CloseKey;
Reg.CreateKey('mpx.mp4.file');
Reg.OpenKey('mpx.mp4.file\Defaultlcon', True);
Reg.WriteString('', Application.ExeName + ',0') ;
Reg.CloseKey;
Reg.OpenKey('mpx.mp4.file\shell\open\command', True);
Reg.WriteString('','"'+Application.ExeName + '" "%1"') ;
Reg.CloseKey;


Reg.OpenKey('.wma' , True);
Reg.WriteString('', 'mpx.wma.file');
Reg.CloseKey;
Reg.CreateKey('mpx.wma.file');
Reg.OpenKey('mpx.wma.file\Defaultlcon', True);
Reg.WriteString('', Application.ExeName + ',0') ;
Reg.CloseKey;
Reg.OpenKey('mpx.wma.file\shell\open\command', True);
Reg.WriteString('','"'+Application.ExeName + '" "%1"') ;
Reg.CloseKey;

Reg.OpenKey('.mp3' , True);
Reg.WriteString('', 'mpx.mp3.file');
Reg.CloseKey;
Reg.CreateKey('mpx.mp3.file');
Reg.OpenKey('mpx.mp3.file\Defaultlcon', True);
Reg.WriteString('', Application.ExeName + ',0') ;
Reg.CloseKey;
Reg.OpenKey('mpx.mp3.file\shell\open\command', True);
Reg.WriteString('','"'+Application.ExeName + '" "%1"') ;
Reg.CloseKey;

Reg.OpenKey('.wav' , True);
Reg.WriteString('', 'mpx.wav.file');
Reg.CloseKey;
Reg.CreateKey('mpx.wav.file');
Reg.OpenKey('mpx.wav.file\Defaultlcon', True);
Reg.WriteString('', Application.ExeName + ',0') ;
Reg.CloseKey;
Reg.OpenKey('mpx.wav.file\shell\open\command', True);
Reg.WriteString('','"'+Application.ExeName + '" "%1"') ;
Reg.CloseKey;
Reg.Free;

[0nni]

хм, интересно, глянь как эту ветку реестра
HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Explorer\F ileExts\.mp3\
и ключ Application
У меня там foobar2000.exe
А еще есть раздел
HKEY_CLASSES_ROOT\Applications\foob ar2000.exe
Где описан раздел shell\open и все остальные.