[Electronic_Arts]

Как с помошю делфи очистить какуюта папку например
c:/windows/temp

[Decoding]

Код:

function ClearDir( Dir: string ): boolean;
var
  isFound: boolean;
  sRec: TSearchRec;
begin
   Result := false;
   ChDir( Dir );
   if IOResult <> 0 then
   begin
      ShowMessage( 'Не могу войти в каталог: ' + Dir );
      Exit;
   end;
   if Dir[Length(Dir)] <> '\' then Dir := Dir + '\';
   isFound := FindFirst( Dir + '*.*', faAnyFile, sRec ) = 0;
   while isFound do
   begin
   if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
      if ( sRec.Attr and faDirectory ) = faDirectory then
      begin
         if not ClearDir( Dir + sRec.Name ) then
            Exit;
         if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
            if ( Dir + sRec.Name ) <> Dir then
            begin
               ChDir( '..' );
               RmDir( Dir + sRec.Name );
            end;
      end
      else
         if not DeleteFile( Dir + sRec.Name ) then
         begin
            ShowMessage( 'Не могу удалить файл: ' + sRec.Name );
            Exit;
         end;
      isFound := FindNext( sRec ) = 0;
   end;
   FindClose( sRec );
   Result := IOResult = 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ClearDir( 'C:\Windows\Temp' );
end;

[Майняк]

есть вопрос - есть ответ. Какой вопрос - такой ответ :d
Можно создавать динамически временные Bat-файлы.

[Electronic_Arts]

Попробую и скажу

[Electronic_Arts]

function ClearDir( Dir: string ): boolean;
var
isFound: boolean;
sRec: TSearchRec;
begin
Result := false;
ChDir( Dir );
if IOResult <> 0 then
begin
ShowMessage( 'Не могу войти в каталог: ' + Dir );
Exit;
end;
if Dir[Length(Dir)] <> '\' then Dir := Dir + '\';
isFound := FindFirst( Dir + '*.*', faAnyFile, sRec ) = 0;
while isFound do
begin
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
if ( sRec.Attr and faDirectory ) = faDirectory then
begin
if not ClearDir( Dir + sRec.Name ) then
Exit;
if ( sRec.Name <> '.' ) and ( sRec.Name <> '..' ) then
if ( Dir + sRec.Name ) <> Dir then
begin
ChDir( '..' );
RmDir( Dir + sRec.Name );
end;
end
else
if not DeleteFile( Dir + sRec.Name ) then
begin
ShowMessage( 'Не могу удалить файл: ' + sRec.Name );
Exit;
end;
isFound := FindNext( sRec ) = 0;
end;
FindClose( sRec );
Result := IOResult = 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ClearDir( 'C:\Documents and Settings\(как поставить сюда имя пользователя из Edit1.text)\Local Settings\Temp' );
end;

[Decoding]

Код:

ClearDir( 'C:\Documents and Settings\'+Edit1.Text+'\Local Settings\Temp' );

[Electronic_Arts]

Спосибо огромное