代码.txt

Delphi的函数例子

var
  SHFileOpStruct:TSHFileOpStruct;
  DirName:PChar;
  BufferSize:Cardinal;
begin
  BufferSize:=Length(ADirName)+1+1;
  GetMem(DirName,BufferSize);
    try
      FillChar(DirName^,BufferSize,0);
      StrCopy(DirName,PChar(ADirName));
      with SHFileOpStruct do
      begin
        Wnd:=AHandle;
        wFunc:=FO_DELETE;
        pFrom:=DirName;
        pTo:=nil;
        fFlags:=FOF_ALLOWUNDO;
        fAnyOperationsAborted:=False;
        hNameMappings:=nil;
        lpszProgressTitle:=nil;
      end;
      ifSHFileOperation(SHFileOpStruct)<>0then
      RaiseLastWin32Error;
    finally
  FreeMem(DirName,BufferSize);
end;