Kan denne function bruges til at slette mapper hvor indholdet er mere end 255 karakter.

Hejsa.

Jeg har fundet denne function på nettet, men er lidt i tvivl om den kan bruges til at slette mapper hvor stien er mere end 255 karakter.

Kan nogen hjælpe mig med at bekræfte om den kan?

Jeg har prøvet at putte den ind i mit program, men der sker ikke rigtig noget. Jeg kan ikke gennemskue om det går i stå pga. for lange stinavne,

Function DelTree(DirName : string): Boolean;
var
  SHFileOpStruct : TSHFileOpStruct;
  DirBuf : array [0..255] of char;
begin
  try
    Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;
    FillChar(DirBuf, Sizeof(DirBuf), 0 ) ;
    StrPCopy(DirBuf, DirName) ;
    with SHFileOpStruct do begin
      Wnd := 0;
      pFrom := @DirBuf;
      wFunc := FO_DELETE;
      fFlags := FOF_ALLOWUNDO;
      fFlags := fFlags or FOF_NOCONFIRMATION;
      fFlags := fFlags or FOF_SILENT;
    end;
    Result := (SHFileOperation(SHFileOpStruct) = 0) ;
  except
  Result := False;
end;
end;