rename_unit.~pas

地理资源的录入程序运用了api的一些知识

unit rename_Unit;

interface

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

type
  Trenamefrm = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  renamefrm: Trenamefrm;

implementation

uses shellapi,Unit1;

{$R *.dfm}
function RenDirectory(const OldName,NewName:string): boolean;
//var
//  fo: TSHFILEOPSTRUCT;
begin
{ FillChar(fo, SizeOf(fo), 0);
  with fo do
  begin
    Wnd := 0;
    wFunc := FO_RENAME;
    pFrom := PChar(OldName+#0);
    pTo := pchar(NewName+#0);
    fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
  end;
  Result := (SHFileOperation(fo) = 0);
end;}
end;
procedure Trenamefrm.Button2Click(Sender: TObject);
//var   sf:TShellFolder;
 //     hi:string;
  begin
 {     if   sltfrm.slv_1.SelCount=0   then
      begin
      exit;
      showmessage('请先选择文件夹!');
      end
      else
      sf:=sltfrm.slv_1.Folders[sltfrm.slv_1.Selected.Index];
      hi:=edit2.Text;
     // setcurrentdir(Application.ExeName);
     if  RenDirectory(sf.PathName,hi) then
       showmessage('right')
       else
         showmessage('wrong');

      // renamefile(sf.PathName ,hi);
       showmessage(sf.PathName);
       sltfrm.slv_1.Refresh;
       sltfrm.STV_1.Refresh(sltfrm.STV_1.TopItem);
       close;
   end;}
    end;
procedure Trenamefrm.FormShow(Sender: TObject);
begin
//edit2.SetFocus ;
end;

procedure Trenamefrm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
//IF KEY=#13 THEN
 //  BUTTON2.SetFocus  ;
end;

end.