안녕 하세요?

BacTeria 박종민 입니다.

휴지통에 화일을 버릴때는 SHFileOperation이라는 API를 사용 하시면 됩니다.

아래의 소스를 참고 하세요.

C:\AAA.AAA 화일을 휴지통에 버릴 경우입니다.

참! uses 구문에 ShellAPI 을 추가 해야합니다.

-----------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  FO: TShFileOpstruct;
begin
  FO.Wnd := Handle;
  FO.wFunc := FO_DELETE;
  FO.pFrom := PChar('C:\AAA.AAA');
  FO.pTo := PChar('C:\AAA.AAA');
  FO.fFlags := FOF_ALLOWUNDO;

  if SHFileOperation(FO) = 0 then ShowMessage('성공')
                             else ShowMessage('실패');
end;

------------------------------------------------------

SHFileOperation 에는 디렉토리 옮기기,

휴지통에 버리지 않고 바로 삭제, 등등의 기타 옵션이 있습니다.

더욱 자세한건 도움말을 참고하세요.

청주에서 박종민...