Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: CL | DM;

Вниз

Призраки в корзине   Найти похожие ветки 

 
Владимир Березин   (2003-11-10 21:49) [0]

Привет, мужики!
История такая. Просматриваю, значит, "C:\RECYCLED" с помощью кода
который приведен ниже и вижу в ней какие - то файлы
"desktop.ini" и "INFO2", хотя корзина пуста (сам только, что очис
тил).
Вопрос: Че это было?

...
private
SR:TSearchRec;
FileCount:Integer; //Счетчик найденных объектов
...

procedure TForm1.Button1Click(Sender: TObject);

function GetStr(Name:string; Attrib:Byte):string;
//Формирует строку вида "ИМЯ_ФАЙЛА ТИП"
var s:string;
begin
s:=Name+" ";
if (Attrib and faDirectory)<>0 then
s:=s+"FOLDER"
else
s:=s+"FILE";
Result:=s;
end;

const Path = "C:\RECYCLED\*.*";
begin
FileCount:=0;
ListBox1.Clear;
if FindFirst(Path,faAnyFile,SR)=0 then begin
Inc(FileCount);
Label2.Caption:=IntToStr(FileCount);
ListBox1.Items.Add(GetStr(SR.Name,SR.Attr));
end;
while FindNext(SR)=0 do begin
Inc(FileCount);
Label2.Caption:=IntToStr(FileCount);
ListBox1.Items.Add(GetStr(SR.Name,SR.Attr));
end;
end;


 
Anatoly Podgoretsky ©   (2003-11-10 22:01) [1]

Все нормально первый по сути является как бы СОМ сервером, точнее редиректором, а второй индексом



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

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

Наверх




Память: 0.46 MB
Время: 0.013 c
7-93714
Morgan128
2003-11-12 01:18
2004.01.29
Распознание текста


14-93698
Knight
2004-01-06 12:18
2004.01.29
Можно ли построить диаграмму в Excel...


1-93560
Urvin
2004-01-17 18:50
2004.01.29
Проблема с DLL


1-93455
ИМХО
2004-01-16 07:21
2004.01.29
Большой список строк


4-93741
Igit
2003-11-22 13:58
2004.01.29
как IPicture сохранить в файл (BMP)?