R
Roo
Unregistered / Unconfirmed
GUEST, unregistred user!
唐
唐晓锋
Unregistered / Unconfirmed
GUEST, unregistred user!
前天刚从<a href="http://www.nease.net/~liyaping">边缘软件工作室</a>拉回来的例子,借花献佛!<br> 可以使用 SHFileOperation(), 值得注意的是档名 list 中是以 #0 分隔, 最後一个项目必须以双 #0 字元结束,<br> 以下分别是删除""个目录(含字目录) 与档案的用法示例: <br> // Test for delete a folder and move files into Recycle Bin<br> // Change the APath variable as you need. // <br> uses ..., ShellAPI;<br> procedure TForm1.Button1Click(Sender: TObject); <br> var<br> APath : AnsiString; <br> lpFileOp: TSHFileOpStruct; <br> begin<br> APath := 'D:/temp/test123'#0#0; // must end with double-#0<br> with lpFileOp do <br> begin <br> Wnd := Self.Handle;<br> wFunc := FO_DELETE; <br> pFrom := pchar(APath);<br> pTo := nil;<br> fFlags := FOF_ALLOWUNDO;<br> hNameMappings := nil;<br> lpszProgressTitle := nil;<br> fAnyOperationsAborted := True;<br> end;<br> if SHFileOperation(lpFileOp) = 0 then<br> ShowMessage('SHFileOperation OK.')<br> else<br> ShowMessage('SHFileOperation Fail!!'); <br>end; <br> 档案s 删除并送至资源回收筒?<br> procedure TForm1.Button1Click(Sender: TObject);<br> var<br> APath : AnsiString; <br> lpFileOp: TSHFileOpStruct;<br> begin<br> // must end with double-#0 <br> APath :='D:/temp/test123/l.txt'#0'D:/temp/test123/l3.txt'#0#0;<br> with lpFileOp do <br> begin<br> Wnd := Self.Handle;<br> wFunc := FO_DELETE; <br> pFrom := pchar(APath);<br> pTo := nil;<br> fFlags := FOF_ALLOWUNDO; <br> hNameMappings := nil;<br> lpszProgressTitle := nil; <br> fAnyOperationsAborted := True;<br> end;<br> if SHFileOperation(lpFileOp) = 0 then<br> ShowMessage('SHFileOperation OK.')<br> else<br> ShowMessage('SHFileOperation Fail!!'); <br>end;<br>Good Luck!<br><br>
J
jiangtao
Unregistered / Unconfirmed
GUEST, unregistred user!
也是借花献佛
<br>How can I delete a file to the<br>Recycle Bin?<br><br>From: "Ed Lagerburg" <lagerbrg@euronet.nl> <br><br><br>program del;<br><br>uses<br> ShellApi;<br><br>//function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall;<br><br>Var T:TSHFileOpStruct;<br> P:String;<br>begin<br> P:='C:/Windows/System/EL_CONTROL.CPL';<br> With T do<br> Begin<br> Wnd:=0;<br> wFunc:=FO_DELETE;<br> pFrom:=Pchar(P);<br> fFlags:=FOF_ALLOWUNDO<br> End;<br> SHFileOperation(T);<br>End.<br><br><br>From: bstowers@pobox.com (Brad Stowers)<br><br>There are some other quirks you should be aware of, too: <br><br> Give the complete file path for every file specified. Do<br> not rely on the current directory, even if you change to it<br> right before the call. The SHFileOperation API is not<br> "smart" enough to use the current directory if one is not<br> given for undo information. So, even if you give the<br> FOF_ALLOWUNDO flag, it will not move deleted files to the<br> recycle bin because it doesn't know what path they came<br> from, and thus couldn't restore them to their original<br> location from the recycle bin. It will simply delete the<br> file from the current directory. <br><br> MS has a documentation correction about the pFrom member.<br> It says that for multiple files, each filename is seperated<br> by a NULL (#0) character, and the whole thing is terminated<br> by double NULLs. You need the double NULL whether or not<br> you are passing multiple filenames. Sometimes it will work<br> correctly without them, but often not. That's because<br> sometimes you get lucky and the memory following the end of<br> your string has a NULL there. <br><br>An example of how to do this would be:<br><br>var<br> FileList: string;<br> FOS: TShFileOpStruct;<br>begin<br> FileList := 'c:/delete.me'#0'c:/windows/temp.$$$'#0#0;<br> { if you were using filenames in string variables: }<br> FileList := Filename1 + #0 + Filename2 + #0#0;<br><br> FOS.pFrom := PChar(FileList);<br><br> // blah blah blah<br>end;
<br>How can I delete a file to the<br>Recycle Bin?<br><br>From: "Ed Lagerburg" <lagerbrg@euronet.nl> <br><br><br>program del;<br><br>uses<br> ShellApi;<br><br>//function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall;<br><br>Var T:TSHFileOpStruct;<br> P:String;<br>begin<br> P:='C:/Windows/System/EL_CONTROL.CPL';<br> With T do<br> Begin<br> Wnd:=0;<br> wFunc:=FO_DELETE;<br> pFrom:=Pchar(P);<br> fFlags:=FOF_ALLOWUNDO<br> End;<br> SHFileOperation(T);<br>End.<br><br><br>From: bstowers@pobox.com (Brad Stowers)<br><br>There are some other quirks you should be aware of, too: <br><br> Give the complete file path for every file specified. Do<br> not rely on the current directory, even if you change to it<br> right before the call. The SHFileOperation API is not<br> "smart" enough to use the current directory if one is not<br> given for undo information. So, even if you give the<br> FOF_ALLOWUNDO flag, it will not move deleted files to the<br> recycle bin because it doesn't know what path they came<br> from, and thus couldn't restore them to their original<br> location from the recycle bin. It will simply delete the<br> file from the current directory. <br><br> MS has a documentation correction about the pFrom member.<br> It says that for multiple files, each filename is seperated<br> by a NULL (#0) character, and the whole thing is terminated<br> by double NULLs. You need the double NULL whether or not<br> you are passing multiple filenames. Sometimes it will work<br> correctly without them, but often not. That's because<br> sometimes you get lucky and the memory following the end of<br> your string has a NULL there. <br><br>An example of how to do this would be:<br><br>var<br> FileList: string;<br> FOS: TShFileOpStruct;<br>begin<br> FileList := 'c:/delete.me'#0'c:/windows/temp.$$$'#0#0;<br> { if you were using filenames in string variables: }<br> FileList := Filename1 + #0 + Filename2 + #0#0;<br><br> FOS.pFrom := PChar(FileList);<br><br> // blah blah blah<br>end;
J
jiangtao
Unregistered / Unconfirmed
GUEST, unregistred user!
也是借花献佛 from uddf<br>How can I delete a file to the<br>Recycle Bin?<br><br>From: "Ed Lagerburg" <lagerbrg@euronet.nl> <br><br><br>program del;<br><br>uses<br> ShellApi;<br><br>//function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall;<br><br>Var T:TSHFileOpStruct;<br> P:String;<br>begin<br> P:='C:/Windows/System/EL_CONTROL.CPL';<br> With T do<br> Begin<br> Wnd:=0;<br> wFunc:=FO_DELETE;<br> pFrom:=Pchar(P);<br> fFlags:=FOF_ALLOWUNDO<br> End;<br> SHFileOperation(T);<br>End.<br><br><br>From: bstowers@pobox.com (Brad Stowers)<br><br>There are some other quirks you should be aware of, too: <br><br> Give the complete file path for every file specified. Do<br> not rely on the current directory, even if you change to it<br> right before the call. The SHFileOperation API is not<br> "smart" enough to use the current directory if one is not<br> given for undo information. So, even if you give the<br> FOF_ALLOWUNDO flag, it will not move deleted files to the<br> recycle bin because it doesn't know what path they came<br> from, and thus couldn't restore them to their original<br> location from the recycle bin. It will simply delete the<br> file from the current directory. <br><br> MS has a documentation correction about the pFrom member.<br> It says that for multiple files, each filename is seperated<br> by a NULL (#0) character, and the whole thing is terminated<br> by double NULLs. You need the double NULL whether or not<br> you are passing multiple filenames. Sometimes it will work<br> correctly without them, but often not. That's because<br> sometimes you get lucky and the memory following the end of<br> your string has a NULL there. <br><br>An example of how to do this would be:<br><br>var<br> FileList: string;<br> FOS: TShFileOpStruct;<br>begin<br> FileList := 'c:/delete.me'#0'c:/windows/temp.$$$'#0#0;<br> { if you were using filenames in string variables: }<br> FileList := Filename1 + #0 + Filename2 + #0#0;<br><br> FOS.pFrom := PChar(FileList);<br><br> // blah blah blah<br>end;
from uddf<br>How can I delete a file to the<br>Recycle Bin?<br><br>From: "Ed Lagerburg" <lagerbrg@euronet.nl> <br><br><br>program del;<br><br>uses<br> ShellApi;<br><br>//function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall;<br><br>Var T:TSHFileOpStruct;<br> P:String;<br>begin<br> P:='C:/Windows/System/EL_CONTROL.CPL';<br> With T do<br> Begin<br> Wnd:=0;<br> wFunc:=FO_DELETE;<br> pFrom:=Pchar(P);<br> fFlags:=FOF_ALLOWUNDO<br> End;<br> SHFileOperation(T);<br>End.<br><br><br>From: bstowers@pobox.com (Brad Stowers)<br><br>There are some other quirks you should be aware of, too: <br><br> Give the complete file path for every file specified. Do<br> not rely on the current directory, even if you change to it<br> right before the call. The SHFileOperation API is not<br> "smart" enough to use the current directory if one is not<br> given for undo information. So, even if you give the<br> FOF_ALLOWUNDO flag, it will not move deleted files to the<br> recycle bin because it doesn't know what path they came<br> from, and thus couldn't restore them to their original<br> location from the recycle bin. It will simply delete the<br> file from the current directory. <br><br> MS has a documentation correction about the pFrom member.<br> It says that for multiple files, each filename is seperated<br> by a NULL (#0) character, and the whole thing is terminated<br> by double NULLs. You need the double NULL whether or not<br> you are passing multiple filenames. Sometimes it will work<br> correctly without them, but often not. That's because<br> sometimes you get lucky and the memory following the end of<br> your string has a NULL there. <br><br>An example of how to do this would be:<br><br>var<br> FileList: string;<br> FOS: TShFileOpStruct;<br>begin<br> FileList := 'c:/delete.me'#0'c:/windows/temp.$$$'#0#0;<br> { if you were using filenames in string variables: }<br> FileList := Filename1 + #0 + Filename2 + #0#0;<br><br> FOS.pFrom := PChar(FileList);<br><br> // blah blah blah<br>end;
R
Roo
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
