rename.pas

这是一个间歇的小唾弃,希望大家希望,以后大家多学习,多多交流共同进步!

unit ReName;

interface

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

type
  TfrmReName = class(TForm)
    lbOldName1: TLabel;
    lbOldName: TLabel;
    lbNewName: TLabel;
    EditName: TEdit;
    btOk: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure btOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmReName: TfrmReName;

implementation

uses TestMain;

{$R *.DFM}

procedure TfrmReName.FormCreate(Sender: TObject);
begin
    //lbOldName.Width :=150;
   // lbOldName.Height :=15;
end;

procedure TfrmReName.FormActivate(Sender: TObject);
var
   OldName:string;
begin
   OldName:=frmMain.FileListBox.FileName ; //得到旧文件名
   lbOldName.Caption :=ExtractFileName(OldName);//显示旧文件名
end;

procedure TfrmReName.Button2Click(Sender: TObject);
begin
    frmReName.Close;
    frmReName.Free;
end;

procedure TfrmReName.btOkClick(Sender: TObject);
var
  NewName:string;
begin
     if EditName.Text ='' then begin
        ShowMessage('新文件名不能为空!');
        EditName.SetFocus ;
     end
     else
       begin
          NewName:=frmMain.FileListBox.Directory +'\'+EditName.Text ; //组合成新的绝对文件名
          if ReNameFile(frmMain.FileListBox.FileName,NewName)=false then  //文件重命名
             showmessage('改名失败！')
          else
             frmReName.Close ;
             frmReName.Free ;
             frmMain.FileListBox.Update ;
       end;
end;

end.