DELPHI/Часто задаваемые вопросы и ответы на них/Win Api



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Удаляет файл в корзину

Удаляет файл в корзину
uses ShellAPI;

function DeleteFileWithUndo( sFileName : string ) : boolean;
var fos : TSHFileOpStruct;
begin
 sFileName:= sFileName+#0;
  FillChar( fos, SizeOf( fos ), 0 );
  with fos do begin
    wFunc  := FO_DELETE;
    pFrom  := PChar( sFileName );
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
  end;
  Result := ( 0 = ShFileOperation( fos ) );
end;
Copyright © "Мастера DELPHI" E-mail: delphi@mastak.com http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru