Hola WPascal.
Probá de esta manera:
Código Delphi
[-]
procedure MuestraYSacaLNK(const Ruta: string; TS: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Ruta+'*.*', $FF, SR) = 0 then
begin
repeat
SetFileAttributes(PChar(SR.Name), FILE_ATTRIBUTE_NORMAL);
if UpperCase(ExtractFileExt(SR.Name)) = '.LNK' then
DeleteFile(Ruta + SR.Name)
else if(SR.Name <> '.')and(SR.Name<>'..') then
TS.Add(SR.Name)
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
Llamada:
Código Delphi
[-]
begin
Memo1.Clear;
MuestraYSacaLNK('C:\TU_RUTA\', Memo1.Lines);
end;
Saludos.