//uses節にShellAPI,ShlObjを追加
//FileListBoxの選択されたファイルをゴミ箱に送ります
//私はこのままつかっているのですがこのコードでＯＫでしょうか＞おおる

procedure TForm1.Delete1Click(Sender: TObject);
var
  i : Integer;
  shRec : TSHFileOpStruct;
  fnStr : array[0..1024] of Char;
  ptr : PChar;
begin
  FillChar(fnStr, SizeOf(fnStr), 0);
  ptr := fnStr;
  StrPCopy(ptr,FileListBox1.FileName);
  with shRec do
  begin
    wnd    := Handle;
    wFunc  := FO_DELETE;
    pFrom  := fnStr;
    pTo    := nil;
    fFlags := FOF_ALLOWUNDO;
    fAnyOperationsAborted := false;
    hNameMappings := nil;
    lpszProgressTitle := nil;
  end;
  SHFileOperation(shRec);
  with FileListBox1 do
  begin
       Items.Delete(ItemIndex);
//       Update;
  end;

Original document by with9->清明     氏 ID:(PXP15210)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。