Menghapus File

Function : DeleteFile(const FileName: string): Boolean;

Pada program Delphi, untuk menghapus file kita dapat menggunakan fungsi : DeleteFile(const FileName: string): Boolean;

Contoh:

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

procedure TF_DeleteFile.Button1Click(Sender: TObject);

begin

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

end;

procedure TF_DeleteFile.Button2Click(Sender: TObject);

begin

if Deletefile(pchar(Edit1.Text))=true

then showmessage(‘Berhasil meng-copy file’)

else showmessage(‘Gagal meng-copy file’);

end;