| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск файла [D7]

Mirror ©   (2004-09-23 19:10:00) 

Кто-нибудь помогите пожалуйсто написать алгоритм поиска файлов по всем дискам!

---

Fay   (2004-09-23 19:43:00) [1]

8)

---

kaZaNoVa   (2004-09-23 19:42:00) [2]

Fay ©   (23.09.04 19:40) [12]
по скорости вроде нормально :)

---

Fay   (2004-09-23 19:40:00) [3]

Я же нашёл - GetLogicalDrives. М.б. не быстрее всех, но всё же... 8)

---

Mirror   (2004-09-23 19:38:00) [4]

А как найти в справке, если не знаешь что искать?

---

kaZaNoVa   (2004-09-23 19:37:00) [5]

Fay ©   (23.09.04 19:18) [7]
имхо удобнее %))

Mirror   (23.09.04 19:30) [8]

function GetDriveAll:string;
Var
ld,i:DWORD;
info:string;
Begin
info:='';
ld := GetLogicalDrives;
for i := 0 to 25 do
begin
if (ld and (1 shl i)) <> 0 then begin
if GetDriveType(PChar(Char(Ord('A') + i) + ':\'))=DRIVE_FIXED then
info:=info+Char(Ord('A') + i)+'1';
if GetDriveType(PChar(Char(Ord('A') + i) + ':\'))=DRIVE_REMOVABLE then
info:=info+Char(Ord('A') + i)+'2';
if GetDriveType(PChar(Char(Ord('A') + i) + ':\'))=DRIVE_CDROM then
info:=info+Char(Ord('A') + i)+'3';
if GetDriveType(PChar(Char(Ord('A') + i) + ':\'))=DRIVE_REMOTE then
info:=info+Char(Ord('A') + i)+'4';
if GetDriveType(PChar(Char(Ord('A') + i) + ':\'))=DRIVE_RAMDISK then
info:=info+Char(Ord('A') + i)+'5';  end;

end;
GetDriveAll:=info;
end;


---

Fay   (2004-09-23 19:36:00) [6]

Наизусть не помню. У тебя справка установлена?

---

Mirror   (2004-09-23 19:30:00) [7]

> FindFirstFile/FindNextFile/Windows.FindClose

Да, с помощью них можно искать файлы и директории, но как получить список жестких дисков?

---

Fay   (2004-09-23 19:18:00) [8]

2  [5] Mirror   (23.09.04 19:16)
FindFirstFile/FindNextFile/Windows.FindClose

2 [4] kaZaNoVa ©   (23.09.04 19:15)

> - если размер не критичен, рекомендую модуль SysUtils юзать
> :))

А. И что это даст?

---

Mirror   (2004-09-23 19:17:00) [9]

Собственно говоря и дисков тоже?

---

Mirror   (2004-09-23 19:16:00) [10]

А как получить список всех директорий?

---

kaZaNoVa   (2004-09-23 19:15:00) [11]

Fay ©   (23.09.04 19:13) [3]
уменьшение размера, без сусутилс - можно прогу накатать от 10 кб с полными файловыми функциями ...
- если размер не критичен, рекомендую модуль SysUtils юзать :))

---

Fay   (2004-09-23 19:13:00) [12]

2  [1] kaZaNoVa ©   (23.09.04 19:12)
> или можно с SysUtils ?

Интересно, что это даст 8)

---

kaZaNoVa   (2004-09-23 19:12:00) [13]

Mirror   (23.09.04 19:10)
для начала просто по папке искать а потом перебирать все диски ..
- тебе на апи ?
или можно с SysUtils ?
- и по СД тоже надо искать ?

---

Fay   (2004-09-23 19:12:00) [14]

Как по одному, только по всем.

---

Наверх