H
HumpFREE
Ищу по маске файлы на жестаке, затем найденное пихается в ListBox. Вопрос - как удалить все найденные файлы на жестаке?
Пишу чистилку от мусора.
Пишу чистилку от мусора.
if FileExists(FileName) then
if MessageDlg('Хотите удалить ' + ExtractFileName(FileName) + '?'), mtConfirmation, [mbYes, mbNo], 0, mbNo) = IDYes then
DeleteFile(FileName);
а куда тут впихнуть ListBox?Для: HumpFREE
А в хэлп чиво не ходите???
The following code prompts for confirmation before deleting a file:
Код:if FileExists(FileName) then if MessageDlg('Хотите удалить ' + ExtractFileName(FileName) + '?'), mtConfirmation, [mbYes, mbNo], 0, mbNo) = IDYes then DeleteFile(FileName);
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin for i := 0 to ListBox1.Count do
if Not DeleteFile( ListBox1.Items[i] ) then ShowMessage( 'Не удалось удалить файл: ' + ListBox1.Items[i] );
end;
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab