如何在程序中将文件放入回收站(100分)

唐晓锋 · 1998-11-28

前天刚从<a href="http://www.nease.net/~liyaping">边缘软件工作室</a>拉回来的例子,借花献佛!      可以使用 SHFileOperation(), 值得注意的是档名 list 中是以 #0 分隔, 最後一个项目必须以双 #0 字元结束,      以下分别是删除""个目录(含字目录) 与档案的用法示例:      // Test for delete a folder and move files into Recycle Bin      // Change the APath variable as you need.     //      uses ..., ShellAPI;    procedure TForm1.Button1Click(Sender: TObject);        var       APath   : AnsiString;             lpFileOp: TSHFileOpStruct;       begin        APath := 'D:/temp/test123'#0#0; // must end with double-#0        with lpFileOp do              begin                  Wnd := Self.Handle;          wFunc := FO_DELETE;              pFrom := pchar(APath);          pTo := nil;          fFlags := FOF_ALLOWUNDO;          hNameMappings := nil;          lpszProgressTitle := nil;          fAnyOperationsAborted := True;        end;        if SHFileOperation(lpFileOp) = 0 then          ShowMessage('SHFileOperation OK.')        else          ShowMessage('SHFileOperation Fail!!');     end;   档案s 删除并送至资源回收筒?   procedure TForm1.Button1Click(Sender: TObject);   var        APath   : AnsiString;              lpFileOp: TSHFileOpStruct;   begin        // must end with double-#0           APath :='D:/temp/test123/l.txt'#0'D:/temp/test123/l3.txt'#0#0;     with lpFileOp do       begin       Wnd := Self.Handle;       wFunc := FO_DELETE;       pFrom := pchar(APath);       pTo := nil;       fFlags := FOF_ALLOWUNDO;         hNameMappings := nil;       lpszProgressTitle := nil;       fAnyOperationsAborted := True;     end;     if SHFileOperation(lpFileOp) = 0 then       ShowMessage('SHFileOperation OK.')     else       ShowMessage('SHFileOperation Fail!!');     end; Good Luck!

jiangtao · 1998-11-28

也是借花献佛

How can I delete a file to the Recycle Bin? From: "Ed Lagerburg" <lagerbrg@euronet.nl> program del; uses  ShellApi; //function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall; Var T:TSHFileOpStruct;     P:String; begin   P:='C:/Windows/System/EL_CONTROL.CPL';   With T do   Begin     Wnd:=0;     wFunc:=FO_DELETE;     pFrom:=Pchar(P);     fFlags:=FOF_ALLOWUNDO   End;   SHFileOperation(T); End. From: bstowers@pobox.com (Brad Stowers) There are some other quirks you should be aware of, too:       Give the complete file path for every file specified. Do       not rely on the current directory, even if you change to it       right before the call. The SHFileOperation API is not       "smart" enough to use the current directory if one is not       given for undo information. So, even if you give the       FOF_ALLOWUNDO flag, it will not move deleted files to the       recycle bin because it doesn't know what path they came       from, and thus couldn't restore them to their original       location from the recycle bin. It will simply delete the       file from the current directory.       MS has a documentation correction about the pFrom member.       It says that for multiple files, each filename is seperated       by a NULL (#0) character, and the whole thing is terminated       by double NULLs. You need the double NULL whether or not       you are passing multiple filenames. Sometimes it will work       correctly without them, but often not. That's because       sometimes you get lucky and the memory following the end of       your string has a NULL there. An example of how to do this would be: var   FileList: string;   FOS: TShFileOpStruct; begin   FileList := 'c:/delete.me'#0'c:/windows/temp.$$$'#0#0;   { if you were using filenames in string variables: }   FileList := Filename1 + #0 + Filename2 + #0#0;   FOS.pFrom := PChar(FileList);   // blah blah blah end;

jiangtao · 1998-11-28

也是借花献佛

from uddf How can I delete a file to the Recycle Bin? From: "Ed Lagerburg" <lagerbrg@euronet.nl> program del; uses  ShellApi; //function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall; Var T:TSHFileOpStruct;     P:String; begin   P:='C:/Windows/System/EL_CONTROL.CPL';   With T do   Begin     Wnd:=0;     wFunc:=FO_DELETE;     pFrom:=Pchar(P);     fFlags:=FOF_ALLOWUNDO   End;   SHFileOperation(T); End. From: bstowers@pobox.com (Brad Stowers) There are some other quirks you should be aware of, too:       Give the complete file path for every file specified. Do       not rely on the current directory, even if you change to it       right before the call. The SHFileOperation API is not       "smart" enough to use the current directory if one is not       given for undo information. So, even if you give the       FOF_ALLOWUNDO flag, it will not move deleted files to the       recycle bin because it doesn't know what path they came       from, and thus couldn't restore them to their original       location from the recycle bin. It will simply delete the       file from the current directory.       MS has a documentation correction about the pFrom member.       It says that for multiple files, each filename is seperated       by a NULL (#0) character, and the whole thing is terminated       by double NULLs. You need the double NULL whether or not       you are passing multiple filenames. Sometimes it will work       correctly without them, but often not. That's because       sometimes you get lucky and the memory following the end of       your string has a NULL there. An example of how to do this would be: var   FileList: string;   FOS: TShFileOpStruct; begin   FileList := 'c:/delete.me'#0'c:/windows/temp.$$$'#0#0;   { if you were using filenames in string variables: }   FileList := Filename1 + #0 + Filename2 + #0#0;   FOS.pFrom := PChar(FileList);   // blah blah blah end;

Roo · 1998-11-29

多人接受答案了。

如何在程序中将文件放入回收站(100分)

Roo

Unregistered / Unconfirmed

唐晓锋

Unregistered / Unconfirmed

jiangtao

Unregistered / Unconfirmed

jiangtao

Unregistered / Unconfirmed

Roo

Unregistered / Unconfirmed

Similar threads