// 파일 휴지통으로 보내기. function DeleteFileWithUndo(sFileName : String ) : Boolean; var fos : TSHFileOpStruct; begin FillChar( fos, SizeOf( fos ), 0 ); with fos do begin //Wn := application.handle; wFunc := FO_DELETE; pFrom := PChar( sFileName ); fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRM!ATION or FOF_SILENT; end; Result := ( 0 = ShFileOperation( fos ) ); end;