Призраки в корзине

← →
Владимир Березин (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]

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

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