|
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
|
| |
|
|
