GetLogicalDrives - Общие вопросы Delphi

student_63 · 12.04.2008, 14:16

Доброе время суток. Как перебрать все диски с помощью функции GetLogicalDrives и потом для поиска файла писать, напримемер, вместо FindFiles('C:\') FindFiles('{И здесь должен для всех разделов искать файлы}')

mihali4 · 12.04.2008, 14:48

Получить список логических дисков несложно:

Код:

var
ld : DWORD;
i : integer;
begin
ld := GetLogicalDrives;
for i := 0 to 25 do begin
if (ld and (1 shl i)) <> 0 then
Memo1.Lines.Add(Char(Ord('A') + i) + ':\');
end;
end;

А вот искать придется все равно не по всем сразу, а поочередно.

12.04.2008, 14:16	#1
student_63 Пользователь Регистрация: 07.11.2007 Сообщений: 92	GetLogicalDrives Доброе время суток. Как перебрать все диски с помощью функции GetLogicalDrives и потом для поиска файла писать, напримемер, вместо FindFiles('C:\') FindFiles('{И здесь должен для всех разделов искать файлы}') Я уверен, вы согласитесь со мной... что если со страницей 534 мы встречаемся во второй главе, то первая глава должна быть невыносимо длинной. - ШЕРЛОК ХОЛМС

12.04.2008, 14:48	#2
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Получить список логических дисков несложно: Код: `var ld : DWORD; i : integer; begin ld := GetLogicalDrives; for i := 0 to 25 do begin if (ld and (1 shl i)) <> 0 then Memo1.Lines.Add(Char(Ord('A') + i) + ':\'); end; end;` А вот искать придется все равно не по всем сразу, а поочередно.