例子如下:// Delphi
program del;
uses ShellApi;
{ 利用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.
注意:
1. 給出文件的絕對路徑名,否則可能不能恢復;
2. MS的文檔說對于多個文件,每個文件名必須被#)字符分隔,而整個字符串必須用兩個#0結束