selectdirectoryunit.pas

来自「公交行业的管理系统」· PAS 代码 · 共 56 行

unit SelectDirectoryUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ShellCtrls;

type
  TSelectDirectoryForm = class(TForm)
    ShellTreeView1: TShellTreeView;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    Label2: TLabel;
    procedure BitBtn3Click(Sender: TObject);
    procedure ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SelectDirectoryForm: TSelectDirectoryForm;

implementation

{$R *.dfm}

procedure TSelectDirectoryForm.BitBtn3Click(Sender: TObject);
var
curPath:string;
begin
       if(copy(edit1.text,Length(edit1.text),1)<>'\')then
       curPath:=ShellTreeView1.SelectedFolder.PathName+'\'+Edit1.text
       else
       curPath:=ShellTreeView1.SelectedFolder.PathName+Edit1.text;

       if(not CreateDirectory(PCHAR(curPath),nil))then
       begin
             MessageBox(self.Handle,'该目录已存在或路径不对，不能创建该导出目录！','消息',MB_OK);
       end;
       ShellTreeView1.Refresh(ShellTreeView1.Selected);
end;

procedure TSelectDirectoryForm.ShellTreeView1Change(Sender: TObject;
  Node: TTreeNode);
begin
          Label2.Caption:='在文件夹('+ShellTreeView1.SelectedFolder.PathName+')下';
end;

end.