Выполнить действия по окончанию...

[HTTqp]

Всем привет,
Создаю свой велосипед, а точнее аудио плеер плеер, на основе bass.dll, но это не важно. Некоторые плееры такие как Windows Media Center перед запуском сканируют компьютер на наличие видео и музыки. Так вот я пытаюсь сделать тоже самое, чтобы при первом запуске на компьютере сканировалось система на наличие музыки.
Код такой:

procedure FindDrive;
var
  DType: Byte;
  Drive: Char;//Диск
begin
  for Drive := 'a' to 'z' do
    begin
      DType := GetDriveType(PChar(Drive+':\'));
        case DType of
          DRIVE_FIXED: FindFileMPIII(Drive + ':\');
        end;
    end;
  Form1.Show;  
end;

Так вот я делаю это лишь при первом запуске, 2 и последующее это не выполняется. Проблема в том что форма становится видимой когда поиск еще не закончен, как исправить? Поиск FindFileMPIII в рекурсии все ок. Как исправить?

[Аватар]

Visible какой у формы? Поменяй на противоположный

[HTTqp]

все равно раньше срабатывает, чем проверится весь пк.
Подскажите а как на while в данном способе заменит?

[evg_m]

надо не в сканере (findDrive) показывать форму (form1.show)
которая на самом деле и так будет показана (это ведь главная форма application.MainForm ).
А наоборот при создании формы (Events OnCreate )
проверять и запускать сканер или читать то что сохранил сканер.

Другой вариант запускать сканер ДО создания каких бы то ни было форм

Applicaton.Initialize;
FindDrive; 
Application.CreateForm(Tfom1, form1);

и опять же без упоминания в сканере форм (ее еще нет!!)

P.S.а теперь ответьте какова будет реакция человека на программу которая 3-5 минут (1TБ диск) "висит" и не показывает НИЧЕГО!

[FaTaL]

Совершенно согласен с evg_m. Зачем что-то сканировать? Из-за этого точно Ваш плеер будет не востребован.