Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

Как в Windows XP и NT отправить файлы в корзину.   Найти похожие ветки 

← →
Neznaika   (2004-01-01 19:32) [0]

Как в Windows XP и NT отправить файлы в корзину.SHFileOperation
не работает , будто бы отсилает их туда , а их там нету.

---

← →
NikB   (2004-01-02 12:15) [1]

A u menie net raznica SHFileOperation v 9x i NT(XP).

---

← →
DDA   (2004-01-02 14:24) [2]



unit Unit1;

interface

uses ShellAPI,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
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;

end.



---

← →
crite   (2004-01-05 14:58) [3]

А другого способа отправить файл в корзину нет ?

---

← →
clickmaker   (2004-01-05 15:25) [4]

> crite © (05.01.04 14:58) [3]
> А другого способа отправить файл в корзину нет ?

Распечатать, скомкать и бросить в корзину для бумаг :)

---

← →
crite   (2004-01-05 19:49) [5]

> Распечатать, скомкать и бросить в корзину для бумаг :)

Совет хорший,но мне наверное не поможет:)
У меня почему-то SHFileOperation не удаляет файлы с рабочего стола да и с других адресов очень часто<>0.

---

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

Текущий архив: 2004.03.14;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.012 c