例子如下:// 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. 給出文件的絕對(duì)路徑名,否則可能不能恢復(fù);
2. MS的文檔說(shuō)對(duì)于多個(gè)文件,每個(gè)文件名必須被#)字符分隔,而整個(gè)字符串必須用兩個(gè)#0結(jié)束