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

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx

HTTqp

Дата: Воскресенье, 26.04.2015, 01:09 | Сообщение # 1

Частый гость

Зарегистрирован: 08.10.2014

Группа: Пользователи

Сообщений: 57

Статус: Offline

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

Код

procedure FindDrive;
var
   DType: Byte;
   Drive: Char;
begin
   for Drive := 'a' to 'z' do
     begin
       DType := GetDriveType(PChar(Drive+':\'));
         case DType of
           3: FindFile(Drive + ':\');
         end;
     end;
   CreateForm; //Вот это действия показывает формы
end;

Она срабатывает слишком рано, как исправить, поиск идет в рекурсии, FindFile