안녕하세요~ 구창민입니다.

아래 루틴을 사용해 보시구여.

만일 안된다면, XP의 경우 각 로그인된 계정에 따라 디렉토리의

권한이 다를 수 있으니 확인 해 보시구여.

그럼~ 항상 즐거운 프로그래밍 하시길~~

function DeleteAllFiles(FilesOrDir: string): boolean;
var
  F: TSHFileOpStruct;
  pFromc: array[0..255] of Char;
  Resultval: integer;
  Dir: string;
begin
  Dir := ExtractFilePath(FilesOrDir);

  Screen.Cursor := crHourGlass;
  try
    FillChar(pFromc, SizeOf(pFromc), 0);
    StrPcopy(pFromc, ExpandFileName(FilesOrDir) + #0#0);
    F.wnd   := 0;
    F.wFunc := FO_DELETE;
    F.pFrom := pFromC;
    F.pTo   := nil;

    F.fFlags := FOF_ALLOWUNDO or
                FOF_NOCONFIRMATION or
                FOF_SIMPLEPROGRESS or
                FOF_FILESONLY;

    F.fAnyOperationsAborted := False;
    F.hNameMappings := nil;
    Resultval := ShFileOperation(F);
    Result := (ResultVal = 0);
  finally
    Screen.Cursor := crDefault;
  end;
end;

답변에 감사 드립니다.
그런데 루틴을 사용하려다 보니
TSHFileOpStruct 형식이 선언 되지를 않읍니다.

어떻게 해야 하나요?
답변 부탁 드립니다.

uses
  ShellApi 추가하세요. ^_^

항상 즐거운 프로그래밍 하시길~~

답변에 감사 드립니다.
말씀하신데로 ShellApi를 Uses절에 포함하여 컴파일 하니 이상없이
컴파일은 됩니다.
그런데 여전히 폴더가 삭제 되지를 않는군요.
이유가 뭘까요?

몇몇의 답변하신분들은 해당폴더에대한 권한이 별도로 주어져 있어서
이러한 경우가 발생을 한다고 하는데 어떻게 해야 할까요?

정말 답답하군요, 죄송하지만 다른방법이나 문제점에 대하여 아시는것이
있으신지요?