function LinksToApp(F : TSearchRec; AppName : string):Boolean;
  begin
  
  end;

  function IsAppInFolder(FolderName, AppName : string):Boolean;
  var F : TSearchRec;
  begin
    Result:=False;
    try
      if FindFirst(FolderName+'\*.lnk',faAnyFile-faDirectory,F)=0 then
        begin
          repeat
            Result:=Result or LinksToApp(f,AppName);
          until FindNext(f)<>0;
        end;
    finally
      FindClose(F);
    end;
  end;