Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.016 c
2-1182924390
_Asph
2007-06-27 10:06
2007.07.22
При перерисовке мелькает label


1-1179300822
Кирилл_А
2007-05-16 11:33
2007.07.22
Шрифт


11-1165771474
vampir_infernal
2006-12-10 20:24
2007.07.22
Не правильное освобождение Menu


11-1165925152
Trible
2006-12-12 15:05
2007.07.22
Cоздание компонента


15-1182440840
oxffff
2007-06-21 19:47
2007.07.22
steve trefethen покидает codegear