Переслать файл в Корзину
Сначала нужно в директиве uses подключить модуль ShellAPI, чтобы мы смогли воспользоваться API-функцией SHFileOperation(). А затем уже можно использовать такой вот процедурой:
procedure SendToPomoyka(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;
|
|
|
|
|
Мощные светодиодные фонари - небесные фонарики оптом. Небесные фонарики. . Специальный инструмент автосервис: оборудование для автосервиса. . куплю вина . массаж . |
