|
|
 |
 |
|
Paypal | |
|
FTP | |
|
CCD | |
|
Buscar | |
|
Trucos | |
|
Trabajo | |
|
Foros | |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
 |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
07-08-2003
|
||||
|
||||
|
¿Qué te parece algo así?
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (ShellListView1.SelectedFolder <> nil) and
(not ShellListView1.SelectedFolder.IsFolder) Then
begin
Memo1.Lines.LoadFromFile(ShellListView1.SelectedFolder.PathName);
end;
end;
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. 
|
|
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
 |
|
Modo Híbrido
