Скачать: CL | DM;

Поиск файла   Найти похожие ветки 

← →
Mirror   (2004-09-23 19:10) [0]

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

---

← →
kaZaNoVa ©   (2004-09-23 19:12) [1]

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

---

← →
Fay ©   (2004-09-23 19:12) [2]

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

---

← →
Fay ©   (2004-09-23 19:13) [3]

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

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

---

← →
kaZaNoVa ©   (2004-09-23 19:15) [4]

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

---

← →
Mirror   (2004-09-23 19:16) [5]

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

---

← →
Mirror   (2004-09-23 19:17) [6]

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

---

← →
Fay ©   (2004-09-23 19:18) [7]

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:30) [8]

> FindFirstFile/FindNextFile/Windows.FindClose

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

---

← →
Fay ©   (2004-09-23 19:36) [9]

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

---

← →
kaZaNoVa ©   (2004-09-23 19:37) [10]

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;


---

← →
Mirror   (2004-09-23 19:38) [11]

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

---

← →
Fay ©   (2004-09-23 19:40) [12]

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

---

← →
kaZaNoVa ©   (2004-09-23 19:42) [13]

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

---

← →
Fay ©   (2004-09-23 19:43) [14]

8)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c