Главная страница
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.022 c
4-43960
LOX
2004-01-03 16:40
2004.03.14
PWideChar


14-43842
Думкин
2004-02-22 06:14
2004.03.14
С днем рождения! 22 февраля.


1-43671
Grinder
2004-03-01 20:10
2004.03.14
Как сделать форму на панели задачь?


1-43646
vlgrig1961
2004-03-02 10:12
2004.03.14
Как в QReport выводить вертикальный текст


3-43360
tomek
2004-02-15 11:03
2004.03.14
Глюк TStoredProc