10-05-2011
|
Miembro
NULL
|
|
Registrado: oct 2010
Posts: 26
Reputación: 0
|
|
Cita:
Empezado por ecfisa
Hola WPascal.
Probá de esta manera:
Código Delphi [-]
(* Descubre archivos, carpetas ocultos y elimina archivos .LNK. Devuelve nombres en TS *)
procedure MuestraYSacaLNK(const Ruta: string; TS: TStrings);
var
SR: TSearchRec;
begin
Saludos.
|
ok, ya pruebo, saludos
|