Menghapus File ke Recycle Bin

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
FileOpStruc: TSHFileOpStruct;
s: PChar;
begin
s := 'C:\coba.txt';
with FileOpStruc do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := s;
fFlags := FOF_ALLOWUNDO
end;
SHFileOperation(FileOpStruc);
end;

end.

Jasa dan Layanan Parungkuda Management

  • 50 Iklan Baris Indonesia Submission
  • 100 Iklan Baris Indonesia Submission
  • 150 Iklan Baris Indonesia Submission
  • 200 Iklan Baris Indonesia Submission
  • 250 Iklan Baris Indonesia Submission
  • 300 Iklan Baris Indonesia Submission
  • 350 Iklan Baris Indonesia Submission
  • 400 Iklan Baris Indonesia Submission
  • 450 Iklan Baris Indonesia Submission
  • 500 Iklan Baris Indonesia Submission
  • Pulsa Elektrik PPOB
  •