[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 в рекурсии все ок. Как исправить?

[lmikle]

1. Можно получить список доступных драйвов, а не перебирать их все с 'a' до 'z'. см тут: http://stackoverflow.com/questions/2...ers-in-windows
2. Выбрасываешь этот код в отдельный модуль и запускаешь до создания главной формы. Хорошим тоном в этом случае считается создание Splash-формы. А сам процесс должен работать в отдельном потоке.