как в delphi 7 отобразить скрытые файлы и папки
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
как в delphi 7 отобразить скрытые файлы и папки - 2011-12-13 11:19:01.073333
|
|
|
stas_delphic
Сообщений: 71
Оценки: 0
Присоединился: 2011-05-10 13:13:50.350000
|
вообще это старая тема,вирус сделал файлы и папки скрытыми,их там много,так вот есть код -
procedure TForm1.Button1Click(Sender: TObject);
begin
chdir('c:\');
FileSetAttr('default.jpeg',faReadOnly);
end;
end.
но тут конкретный файл,а как сделать по поиску fahidden и в случае наличии такого делал faReadOnly
было бы хорошо если бы он считал сколько файлов из скрытого состояния вывел и список с именами
|
|
|
|
|
RE: как в delphi 7 отобразить скрытые файлы и папки - 2011-12-13 11:59:25.856666
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
FindFirstFile + FindNextFile + GetFileAttributes
|
|
|
|
|
RE: как в delphi 7 отобразить скрытые файлы и папки - 2011-12-13 13:37:05.920000
|
|
|
stas_delphic
Сообщений: 71
Оценки: 0
Присоединился: 2011-05-10 13:13:50.350000
|
quote:
ORIGINAL: _SaZ_
FindFirstFile + FindNextFile + GetFileAttributes
а пример?
|
|
|
|
|
RE: как в delphi 7 отобразить скрытые файлы и папки - 2011-12-13 14:00:53.723333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
А гугл?
Вечно формошлёпам готовый код подавай…
|
|
|
|
|
RE: как в delphi 7 отобразить скрытые файлы и папки - 2011-12-13 14:38:29.980000
|
|
|
stas_delphic
Сообщений: 71
Оценки: 0
Присоединился: 2011-05-10 13:13:50.350000
|
quote:
ORIGINAL: _SaZ_
А гугл?
Вечно формошлёпам готовый код подавай…
тогда зачем форум? разве не для советов,кто знает тот подсказывает,помогает хотя бы кусочком знаний.Просто вы либо не знаете,либо жадный,не хотите не говорите.гогл это понятно, не всегда есть время копать там,бывают экстренные случаи
|
|
|
|
|
RE: как в delphi 7 отобразить скрытые файлы и папки - 2011-12-13 17:56:23.266666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Человек дал тебе исчерпывающую информацию по меркам нормального программиста. Осталось найти, что передавать в эти функции. Первые 2 организуют цикл поиска, последняя - запрашивает аттрибуты. В гугле есть именно что примеры, готовые прям, ищутся быстрее, чем ответят на форуме. А форум для обсуждения в идеале должен быть))
|
|
|
|
|
RE: как в delphi 7 отобразить скрытые файлы и папки - 2011-12-13 18:14:50.123333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
ТС, чтобы понять, что значит "более конкретный вопрос" попробуй переформулировать своё первое сообщение по этой схеме:
1) Я хочу сделать следующее по пунктам а)… б)… в)
2) В а)… я сделал то-то, в б)… я сделал то-то, в в) я сделал то-то, но у меня затык там-то
Разжую, если ты совсем боишься гугла:
1) Для поиска используй циклы (т.к. поиск сводится к последовательному перебору и сравнению с каким-то условием)
2) Для инициализации итератора (почти то же, что и "счётчик" в цикле) используй FindFirstFile. Что такое интератор более подробно можно найти в гугле.
3) Для проверки условия используй GetFileAttributes. Что она делает и как ей пользоваться с примерами можно найти в гугле.
4) Для перехода к следующему файлу ("инкременту" итератора) используй функцию FindNextFile. Что она делает и как ей пользоваться с примерами можно найти в гугле.
Правила раздела "компилируемые языки":
quote:
2. запрет на просьбы о решении домашних, лабораторных, курсовых и прочих работ. цель форума - взаимовыгодная помощь в вопросах программирования, а не поощрение лени и невежества. есть разделы форума, посвящённые работе за деньги, и есть разделы, посвящённые халяве. этот раздел к ним не относится
Твоя просьба, с моей точки зрения, очень чётко попадает под определение "халява". Я тебе дал 3 слова, вбив которые в гугле можно получить достаточно информации для решения твоей задачи.
Конкретного решения я приводить не буду, хоть там и писанины на 10 строк. Хотя-бы потому, что ты такой занятой, что тебе лень в гугле вбить 3 слова и ты считаешь, что за тебя кто-то на форуме должен это сделать и разжевать.
|
|
|
|
|
RE: как в delphi 7 отобразить скрытые файлы и папки - 2011-12-13 23:03:53.850000
|
|
|
stas_delphic
Сообщений: 71
Оценки: 0
Присоединился: 2011-05-10 13:13:50.350000
|
во общем придя дамой и поискав долго программку которую как то написал давно благодаря помощи
людей из форума хакер,жаль времена те ушли,когда помощь считалась хорошим делом,посылать тогда на 6 букв как сейчас вообще редкость была,и никто не говорил типа че ты халявщик на тебе слово и пошел на 6 букв - google. а так вот код кому хочется не руками выводить файл из скрытого состояния после вируса,я не жадный -
procedure ScanDir(Dir:string);
var SearchRec:TSearchRec;
attr:Integer;
begin
if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
attr := FileGetAttr(Dir);
FileSetAttr(Dir,128);
if FindFirst(Dir+'*', faAnyFile, SearchRec)=0 then begin
repeat
if (SearchRec.name='.') or (SearchRec.name='..') then continue;
if (SearchRec.Attr and faDirectory)<>0 then begin
ScanDir(Dir+SearchRec.name); //нашли папку: "Dir+SearchRec.name"
end else begin
attr := FileGetAttr(Dir+SearchRec.name);
FileSetAttr(Dir+SearchRec.name,128);
end;
until FindNext(SearchRec)<>0
end;
FindClose(SearchRec);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ScanDir(edit1.Text);
end;
|
|
|
|
|
RE: как в delphi 7 отобразить скрытые файлы и папки - 2011-12-15 12:43:52.173333
|
|
|
yurket
Сообщений: 69
Оценки: 0
Присоединился: 2009-05-04 23:47:54.993333
|
если бы люди не стремились тебе помочь, то они бы просто не отвечали тебе… все дело в том, что помогать можно по-разному… можно скинуть тебе 10-строчный код, ты его скопипастишь и в лучшем случае, посмотришь на него и приблизительно поймешь, как эти 10 строк работают… или можно послать тебя в гугл, откуда, если повезет, ты попадешь на MSDN, почитаешь описание функций, примеры, и вуаля, ты САМ сможешь написать уже простой файловый менеджер…
А теперь смотри, в первом случае ты скопипастил готовый код (исключаем вариант, что ты сам начнешь по-полной разбираться в коде и писать дополнительно что-то свое, потому что если бы хотел этого, ты бы даже на форуме не спрашивал)… во втором случае - ты или нашел готовый код на другом форуме, или подумал "да пошли все эти уроды с форума на 3 буквы, я и сам напишу прогу в 10 раз лучше их!" и написал прогу сам…
теперь делай выводы, в каком случае ты большему научился…
|
|
|
|
|
RE: как в delphi 7 отобразить скрытые файлы и папки - 2011-12-15 12:53:23.990000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Да что ему доказывать, всё равно не поймёт… Если бы мне было "жаль" или "лень", я бы не помогал в вещах, типа http://forum.xakep.ru/fb.aspx?m=2545945 , до которых мегакоду от ТС по объёму и сложности, мягко говоря, ещё расти и расти.
|
|
|
|
|
|
