Teknologi

PENGUNJUNG

mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHari ini19
mod_vvisit_counterKemarin83
mod_vvisit_counterMinggu ini745
mod_vvisit_counterBulan ini373
mod_vvisit_counterTotal37312
Menghapus File ke Recycle Bin PDF Print E-mail
User Rating: / 0
PoorBest 
Delphi - Tips dan Trik Delphi
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.