удаление файлов

[Leo20]

ЗдравствуйТЕ, народ.
Скажите плиз, как организовать удаление файла с индикационным окошком Windows?

[raxp]

Скажите плиз, как организовать удаление файла с индикационным окошком Windows?

это происходит так медленно?

[Leo20]

да, нет...
Это происходит махом для мелкий файлов.
Просто если файл большой, гига 2 или большое окОшко программы становится не доступно и не видно чего (он) ТАМ делаетСЯ.

[raxp]

Просто если файл большой, гига 2 или больше, то окшко программы становится не доступно и не видно чего он делает

странно, delete и на больших файлах быстро затирает или вы используете низкоуровневую затирку (типа запись нулями, как шредеры), чтоб восстановить нельзя было?
application.processmessages - пробовали перед операцией ставить?

[mihali4]

Опять из DFaq:

Файловые операции с использованием стандартного диалога с анимацией

В следующем примере используется функция SHFileOperation для копирования группы файлов и показа анимированного диалога. Вы можете использовать также следующие флаги для копирования, удаления, переноса и переименования файлов. TO_COPY, FO_DELETE, FO_MOVE, FO_RENAME

Примечание: буфер, содержащий имена файлов для копирования должен заканчиваться двумя нулевыми символами.
uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject); 
var 
  Fo      : TSHFileOpStruct; 
  buffer  : array[0..4096] of char; 
  p       : pchar; 
begin 
  FillChar(Buffer, sizeof(Buffer), #0); 
  p := @buffer; 
  p := StrECopy(p, 'C:\DownLoad\1.ZIP') + 1; 
  p := StrECopy(p, 'C:\DownLoad\2.ZIP') + 1; 
  p := StrECopy(p, 'C:\DownLoad\3.ZIP') + 1; 
  StrECopy(p, 'C:\DownLoad\4.ZIP'); 
  FillChar(Fo, sizeof(Fo), #0); 
  Fo.Wnd    := Handle; 
  Fo.wFunc  := FO_COPY; 
  Fo.pFrom  := @Buffer; 
  Fo.pTo    := 'D:\'; 
  Fo.fFlags := 0; 
  if ((SHFileOperation(Fo) <> 0) or
    (Fo.fAnyOperationsAborted <> false)) then
    ShowMessage('Cancelled') 
end;

[Leo20]

спасибо.
темы закрыта)