Criando um File Manager Local
» Insira os Componentes
Insira 2 TListBox.
Insira 1 TEdit.
Insira 4 TPanel.
Na Propriedade Text do Edit Coloque: C:/
Deixe a Propriedade Enabled do Edit como False
-
Deixe Assim
Na Propriedade Caption do Panel Coloque: Pastas/Diretorios
-
Na Propriedade Caption do Outro Panel Coloque: Arquivos
-
E na Propriedade Caption dos Outros 2 Panels Deixe Em Branco.
-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-
Agora Vamos Codar !!!
Primeiramente Coloque Estas 2 Procedures no Começo do Código, Após o:
var
Form1: TForm1;
implementation
{$R *.dfm}
_____________________________________________________
Coloque as Procedures:
Código:
___________________________________________________________
procedure Mostrar_Pastas(const DirStr : string;ListBox : TListBox);
var
DirInfo: TSearchRec;
r : Integer;
begin
r := FindFirst(DirStr + '\*.*', FaDirectory, DirInfo);
while r = 0 do begin
[Link];
if (([Link] and FaDirectory = FaDirectory) and
([Link] <> '.') and
([Link] <> '..')) then
[Link]([Link]);
r := FindNext(DirInfo);
end;
[Link](DirInfo);
end;
procedure Mostrar_Arquivos(const DirStr : string;ListBox : TListBox);
var
DirInfo: TSearchRec;
r : Integer;
begin
r := FindFirst(DirStr + '\*.*', FaAnyfile, DirInfo);
while r = 0 do begin
[Link];
if (([Link] and FaDirectory <> FaDirectory) and
([Link] and FaVolumeId <> FaVolumeID)) then
[Link]([Link]);
r := FindNext(DirInfo);
end;
[Link](DirInfo);
end;
_________________________________________________________
Estas São as Procedures Para Listar os Arquivos e Pastas.
Agora No Evento OnCreate do Form, Entre o e end;; Coloque:
Código:
_______________________________
Mostrar_Pastas( 'C:/' , Listbox1 );
Mostrar_Arquivos( 'C:/' , ListBox2) ;
__________________________________
Esse Código Vai Mostrar as Pastas e os Arquivos nos ListBoxes.
Agora, No Evento OnDbClick , Entre o Begin e o end; Coloque:
Código:
__________________________________________
[Link]:= [Link] + [Link][[Link]]; // O Texto do
Edit1 + Nome do Ítem Que Foi Clicado no Lisbox 1
[Link] := [Link] + '/'; // Adiciona o: / No Texto do Edit, Ficando Melhor Gerar
as Pastas e os Arquivos
[Link]; // Limpa o Lisbox 1
[Link]; // Limpa o ListBox 2
Mostrar_Pastas( [Link] , ListBox1 ); // Gera As Pastas do PC no LisBox1
Mostrar_Arquivos( [Link] , ListBox2 ); // Gera Os Arquivos do PC no LisBox2
_______________________________________________
By AnDHX