Удаление файлов в корзину

Советы » Файлы » Удаление файлов в корзину

uses

ShellAPI;
procedure

SendToRecycleBin(FileName: string); var


SHF: TSHFileOpStruct;
begin


with SHF do begin
Wnd := Application.Handle; wFunc := FO_DELETE;
pFrom := PChar(FileName); fFlags := FOF_SILENT or FOF_ALLOWUNDO; end;
SHFileOperation(SHF);
end

;

procedure

TForm1.Button1Click(Sender: TObject); begin


SendToRecycleBin('c:DownLoadTest.gif'); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com