ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
24.07.2007, 13:34
|
|
Участник форума
Регистрация: 27.10.2006
Сообщений: 115
Провел на форуме:
820289
Репутация:
119
|
|
Эээ чет вы тут начали лаяться=\, ну да ладно, вот такой вопрос как организовать поиск определенного файла по имени или части имени.Какие компоненты использовать?И можно ли обойтись без Апи функций и процедур?
|
|
|
24.07.2007, 13:37
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от mari00
Эээ чет вы тут начали лаяться=\, ну да ладно, вот такой вопрос как организовать поиск определенного файла по имени или части имени.Какие компоненты использовать?И можно ли обойтись без Апи функций и процедур?
Делается через ТSearchRec
|
|
|
|
24.07.2007, 15:16
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от mari00
Эээ чет вы тут начали лаяться=\, ну да ладно, вот такой вопрос как организовать поиск определенного файла по имени или части имени.Какие компоненты использовать?И можно ли обойтись без Апи функций и процедур?
Компоненты? ну вот тебе webfile.ru/14 77726 (6кб) 
простой думаю разберешься...
ун а если руками-то:
button1.click
var sr:TSearchRec;
begin
//ищем... папка c:\windows; по расширению exe; все файлы (скрытые, системные, и т.д.) кроме папок
//если функция возр-т 0, то что-то найденно...
if FindFirst('c:\windows\*.exe', faAnyFile-faDirectory,sr)=0 then
try
repeat
ListBox1.Items.Add(ExtractFileName(sr.Name));
//добавляем имя найденного файла в listbox
until FindNext(sr)<>0;
finally
//освобождаем ресурсы
FindClose(sr);
end;
end;
вот и все... собственно говоря...
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
24.07.2007, 23:36
|
|
Участник форума
Регистрация: 11.07.2006
Сообщений: 125
Провел на форуме:
413927
Репутация:
71
|
|
Сообщение от mari00
Эээ чет вы тут начали лаяться=\, ну да ладно, вот такой вопрос как организовать поиск определенного файла по имени или части имени.Какие компоненты использовать?И можно ли обойтись без Апи функций и процедур?
procedure GetList(Dir:string;SL:TStringList);
var
i:integer;
SRec:TSearchRec;
begin
i:=FindFirst(Dir+'\'+'*',faAnyFile,SRec);
while i=0 do
begin
if((SRec.Name='')or(SRec.Name='.')or(SRec.Name='.. '))then
begin
end
else if SRec.Attr=faDirectory then
GetList(Dir+'\'+SRec.Name,SL)
else
//здесь выполняются действия с файлами делай че хочешь
SL.Add(GetTitle(Dir+'\'+SRec.Name)+#0+Dir+'\'+SRec .Name);//для примера собираются имена файлов в StringList
i:=FindNext(SRec);
end;
end;
|
|
|
|
24.07.2007, 13:38
|
|
Banned
Регистрация: 18.05.2005
Сообщений: 1,981
Провел на форуме:
1941233
Репутация:
2726
|
|
> как всегда кез со своими оригинальными ответами
ты сначала попробуй! увидишь что это помогает!
|
|
|
|
24.07.2007, 13:49
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от kez
> как всегда кез со своими оригинальными ответами
ты сначала попробуй! увидишь что это помогает!
да я и не сомниваюсь, единственный минус, это что действует только локально ))) 
|
|
|
|
24.07.2007, 14:35
|
|
Banned
Регистрация: 18.05.2005
Сообщений: 1,981
Провел на форуме:
1941233
Репутация:
2726
|
|
чел, скоро твоя агрессия просто кончится и ты поймешь что на форум.античат.ру людям бесполезно что-либо обьяснять ; )
поэтому если кто-то спросит как закрыть форму скажи "скотчем"
|
|
|
|
24.07.2007, 15:07
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от kez
чел, скоро твоя агрессия просто кончится и ты поймешь что на форум.античат.ру людям бесполезно что-либо обьяснять ; )
поэтому если кто-то спросит как закрыть форму скажи "скотчем"
Кез, без обид, но если не хочешь помогать челу, то закрой глаза на его пост, и ничего не пиши
|
|
|
|
25.07.2007, 00:01
|
|
Участник форума
Регистрация: 06.03.2007
Сообщений: 283
Провел на форуме:
1547094
Репутация:
120
|
|
Кто может выложете те компоненты которые нужны для работы с этим исходником:
_http://forum-mp3.org/mini_player.zip
Буду вам очень блогодарен.
У меня Delphi 7
|
|
|
|
25.07.2007, 00:15
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от motorola3653
Кто может выложете те компоненты которые нужны для работы с этим исходником:
_http://forum-mp3.org/mini_player.zip
Буду вам очень блогодарен.
У меня Delphi 7
1. компонент KMAlert
2. Trayicon
ВСЕ ИМЕЕТСЯ В АРХИВЕ!
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Комбинированный вид