оцените программу-тест

[Алексей_2012]

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

[Алексей_2012]

Вот вторая версия теста, изменения:
1) убрал мерцание
2) убрал невозможность выхода
3) добавил проверку на отсутствие файлов
4) оптимизировал код использовав процессы
5) продумал систему создания отчета
6) ну и др

Данная версия лучше чем первая? Пишите отзывы, ну и одобряйте кому пригодиться

Один минус, не смог исправить процедуру play, оставил старый вариант, а вот этот не работает

procedure TForm1.Play;
begin
  Timer3.Enabled := False;
  if ListBox1.ItemIndex=-1 then
  begin
if  not Fileexists(ExtractFilePath(ParamStr(0))+'Sound01.mp3') then
begin
 MessageBeep(1);
 ShowMessage('Фоновый трек не может быть загружен! Сохраните любой трек в папку с ПО под именем "Sound01.mp3"! ');
 Exit;
end;
Timer3.Enabled := true;
mediaplayer1.filename:=ExtractFilePath(ParamStr(0))+'Sound01.mp3';
SL.Strings[0]:=MediaPlayer1.FileName;
mediaplayer1.open;
mediaplayer1.play;
Label16.Caption:=ExtractFileName(MediaPlayer1.FileName);
listbox1.items.add(Label16.Caption);
SpeedButton7.Down:=true;
 end
else
 begin
 MediaPlayer1.Stop;
     Label16.Caption:=ListBox1.items[ListBox1.itemindex];
     MediaPlayer1.FileName := SL.Strings[ListBox1.itemindex];
  try
   Mediaplayer1.Open;
  except
    on EMCIDeviceError do
      begin
        ShowMessage('Ошибка обращения к файлу '+ListBox1.Items[ListBox1.itemIndex]);
        SpeedButton7.Down := False;
        exit;
      end;
  end;
  MediaPlayer1.Play;
  end;
  min :=0;
  sec :=0;
  Timer3.Enabled := True;
end;

Вот то что хотел получить, т.е если listbox1 не заполнен, то проигрывать sound01, заполнить стринглист sl и плейлист, а иначе проигрывать то что добавили пользователи или то что до этого было программно добавлено, т.е sound01.

[Алексей_2012]

ну что, будут советы по исправлению данной процедуры?

[Человек_Борща]

Странный вы. Написали так, как будто юзер должен ещё и музыку к вашему ПО искать.
Нет файла и без него можно работать на 500% КПД? Не уведомляем юзера и работаем... а это:

 MessageBeep(1);
 ShowMessage('Фоновый трек не может быть загружен! Сохраните любой трек в папку с ПО под именем "Sound01.mp3"! ');
 Exit;

бред.

[Алексей_2012]

нет, ну так бы я написал без этого, если бы процедура была рабочей, вы попробуйте использовать плеер без фоновой музыки, он будет ошибку выдавать при воспроизведении добавленных треков, исправить проблему не смог, поэтому обращаюсь, то что хотел написать-выложил, но выдаются ошибка, нужно так:
1) если по какой то причине соунд01 отсутствует, то программа плеера должна работать без него, если пользователь туда загрузит музыку
2) программа должна выполняться и при присутствии соунд01
3) соунд 01 должен отображаться в листбоксе и присутствовать в стринг листе

я это попытался сделать, код выше, но он не работает

[Sasha_Smirnov]

Прощёлкал. Два замечания.

1) всё время отмечен 1-й ответ — напрягает!
2) балла(ов) — прошлый век!

[Алексей_2012]

1) то что все время отмечен первый ответ-это просьба учителя, по возвращает активность первому радиобаттону
2) функцию лень писать, и это не суть, да и кода больше, в первую очередь меня волнует процедура плей

[s-andriano]

Сообщение от Алексей_2012

если в коде можно что-то оптимизировать, то пишите исправленный код

Вы сами поняли, что написали?
Оптимизировать можно всегда:
- взяли любую программу и соптимизировали по скорости работы,
- взяли результат предыдущей оптимизации с соптимизировали по объему используемой памяти,
- взяли результат предыдущей оптимизации с соптимизировали по объему исполняемого файла,
- взяли результат предыдущей оптимизации с соптимизировали по скорости загрузки,
- взяли результат предыдущей оптимизации с соптимизировали по скорости работы,
- взяли результат предыдущей оптимизации с соптимизировали по объему используемой памяти,
- взяли результат предыдущей оптимизации с соптимизировали по объему исполняемого файла,
- взяли результат предыдущей оптимизации с соптимизировали по скорости загрузки,
- взяли результат предыдущей оптимизации с соптимизировали по скорости работы,
- взяли результат предыдущей оптимизации с соптимизировали по объему используемой памяти,
- взяли результат предыдущей оптимизации с соптимизировали по объему исполняемого файла,
- взяли результат предыдущей оптимизации с соптимизировали по скорости загрузки,
- взяли результат предыдущей оптимизации с соптимизировали по скорости работы,
- взяли результат предыдущей оптимизации с соптимизировали по объему используемой памяти,
- взяли результат предыдущей оптимизации с соптимизировали по объему исполняемого файла,
- взяли результат предыдущей оптимизации с соптимизировали по скорости загрузки,
...

Для того, чтобы что-то оптимизировать, необходимо задать критерий оптимизации. "Просто оптимизации" - без критерия - не бывает.

[Алексей_2012]

оптимизация кода, а соответственно меньший вес исполняемого модуля, это уже не важно, сам оптимизировал код, результат выложил

[s-andriano]

Меньший вес исполняемого модуля в наше время достигается не за счет оптимизации кода (по какому бы то ни было критерию), а за счет отказа от высокоуровневых библиотек и замены их отдельных элементов самописным кодом.
Т.е. объем исходников существенно возрастает, а объем исполняемого модуля еще более существенно сокращается.