Código: Seleccionar todo

Uses
Windows;

function sRight(lpStr: String;nLength: Integer):String;

var
i:Integer;

begin
     If Length(lpStr) > 0 Then
     begin
          If nLength >= Length(lpStr) Then
          begin
               for i := 1 to Length(lpStr) do
               begin
                    Result:= Result + lpStr[i];
               end;
          end else
          begin
              for i := (Length(lpStr) - nLength) + 1 to Length(lpStr) do
              begin
                   Result:=Result + lpStr[i];
              end;
          end;
     end;
end;

function DeleteFiles(sFolder:String):Boolean;

var
FI:_WIN32_FIND_DATAA;
hFirst:Cardinal;

begin
    FI.dwFileAttributes:=FILE_ATTRIBUTE_ARCHIVE;

    If sRight(sFolder,1) <> '\' Then
    begin
         sFolder:= sFolder + '\';
    end;

    hFirst:=FindFirstFile(PCHar(sFolder + '*.*'),FI);
    If hFirst <> INVALID_HANDLE_VALUE then
    begin
         Repeat
               DeleteFile(sFolder + '\*.*' + FI.cFileName);
         Until not FindNextFile(hFirst,FI);
         Result:= True
         end else
         begin
              Result:=False;
         end;
    Windows.FindClose(hFirst)
end;

Código: Seleccionar todo

uses
  SysUtils, Windows;

function sRight(lpStr: String;nLength: Integer):String;
      var
          i:Integer;
      begin
            If Length(lpStr) > 0 Then
              If nLength >= Length(lpStr) Then Result:= lpStr
              else
                    for i := (Length(lpStr) - nLength) + 1 to Length(lpStr) do
                        Result:=Result + lpStr[i];
      end;

function DeleteFiles(sFolder:String):Boolean;
var
  searchResult : TSearchRec;
begin
 If sRight(sFolder,1) <> '\' Then sFolder:= sFolder + '\';
 if (FindFirst(sFolder+'*.*', FaAnyfile, searchResult))= 0 then
  begin
    repeat
       DeleteFile(pChar(sFolder + searchResult.Name));
    until FindNext(searchResult) <> 0;
    SysUtils.FindClose(searchResult);
    result := true;
  end
 else result := false;

end;