Windows - personalizando as pastas das caixas de abrir e salvar padrao do Windows (OpenDialog e SaveDialog)

Top  Previous  Next

unit PastasUnit;

 

interface

 

uses Forms, ARotinasUnit, ARotinas2Unit, StdCtrls, Classes, Controls, Mask, SysUtils, AEdit, ABtnEdit;

 

type

  TPastasForm = class(TForm)

    Place0: TABtnEdit;

    Place1: TABtnEdit;

    Place2: TABtnEdit;

    Place3: TABtnEdit;

    Place4: TABtnEdit;

    Button1: TButton;

    Button2: TButton;

    Label1: TLabel;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  end;

 

var

  PastasForm: TPastasForm;

 

implementation

 

{$R *.dfm}

 

const

  Chave = '\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\Placesbar';

 

procedure TPastasForm.Button2Click(Sender: TObject);

begin

  Close;

end;

 

procedure TPastasForm.Button1Click(Sender: TObject);

var

  I: Integer;

begin

  for I := 0 to 4 do

    GravaReg(Chave, 'Place' + IntToStr(I), TEdit(FindComponent('Place' + IntToStr(I))).Text);

  msgInforma('Configura com sucesso!');

  Close;

end;

 

procedure TPastasForm.FormCreate(Sender: TObject);

var

  I: Integer;

begin

  for I := 0 to 4 do

    TEdit(FindComponent('Place' + IntToStr(I))).Text := LerReg(Chave, 'Place' + IntToStr(I), '');

end;

 

end.