Menghapus File ke Recycle Bin

Unit : ShellAPI;

Pada program Delphi, untuk menghapus file kita juga dapat memanfaat Recycle Bin yaitu dengan memanfaatkan unit ShellAPI, jadi jangan lupa mendeklarasikan ShellAPI pada Uses diawal program

Contoh:

Buat 1 buah komponen Edit,1 buah OpenDialog dan 2 buah Button. Lakukan doubleklik pada komponen Button1 dan Button2, tuliskan listing program berikut :

Uses ShellAPI;

procedure TF_DeleteFile.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName;

end;

procedure TF_DeleteRecycle.Button2Click(Sender: TObject);

var mOpStruct:TSHFileOpStruct;

mFile    :string;

begin

mFile:=Edit1.Text;

with mOpStruct do begin

Wnd    := Application.Handle; //handle kotak dialog

wFunc  := FO_DELETE;          //operasi yg dilakukan

pFrom  := PChar(mFile);       //path asal

pTo    := nil;                //path tujuan

fFlags := FOF_ALLOWUNDO;      //mempertahankan info undo (jika tersedia)

end;

SHFileOperation(mOpStruct);

end;