Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2004.01.29;
Скачать: [xml.tar.bz2];

Вниз

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

 
Владимир Березин   (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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.007 c
3-93402
guest123
2003-12-29 17:18
2004.01.29
Дистрибутив InterBase 5.0-5.5


3-93350
sergg
2004-01-03 14:02
2004.01.29
Указание пути для ADO-таблиц


14-93627
Avenger[NhT]
2004-01-08 15:19
2004.01.29
Avl - Api Visual Library


7-93725
Shaman%20O%20Mega
2003-11-13 14:48
2004.01.29
Загрузка процессора


1-93557
del_programmer
2004-01-17 07:42
2004.01.29
outlook





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский