Uses
ShellApi;
procedure FichierRecycler(s:string);
var SHFileOpStruct : TSHFileOpStruct;
begin
with SHFileOpStruct do
begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=PChar(s+#0+#0);
pTo:=nil;
fFlags:= FOF_ALLOWUNDO;
hNameMappings:=nil;
lpszProgressTitle:=nil;
end;
SHFileOperation(SHFileOpStruct);
end; |