use shellAPI;

procedure TForm1.Button1Click(Sender: TObject);
Var
  T : TSHFileOpStruct;
  P:String;
begin
  P:= Edit1.Text;//目录名
  With T do
  Begin
    Wnd:=0;
    wFunc:=FO_DELETE;
    pFrom:=Pchar(P);
    pTo:=nil;
    fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复,无须确认并不显示出错信息
    hNameMappings:=nil;
    lpszProgressTitle:='正在删除文件夹';
    fAnyOperationsAborted:=False;
  End;
  SHFileOperation(T);
end;

Last modification:August 16th, 2009 at 12:30 pm
如果觉得我的文章对你有用,请随意赞赏