Buscar por:

Setando um diretório fixo em um directorylistbox

Código

Caros amigos.

Como precisei deste procedimento e achei que o mesmo seria útil aos usuários "Delphianos", passo-o então a todos vocês.

O caso é o seguinte:

Tenho um DirectoryListBox e quero que o Diretório inicial dele seja fixo. Ex:

Quero que o meu diretório fixo seja C:Diretorio.

O usuário que estiver manipulando o aplicativo não poderá mudar o diretório para cima, ou seja, não poderá ir para "C:", mas, poderá navegar nos sub-diretórios deste primeiro "C:Diretorio".

Então vamos ao código:

No evento OnChange do DirectoryListBox coloque o seguinte código:

procedure TForm1.DirectoryListBox1Change(Sender: TObject);

CONST RAIZ = 'C:Diretorio';

var NOVO : String;

begin

  NOVO := UpperCase(Copy(DirectoryListBox1.Directory,1,12));

  if novo <> RAIZ then DirectoryListBox1.Directory:=RAIZ;

Aonde:

RAIZ = Diretório constante;

Prontinho.

Espero poder ajudar aos que precisarem deste código!

Abraços!!!