APLIKASI SEDERHANA HAPUS FOLDER DENGAN DELPHI

Kita akan membuat aplikasi sederhana yaitu sebuah aplikasi exe dengan 1 tombol dimana pada tombol itu saat diklik akan menghapus sebuah folder. Berikut langkah-langkahnya

1. Tambahkan ShellAPI pada bagian uses

2. Tambah komponen tombol

3. Bikin event OnClick dengan kode berikut

var
ShOp: TSHFileOpStruct;
begin
ShOp.Wnd := Self.Handle;
ShOp.wFunc := FO_DELETE;
ShOp.pFrom := PChar('D:\hapussajaini'#0);
ShOp.fFlags := FOF_NOCONFIRMATION;
ShOp.pTo := nil;
SHFileOperation(ShOp);
end;

4. Selesai dan kompilasi