【delphi开源代码栏目提醒】：本文主要为网学会员提供frm_Change.pas，希望对需要frm_Change.pas网友有所帮助，学习一下!

    unit frm_Change;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, FileCtrl, ExtCtrls, XPMan;
    
    type
      TFrmChange = class(TForm)
        PnlFileAndDir: TPanel;
        GBxDir: TGroupBox;
        DirectoryList: TDirectoryListBox;
        CBDrive: TDriveComboBox;
        GBxFile: TGroupBox;
        FileList: TFileListBox;
        EdNewName: TEdit;
        LbNewName: TLabel;
        BtnChangedir: TButton;
        BtnClose: TButton;
        BtnChangeFile: TButton;
        procedure BtnCloseClick(Sender: TObject);
        procedure BtnChangedirClick(Sender: TObject);
        procedure BtnChangeFileClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        Function Change(source,Decs:string):boolean;
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmChange: TFrmChange;
    
    implementation
    
    {$R *.dfm}
    Function TFrmChange.Change(source,Decs:string):Boolean;
    var
      i:integer;
      s:string;
      desstr,sourstr:array [0..255] of char;
    begin
      i:=0;
      result:=false;
      if (trim(decs) <> '') and (trim(Source) <> '') then
      begin
        i:=pos(string(Strrscan(pchar(source),'\')),source);
        s:=copy(Source,0,i);
        chdir(s);
        s:=s+decs;
        strcopy(@sourstr,pchar(source));
        strcopy(@desstr,pchar(s));
        if movefile(@sourstr,@desstr) then
          result:=true;
      end;
    end;
    
    procedure TFrmChange.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    procedure TFrmChange.BtnChangedirClick(Sender: TObject);
    begin
      if Change(DirectoryList.Directory,EdNewName.Text) then
      begin
        showmessage('修改目录名成功！！');
        DirectoryList.Update;
      end
      else
       showmessage('修改目录名称时出错！！请查看新名称是否正确！');
    end;
    
    procedure TFrmChange.BtnChangeFileClick(Sender: TObject);
    begin
      if Change(filelist.FileName,EdNewName.Text) then
      begin
        showmessage('修改文件名成功！！');
        FileList.Update;
      end
      else
        showmessage('修改文件名时出错！！请查看新名称是否正确！');
    end;
    
    procedure TFrmChange.FormCreate(Sender: TObject);
    begin
      CBDrive.Drive:='c';
    end;
    
    end.