ярлыки в мемо

[hacknet]

привет всем, подскажите можно но ли вывести все ярлыки из указанной папки в мемо? если не сложно, кодом!

[ych_del]

FindFirst\FindNext *.lnk тебе в помощь

[Кольша]

 var
   SearchRec : TSearchRec;
begin
if FindFirst(ExtractFilePath(ParamStr(0))+'sounds\*.lnk', 0, SearchRec) = 0 then
   begin
      memo1.Add(SearchRec.Name);
      while FindNext(SearchRec) = 0 do
         memo1.Add(SearchRec.Name);
   end;
   FindClose(SearchRec);
end;