, het gebruik van tsearchrec cyclus door de browser favorieten, dit is echt inifiles.De resultaten die in de tekst voor: //europa.eu.int /comm /en.,, noot: dit is een paar jaar oud.Hoewel de code kan nog steeds werken inifiles en zoek naar het gebruik van Internet Explorer is de mogelijkheid voor de uitvoer van de in de programma 's voor een voorbeeld van een,,.,,, * * * * * * *, verzamelen de browser favorieten,,,,, de recente Lindgren, in het werken In een persoon uit een ander bedrijf.Als een journalist, haar favoriete websites van de lange lijst met het verzamelen, ze heeft in haar tijd, we zijn zeer geïnteresseerd.Dit is een waardevol instrument is, die het nieuws van de dag.Nou, als ze naar een bedrijf is uitgerust met de ramen... Kan je gewoon een kopie van een optimistisch over de map.Maar omdat ze een op basis van de MAC - gebruik van Netscape is de situatie anders.In de browser misschien is er een manier om dit te doen.Maar daar kunnen doen.Maar ik vond geen maakte ik een programma te doen.Het is een eenvoudige procedure zoektocht MAP browser favorieten toegevoegd die naar een tekst van documentenhttp: //europa.eu.int).Opslag in html - formaat van de resultaten is het grootste voordeel, je kan die activiteit die documenten kunnen worden gebruikt in een browser.,,, in de eerste plaats is het zoeken naar wegen voor hot en documenten worden opgeslagen, de weg en de naam van de zoektocht is een ini - dossier.Bestand genaamd "favoriete INI" in een map Exe.(sommige woorden die je ontmoet in Zweden is.,,,,, geschrapt: [houdt], en windowsfavoriter = C: de ramen, de liefde, de liefde, en htmlsave = C:.: //europa.eu.int /comm /, textsave = C: het meest van houdt. En, het is weg, en de programma 's die werk zoeken, de Rechten van de belangrijke programma' s, en door een rijke Edit begrijpen. De resultaten van de tekst, een knop om te beginnen, een druk op de knop en de BAR gesloten.Dit is niet nodig,),,, de operatie is heel volwassen.Als je op de knop "start", de uitvoering van de code van de knop.De zoektocht begon als de MAP is met een afzonderlijk programma genaamd.Dit programma is voor elk van de in de map van herinneringen.Dus, zal het programma zoeken gidsen.,,, is het zoeken van blok - evenement.In het programma is dezelfde routine.(zie de lijst van de volledige procedure.),,, - test: = FindFirst ("* * * * * * * * * * * * * * sokmapp +", faanyfile, searchrec); ///////kijken we naar iets uit de eerste resultaten, als de test = 0 //als we een resultaat.In de FindFirst functies aan de 0..,, en het testen van = 0 /0 van ons als we de zoektocht naar meer dossiers of dossiers van de processen, zaak, de searchrec. ///////searchresult eigenschap wat eigendom, 16: begonnen is, dit is 16 /als een map, mappen, als (searchrec.name < > ".") en (searchrec.name < > "...") en /of het is het niet.Of een...Dit is boven de MAP en de MAP, symbolen, sokienmapp (afzender, sokmapp + "+ searchrec. Naam, searchrec. De naam); ///////als dit is een map, een subroutine in deze map,,,, 32: in het begin van het einde, /als 32 is Een document dat als ansilowercase (uit de in het dossier van de uitbreiding (searchrec geselecteerd. De naam)) =". URL en begint de URL 's naam /als aan het einde van een onderzoeker is de liefde, inifil:= tinifile.create (sokmapp + searchrec. De naam); ///////om Een profiel van de gebruik te maken van voorwerpen voor dit dossier, temptext:=, proberen. Inifil.readstring ('internetshortcut ",'url", "); ///////de koppeling van bestanden te lezen, stringreplace (searchrec, richedit1.lines.add (naam, extractfi.Leext (searchrec. Naam), ") + = + temptext); ///////de naam en de koppeling van de rijke Edit, statusbar1.simpletext:= searchrec.name; ///////, tonen dat de naam op de status statusbar1,,. Bijwerking van een status update; //////////////application.processmessages;,, een kans voor de ramen, grunder.. De toevoeging van (" < li > < href = + temptext + ">" + stringreplace (searchrec. Naam, in het dossier van de uitbreiding van de winning (searchrec. De naam), ") +" < /> < /Lee > "); als we aan de tijdelijke ///////stringlist, en, ten slotte, de vrijheid van inifil.; ///////vrij het schrappen van het voorwerp, aan het einde van het,,,,,,,, aan het einde van het,,,,, - test: = FindNext (searchrec); ///////telefoon vinden.Ten tweede zien of er meer aan het einde van de dossiers of dossiers;,, findclose (searchrec); ///////het voorwerp van het onderzoek, de vrijlating van,,, die de naam: //europa.eu.int /comm /dossier bevat een link in de feitelijke link < link om documenten nuttig adres labels.,,,,,,, Lindgren was een journalist, het werk is nu en de ontwikkeling van technologie voor het Zweedse persbureau (Zweden telegrambyr å).Het heeft betrekking op de werkzaamheden en de SGML -, XML - en xsl.Hij heeft een software te produceren, die door de verschillende software.Hij kan worden bereikt op John. Lindgren @ TT. Se,,,,,,, eenheden, code: favvo;,,,,,, - interface, ramen, nieuws, SysUtils, klasse, grafische, de controles, de vorm, de dialoog, de stdctrls comctrls inifiles,,,,,,,,, extctrls;, tfavu = (platform), richedit1: de bron van de,, panel; 1:TPanel; startsearch:,,,,,, statusbar1: status van onderdelen;,,,,, button1: startsearchclick; procedures (afzender:,, TObject); uitvoering van de roterende woord (afzender:,, programma 's TObject); formcreate (afzender: TObject);,, programma sokienmapp (afzender: TObject; sokpath, Catalogusnummer: string);,, programma formdestroy (afzender: TObject);,, privé, persoonlijke verklaringen, {},, open en openbare verklaringen, in het searchrec: {},Overw; ///////wereldwijde zoektocht object, sokmapp, htmlut, textut: serie /serie; een map en het zoeken naar documenten van de resultaten, htmlspar:tstringlist; ///////een lijst van documenten aan het einde: //europa.eu.int /comm /;,,,, kollaslutet (rad, een touw, touw, functie):; stringreplace (tekst, maar van de touw, touw);:,,,,,, favu:VaR, tfavu; dat,,, * * * * * * *} {% o. Voor de,,,, ////////======== overstromingen bij de inleiding van de procedure, en tfavu formcreate procedures. (de afzender: TObject);,, var, inifil:Tinifile; ///////schrapping van object te lezen van de preferenties het touw, exepath: ///////zoeken naar wegen; toepassing van de exepath:= terug begon,,,, specifieke documenten (toepassing van de weg. Exename); ///////de winning van de toepassing van de exepath:= wegen te zoeken.Kollaslutet (exepath "); ///////een functie aan het eind van het touw controleren de eerste van de tweede reeks, inifil:= Tinifile. Het creëren van (exepath +'favoriter INI"); ///////het creëren van profielen met doel en in combinatie met de naam exepath schrappen.,,,, sokmapp:= inifil. Readstring ('favoriter ",'windowsfavoriter ramen, C: - de liefde"); ///////map die zoektocht weg, sokmapp:= browser favorieten, kollaslutet (sokmapp "); ///////kollaslutet" programma "om ervoor te zorgen dat aan het Eind van het touw,,, htmlut: = inifil. Readstring ('favoriter",'htmlsave, C: het meest van houdt. Http: //europa.eu.int); ///////- naam en weg van het dossier: //europa.eu.int /comm /de resultaten worden opgeslagen, inifil, textut:=. Readstring ('favoriter ", de'textsave, C:3. Txt "); ///////- naam en weg van het dossier, de resultaten kunnen worden opgeslagen, en, ten slotte, inifil.free; ///////gratis toewijzing van middelen aan het einde van het dossier van de voorwerpen, htmlspar:=;,, tstringlist.create; ///////stringlist: //europa.eu.int /comm /resultaten, creëren,,,,, /====== einde; op de knop begonnen met het verzamelen van de ======== ///////,, programma 's tfavu. Startsearchclick (afzender: TObject);,, var, inifil:Tinifile; ///////schrapping van voorwerpen voor toegang tot de inhoud van de liefde, temptext:.; ///////tijdelijke opslag, touw, test: de gehele getallen; ///////- resultaten: tstringlist grunder. ///////lijst van verplichtingen die de searchresult Uit een folder, begin screen.cursor:= crhourglass,,, een zandloper op laten; ///////De weet dat we druk bezig, grunder: = tstringlist.create creëren; ///////stringlist,,, htmlspar.add ("< http: //europa.eu.int > < hoofd > < titel > netwerk favorieten < /titel > < /hoofd > < body>") vastgesteld; ///////de eerste: //europa.eu.int /comm /, stringlist,, probeer het,, test: = FindFirst ("* * * * * * * * * * * * * * sokmapp +", faanyfile, searchrec); ///////kijken we naar iets uit de eerste resultaten, als de test = 0 //als we een resultaat.In de FindFirst functies aan de 0..,, en het testen van = 0 /0 van ons als we de zoektocht naar meer dossiers of dossiers van de zaak, searchrec,. /eigenschap nagaan welke eigenschap, fadirectory searchresult zijn: begin /als 16, dit is een map van de MAP, als (searchrec.name < >. ") en (searchrec.name < >"... ") en /of het is het niet.Of een...Dit is boven de MAP en de MAP, symbolen, sokienmapp (afzender, sokmapp + "+ searchrec. Naam, searchrec. De naam); ///////als dit is een map, een subroutine in deze map,,,, 32: in het begin van het einde, /als 32 is Een document dat als ansilowercase (uit de in het dossier van de uitbreiding (searchrec geselecteerd. De naam)) =". URL en begint de URL 's naam /als aan het einde van een onderzoeker is de liefde, inifil:= tinifile.create (sokmapp + searchrec. De naam); ///////om Een profiel van de gebruik te maken van voorwerpen voor dit dossier, temptext:=, proberen. Inifil.readstring ('internetshortcut ",'url", "); ///////de koppeling van bestanden te lezen, stringreplace (searchrec, richedit1.lines.add (naam, extractfi.Leext (searchrec. Naam), ") + = + temptext); ///////de naam en de koppeling van de rijke Edit, statusbar1.simpletext:= searchrec.name; ///////, tonen dat de naam op de status statusbar1,,. Bijwerking van een status update; //////////////application.processmessages;,, een kans voor de ramen, grunder.. De toevoeging van (" < li > < href = + temptext + ">" + stringreplace (searchrec. Naam, in het dossier van de uitbreiding van de winning (searchrec. De naam), ") +" < /> < /Lee > "); als we aan de tijdelijke ///////stringlist, en, ten slotte, de vrijheid van inifil.; ///////vrij het schrappen van het voorwerp, het einde; //////////////poging een einde aan; als. URL, einde; ////////32,, aan het einde van de zaak,Test: = FindNext (searchrec); ///////FindNext. Kijk eens of er nog meer dossiers of dossiers, een einde te maken aan die findclose; //////////////, (searchrec); de vrijlating van het voorwerp van het onderzoek, htmlspar. De tekst: = htmlspar.text + "< b > elke schakel < /B > < ul > + Grund. Tekst +" < ////////- ul - > "; http: //europa.eu.int stringlist toegevoegd Aan titel en van de MAP, de resultaten, de htmlspar.add (" < /body > < /html > "); http: //europa.eu.int ///////eindelijk bij de gesloten, htmlspar.savetofile (htmlut); http: //europa.eu.int ///////stringlist tot behoud van de specifieke naam, richedit1.lines.savetofile (textut); behoud van de lijn naar de rijke Edit ///////gespecificeerde documenten.Om ervoor te zorgen dat er uitdrukkelijk = echt rijke Edit, tot slot, in, grunder.free; ///////stringlist, vrijheid, screen.cursor:= crdefault; ///////herstel toe, aan het einde van het,,,,,,,, /overstromingen in procedures in een bepaald dossier = ///////, zoeken, programma 's tfavu.sokienmapp (afzender: TObject; sokpath, Catalogusnummer: het touw, var, de undermapp:tsearchrec); deze specifieke dossiers searchresult; //////////////inifil:Tinifile; URL, het schrappen van de inhoud van de documenten, temptext: ///////tijdelijke touw, touw, getallen, test2:; ///////getallen zien zoeken wij krijgen, te beginnen met de,,, richedit1.lines.add (EINECS); ///////beginnen in de map de naam is doorzocht, statusbar1.simpletext rijke Edit: = catalogus; /dezelfde status.O, statusbar1.Update; //Update de status van BAR, application.processmessages; dat, //Make ramen get's A. Htmlspar.add (",,,,, b> <;'+katalog+'< /b> < ul >"); //Add, de naam van de folder op de lijst: //europa.eu.int /comm /touw, en findfirst test2: = (sokpath+'\\*.*', faAnyFile, Undermapp); //Start a zoeken in de sub - MAP, dan //If test2 = 0, als we get a 0 we hebben a hit, terwijl test2 = 0. //As te vinden als we beginnen een nieuwe dossiers of dossiers,, zaak undermapp.attr van //Check de eigenschap van De zoektocht leiden, het was //If, 16:: het is een subfolder A 16, en als (undermapp.name < > "") en (undermapp.name < >'..') dan //As lang als de naam is niet.Of...We blijven we zoeken, sokienmapp (afzender, sokpath + "+ undermapp. Naam, undermapp. De naam); ///////gebruikelijke blijven op dezelfde MAP, en een einde te maken aan de; ///////16, 32 /32, betekent dat een document, als ansilowercase (uit de in het dossier van de uitbreiding (undermapp:. De naam)) =". URL en begint de URL 's naam /als aan het einde van een onderzoeker is de liefde, inifil:= tinifile.create (sokpath + "+ undermapp. De naam); ///////om een profiel van documenten, het proberen, temptext:=, inifil.readstring ('internetshortcut",'url "," "); ///////lezen die dossiers, richedit1.lines.add (stringreplace (undermapp. Naam, in het dossier van de uitbreiding van de winning (undermapp. Naam),") + = + temptext); ///////toe te voegen aan de rijke Edit, St.Atusbar1.SimpleText: = undermapp.name; //Show de naam van het dossier in de status van BAR, statusbar1.Update; //Update de status van BAR, application.processmessages; //Let, ramen doen het Business,, htmlspar.Add ('< li> < a: /'+temptext+'">'+stringreplace (undermapp.name, extractfileext (undermapp.name)," ") +'< /a> < /li>"); //Add de bestandsnaam en de link naar de http: //europa.eu.int stringlist, ten slotte, de inifile, inifil.Free; //free object, aan het einde van //try, einde; //if;,,,,,,,,,,, //32, test2: = findnext (undermapp); //call vinden de volgende te zoeken. Aan het einde van //while,,,; htmlspar.add ('< /ul> "); //Add a sluiten - te -E: //europa.eu.int /comm /lijst van findclose (touw, en undermapp); //Call vinden... Bijna de zoektocht object,, einde;,,, //======== als het sluiten van het programma ==========//, procedure, Tfavu.Button1Click (Sender: TObject);,,, ", niet //Close, einde van de toepassing;,,,,, Tfavu.FormDestroy (Sender: TObject). Ik htmlspar.free;,,,,, //Free resourse: //europa.eu.int /comm /lijst van de voor het touw,,,,,,,,, //================ functies ==============//, //========== check dat eindigt met een specifieke reeks A string =============//, functie, KollaSlutet (rad test.: touw, touw, ik):;,,, als de lengte (rad > 0) dan dat er iets //Make er te controleren, en als rad[length (rad)] < > de test. Dan rad: = rad+slut; het is niet het einde van de //If. - goed.De toevoeging van het resultaat: = rad; ///////string, einde;,,,, /in de loop van het jaar van de tekst =========== functie veranderen is een schijtlijer. Maar mot /, de eerste keer, functionele stringreplace (tekst, maar van de string: string);,, var, de plaat: de gehele;,,,, als de producentenorganisaties (het is een schijtlijer. Maar, de tekst) > 0 dan begin /als de tekst bestaat, is een schijtlijer. Maar, de plaat: = producentenorganisaties (het is een schijtlijer. Maar, de tekst); ///////is dat,, geschrapt (tekst, plaat, lengte (het is een schijtlijer. Maar); ///////deel is een schijtlijer. Maar, steek die schrapping, (mot, tekst, niet in de plaat); ///////de juiste plaats, Aan het einde van de tekst; ///////, er is een schijtlijer. Maar als de tekst:, =; ///////in ieder geval aan het einde van het weer,,,,,.,