| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в Windows XP и NT отправить файлы в корзину. [D6, NT4, WinXP]

Neznaika ©   (2004-01-01 19:32:00) 

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

---

crite   (2004-01-05 19:49:00) [1]

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

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

---

clickmaker   (2004-01-05 15:25:00) [2]

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

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

---

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

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

---

DDA   (2004-01-02 14:24:00) [4]



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.



---

NikB   (2004-01-02 12:15:00) [5]

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

---

Наверх