Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quinta-feira, 2 de agosto de 2012

DELPHI - Abrir caixa de seleção de Diretório (pasta)

Reações: 
//Declare na seção uses:
FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  Diretorio: String;
Const
  CaminhoPadrao = 'D:\tmp\';
begin
  if FileCtrl.SelectDirectory('Selecione o Diretório', '', Diretorio) then
  begin
    if Diretorio <> '' then
      if Diretorio[Length(Diretorio)] <> '\' then
        Diretorio := Diretorio + '\';
  end
  else
    Diretorio := CaminhoPadrao;
End;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer