Четверг, 05.12.2024, 23:34 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · 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
 
d4rkzyДата: Воскресенье, 26.04.2015, 13:25 | Сообщение # 2
Постоянный
Зарегистрирован: 15.11.2013
Группа: Пользователи
Сообщений: 135
Статус: Offline
Код
for Drive := 'a' to 'z' do  

Гавнокод. Лучше получать все диски через апи, а не методом "была не была"

На oncreate ставь form1.hide;

а CreateForm; замени на form1.show;
 
HTTqpДата: Воскресенье, 26.04.2015, 13:36 | Сообщение # 3
Частый гость
Зарегистрирован: 08.10.2014
Группа: Пользователи
Сообщений: 57
Статус: Offline
Цитата d4rkzy ()
Гавнокод. Лучше получать все диски через апи, а не методом "была не была"

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

На oncreate ставь form1.hide;
а CreateForm; замени на form1.show;


программа winapi какой здесь form1.hide и form1.show
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz