Главная страница
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
1-93496
Карелин Артем
2004-01-19 10:55
2004.01.29
Показ хинта во время работы.


14-93674
BlackTiger
2003-12-30 13:43
2004.01.29
Delphi8. Что-то я не понял прикола...


14-93647
sapsi
2003-12-31 14:29
2004.01.29
Запрет работы приложения


3-93351
demon_god
2004-01-05 14:17
2004.01.29
Глючит Select ПОМОГИТЕ ПЛИЗЗЗ!!!


14-93634
wl
2004-01-08 19:18
2004.01.29
Какой КПК(PDA) выбрать?