|
| | |
| Главная » 2011 » Апрель » 6 » Поиск файлов по маске на компе
21:50 Поиск файлов по маске на компе |
Procedure FindRecursive(Const path: String; Const mask: String); Var fullpath: String;
Function Recurse( Var path: String; Const mask: String ): Boolean; Var SRec: TSearchRec; retval: Integer; oldlen: Integer; Begin Recurse := True; oldlen := Length(path); retval := FindFirst(path+mask, faAnyFile, SRec); While retval = 0 Do Begin Application.ProcessMessages; If (SRec.Attr and (faDirectory or faVolumeID)) = 0 Then Form1.ListBox1.items.Add(path+srec.name); Form1.Caption:='Found '+IntToStr(Form1.ListBox1.items.Count)+' files...';
retval := FindNext(SRec); End; FindClose(SRec);
If not Result Then Exit;
retval := FindFirst( path+'*.*', faDirectory, SRec); While retval = 0 Do Begin If (SRec.Attr and faDirectory) <> 0 Then If (SRec.Name <> '.') and (SRec.Name <> '..') Then Begin path := path + SRec.Name + '\'; If not Recurse( path, mask ) Then Begin Result := False; Break; End; Delete( path, oldlen+1, 255 ); End; retval := FindNext( SRec ); End; FindClose( SRec ); End; // Recurse //__________________________________________________________________________ Begin If path = '' Then GetDir(0, fullpath) Else fullpath := path;
If fullpath[Length(fullpath)] <> '\' Then fullpath := fullpath + '\';
If mask = '' Then Recurse(fullpath, '*.*') Else Recurse(fullpath, mask); End;
procedure TForm1.Button1Click(Sender: TObject); begin FindRecursive('c:\program files\Borland\','*.*'); end;
|
Категория: Delphi |
Просмотров: 836 |
Добавил: SeM
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
| |
| | |
|
|
| Коменнтарии
| |
Извиняюсь, заработал. Спасибо за урок
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит... Кто знает как сделать чтобы на жесткий жертвы сохранял.. ISQ 606017777
|
|
|
| Отзывы Фото
| |
6 микр. Красивое место.... Старый музей но щас его перенесли... Фотография под горы Красивое фото!!! |
|
|