Código Delphi [-] var TStr: TStrings; begin TStr:= TStringList.Create; try MuestraYSacaLNK('C:\TEMPORAL\',TStr); // Operaciones que desees //... finally TStr.Free; end;
var TStr: TStrings; begin TStr:= TStringList.Create; try MuestraYSacaLNK('C:\TEMPORAL\',TStr); // Operaciones que desees //... finally TStr.Free; end;