copy, rename and move file dengan delphi

sedikit membuat applikasi kecil bahakan sangat kecil kecilan, ia kalo untuk copy pate, move paste dan rename file itu sudah biasa di windows tinggal klik kanan saja beres…
tpi sekarang sya memcoba membuat itu di delphi dengan coding yang sederhana ..
siap dan udah di buka delphi nya ?
iu kita mulai
pertama, kita design form kayak gini iu .

kurang lebih seperti itu pake Edit dan Button saja dan jangan lupa tempelkan OpenDialog juga ia..
kedua, biasa double klik di Button browse atas

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label3.Caption:='';
  if OpenDialog1.Execute then
  begin
    Edit1.Text:=OpenDialog1.FileName;
    Edit2.Text:=Edit1.Text;
  end;
end;

Button browse bawah

procedure TForm1.Button6Click(Sender: TObject);
var
  St: string;
begin
  St:='c:\';
  if SelectDirectory(St, [], 0) then
    Edit2.Text:=St+'\'+ExtractFileName(Edit1.Text);
end;

Button Copy

procedure TForm1.Button4Click(Sender: TObject);
begin
  if (Edit1.Text<>'')and(Edit2.Text<>'') then
    if CopyFile(PChar(Edit1.Text), PChar(Edit2.Text), False) then Label3.Caption:='OK'
end;

Button Rename

  if (Edit1.Text<>'')and(Edit2.Text<>'') then
    if RenameFile(Edit1.Text, Edit2.Text) then Label3.Caption:='OK'

eh lupa itu ada Label3.caption:=’OK’ ia tingggal bikin aja ia Label3 nya tinggal tempel, selamat mencoba ..

Advertisement