SelectDirectory

unit DirectoryDialog;

interface

uses
 SysUtils, Classes, Dialogs, FileCtrl;

type
 TDirectoryDialog = class(TCommonDialog)
 private
   { Private declarations }
   FInitialDir: string;
   FTitle: string;
   FSelectDir:String;
   FCleanUp:Boolean;
   procedure SetInitialDir(const Value: string);
 protected
   { Protected declarations }
 public
   { Public declarations }
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;
   function Execute: Boolean; override;
   property SelectedDir:string read FSelectDir write FSelectDir;
 published
   { Published declarations }
   property InitialDir: string read FInitialDir write SetInitialDir;
   property Title: string read FTitle write FTitle;
   property CleanUpLastFolder:Boolean read FCleanUp write FCleanUp;
 end;

procedure Register;

implementation

constructor TDirectoryDialog.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 Title:='Быберите директорию...';
end;

destructor TDirectoryDialog.Destroy;
begin
 inherited Destroy;
end;

function TDirectoryDialog.Execute: Boolean;
begin
if CleanUpLastFolder then
 FSelectDir:='';
if (InitialDir='Desktop') then
 Result:=FileCtrl.SelectDirectory(self.title,'',FSelectDir) else
 Result:=FileCtrl.SelectDirectory(self.title,InitialDir,FSelectDir);
end;

procedure TDirectoryDialog.SetInitialDir(const Value: string);
var
 L: Integer;
begin
 L := Length(Value);
 if (L > 1) and IsPathDelimiter(Value, L)
   and not IsDelimiter(':', Value, L - 1) then Dec(L);
 FInitialDir := Copy(Value, 1, L);
end;

procedure Register;
begin
 RegisterComponents('Components', [TDirectoryDialog]);
end;

end.