Удаление файла по его пути из TextListBox

[artemavd]

Добрый день! Подскажите пожалуйста как удалить файл с компьютера, чтобы путь к этому файлу извлекался из Item-а TextListBox-a??
Вот код поиска фалов с расширением .mp3:

procedure findrecursive( const path: string; const mask: string);
var
 fullpath: string;
function recurse( var path: string; const mask: string ): boolean;
var
 F: TSearchRec;
 retval: integer;
 oldlen: integer;
 i: integer;
 p:string;
begin
 recurse := true;
 oldlen := length( path );
 retval := findfirst( path+mask, faanyfile, F );
while retval = 0 do begin
if (F.attr and (fadirectory or favolumeid)) = 0 then
 Form1.TextListbox1.Items.Add(Path+F.name);
 ///


 ///

 retval := findnext(F);
end;
 findclose(F);
if not result then exit;
 retval := findfirst( path+'*.*', fadirectory,F);
while retval = 0 do begin
if (F.attr and fadirectory) <> 0 then
if (F.name <> '.') and (F.name <> '..') then begin
 path := path + F.name + '\';
if not recurse( path, mask ) then begin
 result := false;
 break;
end;
 delete( path, oldlen+1, 255 );
end;
 retval := findnext(F);
end;
 findclose(F);
end;
begin
if path = '' then
 getdir(0, fullpath)
else
 fullpath := path;
if fullpath[length(fullpath)] <> '\' then
 fullpath := fullpath + '\';
if mask = '' then
 recurse( fullpath, '*.mp3' )
else
 recurse( fullpath, mask );
end;

А вот код ее применения (этой функции):

begin
 findrecursive('D:\Documents and Settings\Тёмка\Рабочий стол\Новая папка (11)\','*.MP3'); 
 end;

????

[Stilet]

чтобы путь к этому файлу извлекался из Item-а TextListBox-a?

А что это за зверь? Посмотри есть ли у него свойство Selected или ItemIndex указывающее на выделенный элемент.

[artemavd]

А что это за зверь?

Это компонент из библиотеки RX)

Посмотри есть ли у него свойство Selected или ItemIndex указывающее на выделенный элемент.

У него есть оба этих свойства. Как можно сделать через них?

[Stilet]

Я лично о нем ничего не знаю.

[artemavd]

Я лично о нем ничего не знаю.

Уважаемый коллега . Я уже сам догадался как сделать). Вот что нужно было добавить в процедуру (вроде как работает и удаляет только музыку):

var
 i: integer;
begin
 findrecursive('D:\Documents and Settings\Тёмка\Рабочий стол\Новая папка (11)\','*.MP3'); 
 for i:=0 to TextListBox1.Count - 1 do
 deletefile(textlistbox1.items.strings[i]);
 end;

Может кому-нибудь пригодится. Поэтому и выложил

Видать рано я радовался. Есть несколько проблем-вопросов:
1. Как изменить код, чтобы поиск ощуствлялся в автоматическом режиме?
2. Как сделать, чтобы имена найденных файлов не заносились в listbox?
3. Как сделать поиск в корне диска С?
Помогите если не трудно с этими вопросами??

[spamer]

1)Можно вызывать данную функцию поиска при создании формы. Так же думаю можно закинуть в таймер, и функция будет автоматически искать файлы. Что то типа такого.

2)

procedure findrecursive( const path: string; const mask: string);
var
 fullpath: string;
function recurse( var path: string; const mask: string ): boolean;
var
 F: TSearchRec;
 retval: integer;
 oldlen: integer;
 i: integer;
 p:string;
begin
 recurse := true;
 oldlen := length( path );
 retval := findfirst( path+mask, faanyfile, F );
while retval = 0 do begin
if (F.attr and (fadirectory or favolumeid)) = 0 then
//Это убрать попробуй
 Form1.TextListbox1.Items.Add(Path+F.name);
 ///


 ///

 retval := findnext(F);
end;
 findclose(F);
if not result then exit;
 retval := findfirst( path+'*.*', fadirectory,F);
while retval = 0 do begin
if (F.attr and fadirectory) <> 0 then
if (F.name <> '.') and (F.name <> '..') then begin
 path := path + F.name + '\';
if not recurse( path, mask ) then begin
 result := false;
 break;
end;
 delete( path, oldlen+1, 255 );
end;
 retval := findnext(F);
end;
 findclose(F);
end;
begin
if path = '' then
 getdir(0, fullpath)
else
 fullpath := path;
if fullpath[length(fullpath)] <> '\' then
 fullpath := fullpath + '\';
if mask = '' then
 recurse( fullpath, '*.mp3' )
else
 recurse( fullpath, mask );
end;

3) Передай путь C:\.
з.ы. если я правильно понял корень диска С

[artemavd]

1)Можно вызывать данную функцию поиска при создании формы. Так же думаю можно закинуть в таймер, и функция будет автоматически искать файлы. Что то типа такого.

У меня в таймере стоит вызов той самой функции.

3) Передай путь C:\.
з.ы. если я правильно понял корень диска С

Вроде как передавал, но почему то не искал. Обычный поиск находит, а мой нет.
???

[SuperVisor]

Сообщение от artemavd

У меня в таймере стоит вызов той самой функции.

Ну, а что еще нужно? =))

Сообщение от artemavd

Вроде как передавал, но почему то не искал. Обычный поиск находит, а мой нет.???

А твой поиск в подпапках ищет??? Точнее, во всех ли? ))

[Stilet]

Обычный поиск находит, а мой нет.

Я когда был на твоем месте (в смысле проблема была с поисками) сел один раз и написал себе класс, который обладал многими свойствами поиска типа LMDFinder. Теперь я создаю экземпляр класса, указываю путь, обработчик события, и запускаю. Очень упрощает все. Попробуй написать такое - рекомендую на будущее

P.S. при необходимости могу попробовать выдернуть его из модуля (у меня там много классов для разных работ) сюда.

[spamer]

Ну я только что попробывал, то все находится. Правда нада подождать, тошо долговато ищет, а так все работает.