Форум: "Система";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

Как удалить файл в корзину?   Найти похожие ветки 

← →
Mishenka   (2004-03-01 22:44) [0]

Как удалить файл в корзину?

---

← →
ser_ega   (2004-03-01 22:46) [1]

Где то видел ищи в Faq!!!

---

← →
DDA ©   (2004-03-01 22:47) [2]

function Recycle(const FileName: string; Wnd: HWND = 0): Boolean;
var
FileOp: TSHFileOpStruct;
begin
FillChar(FileOp, SizeOf(FileOp), 0);
if Wnd = 0 then Wnd := Application.Handle;
FileOp.Wnd:=Wnd;
FileOp.wFunc:=FO_DELETE;
FileOp.pFrom:=PChar(FileName);
FileOp.fFlags:=FOF_ALLOWUNDO or FOF_NOERRORUI or FOF_SILENT;
Result:=(SHFileOperation(FileOp) = 0) and (not FileOp.fAnyOperationsAborted);
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Recycle(Edit1.Text, Handle);
end;


---

← →
Alexander666 ©   (2004-03-02 03:56) [3]

Не забудь подключить модуль ShellAPI

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.036 c