Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.017 c
1-43546
Тимохов
2004-01-23 13:14
2004.03.14
Я, похоже, первый!!! Вопрос про округление.


7-43899
Ермак
2003-12-25 12:02
2004.03.14
Глюк монитора при загрузке ХР


3-43386
Serj
2004-02-14 13:51
2004.03.14
Как отключить благодарность за выбор DBISAM


3-43259
mtb
2004-02-13 07:52
2004.03.14
Необходимы библиотеки libct.dll и libcs.dll


3-43387
ceval
2004-02-14 12:26
2004.03.14
программа с использыванием dbf файлов