Ver Mensaje Individual
  #5  
Antiguo 10-05-2011
WPascal WPascal is offline
Miembro
NULL
 
Registrado: oct 2010
Posts: 26
Reputación: 0
WPascal Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
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
Responder Con Cita