TreeView e Explorer!!
Ola pessoal , gostaria de uma ajudinha..
Como faço para criar por exemplo um TreeView, na forma de um Explorer????
A minha idéia é capturar o arquivo contido dentro do drive A.
Alguem tem uma sugestão?
Se a do treeview for a mais correta , por favor..me deêm uma mão..
Obrigado!
Como faço para criar por exemplo um TreeView, na forma de um Explorer????
A minha idéia é capturar o arquivo contido dentro do drive A.
Alguem tem uma sugestão?
Se a do treeview for a mais correta , por favor..me deêm uma mão..
Obrigado!
Delphimaniaco
Curtidas 0
Respostas
Eliel Martins
31/01/2003
Olá Delphimaniaco !
Eu faria da seguinte forma : utilizaria o componente ShellTreeView que se localiza na paleta "SAMPLES" que você pode indicar qual drive você deseja copiar os arquivos, segue a imagem do exemplo que eu fiz, onde temos dois ShellTreeView, o da parte superior do form representa a origem dos arquivos, e o segundo da parte inferior representa o destino que deseja enviar. Segue abaixo a imagem do projeto.
O código que está no evento onclick do botão "copiar"
=======================================
procedure TForm1.sbtnCopiarClick(Sender: TObject);
var
Arquivo : TSearchRec;
I : integer;
End_Origem,
End_Destino : string;
begin
End_Origem := ShlTrVw_Origem.SelectedFolder.PathName;
End_Destino := ShlTrVw_Destino.SelectedFolder.PathName;
I := FindFirst(End_Origem +'\*.*', faArchive, Arquivo);
while I = 0 do begin
if (Arquivo.Attr and faDirectory) <> faDirectory then begin
if not CopyFile(PChar(End_Origem+ '\'+ Arquivo.Name), PChar(End_Destino+ '\'+ Arquivo.Name), true) then
Application.MessageBox(PChar('Erro ao copiar ' + End_Origem + 'para o local de destino ' + End_Destino),
'Atenção',MB_ICONERROR);
end;
I := FindNext(Arquivo);
end;
Application.MessageBox('Copia efetuada com sucesso !','Copia de arquivo',MB_ICONINFORMATION);
end;
Espero ter ajudado. Abraço !
Eliel G. Martins
Eu faria da seguinte forma : utilizaria o componente ShellTreeView que se localiza na paleta "SAMPLES" que você pode indicar qual drive você deseja copiar os arquivos, segue a imagem do exemplo que eu fiz, onde temos dois ShellTreeView, o da parte superior do form representa a origem dos arquivos, e o segundo da parte inferior representa o destino que deseja enviar. Segue abaixo a imagem do projeto.
O código que está no evento onclick do botão "copiar"
=======================================
procedure TForm1.sbtnCopiarClick(Sender: TObject);
var
Arquivo : TSearchRec;
I : integer;
End_Origem,
End_Destino : string;
begin
End_Origem := ShlTrVw_Origem.SelectedFolder.PathName;
End_Destino := ShlTrVw_Destino.SelectedFolder.PathName;
I := FindFirst(End_Origem +'\*.*', faArchive, Arquivo);
while I = 0 do begin
if (Arquivo.Attr and faDirectory) <> faDirectory then begin
if not CopyFile(PChar(End_Origem+ '\'+ Arquivo.Name), PChar(End_Destino+ '\'+ Arquivo.Name), true) then
Application.MessageBox(PChar('Erro ao copiar ' + End_Origem + 'para o local de destino ' + End_Destino),
'Atenção',MB_ICONERROR);
end;
I := FindNext(Arquivo);
end;
Application.MessageBox('Copia efetuada com sucesso !','Copia de arquivo',MB_ICONINFORMATION);
end;
Espero ter ajudado. Abraço !
Eliel G. Martins
GOSTEI 0