|
|
 | |  |
| Главная » 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 |
Просмотров: 800 |
Добавил: SeM
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
