Текущий архив: 2007.07.22;
Скачать: CL | DM;

Вниз

сканер кода   Найти похожие ветки 

← →
FIL-23 ©   (2007-06-24 22:47) [0]

кинте ссылоку на код сканера диска, чтобы можно было просканировать все содержимое диска

---

← →
DVM ©   (2007-06-24 22:49) [1]

FindFirsFile() - FindNextFile() - FindClose()

---

← →
P   (2007-06-25 01:44) [2]

>
> FIL-23 ©   (24.06.07 22:47)
>
> кинте ссылоку на код сканера диска, чтобы можно было просканировать
> все содержимое диска


Ищи в Google Delphi рекурсивное сканирование или мое из старого проекта

function TPArchiveForm.FileLockCheck(path:string):boolean;
var sr:Tsearchrec;
var found:integer;
var FStr:TFileStream;
begin
 Result:=False;
 //
 found:=FindFirst(path + "\*.*", FaAnyfile, sr);
 while (found = 0) and not (TryToStop) do
   begin
   if (sr.name <> ".") and (sr.name <> "..") then
     begin
     if (sr.attr and FaDirectory) = FaDirectory then
         begin
         Result:=FileLockCheck(path+"\"+sr.name);
         end
       else
         begin
         //try to lock
         ItemLabel.Caption:=path+"\"+sr.name;
         FStr:=nil;
         try
           FStr:=TFileStream.Create(path+"\"+sr.name,fmOpenRead or fmShareExclusive);
           FStr.Free;
         except on E:Exception do
           begin
           FStr.Free;
           Result:=True;
           end;
         end;
         end;
     end;
   if Result then Break;
   found:=findnext(sr);
   end;
 FindClose(sr);
end;


---

← →
Плохиш ©   (2007-06-25 01:50) [3]

> FindFirsFile() - FindNextFile() - FindClose()

Рекомендую к названиям функций добавить буковку "W"

---

← →
Vlad Oshin ©   (2007-06-25 02:22) [4]

зачем?

> Плохиш ©   (25.06.07 01:50) [3]
>
> > FindFirsFile() - FindNextFile() - FindClose()
>
> Рекомендую к названиям функций добавить буковку "W"

---

← →
Tirael ©   (2007-06-25 03:10) [5]

http://www.steffengerlach.de/freeware/scn2.zip

---

← →
P   (2007-06-25 03:43) [6]

> Vlad Oshin ©   (25.06.07 02:22) [4]
>
> зачем?
>
> > Плохиш ©   (25.06.07 01:50) [3]
> >
> > > FindFirsFile() - FindNextFile() - FindClose()
> >
> > Рекомендую к названиям функций добавить буковку "W"


Для Юникода. Сейчас все новые проекты под него переводятся, во всяком случае в кампании, где я работаю. А Win98 и WinME в новых продуктах смысла поддерживать нет.

---

← →
Плохиш ©   (2007-06-25 11:03) [7]

> Vlad Oshin ©   (25.06.07 02:22) [4]
> зачем?

Потому-что программы и современные ОС всеми ненавистного мелкого софта позволяют называть файлы как угодно, независимо от локализации. А программы крутыхсуперпуперлучшихчеммаздайфирм ставят свои дебильные ограничения...

---

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

Текущий архив: 2007.07.22;
Скачать: CL | DM;

Наверх

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