gebruikt, verloor een netwerk van delen en weet niet hoe je contact?Deze vergadering, en je kan het specifieke aandeel van de netwerken voor het zoeken van een dossier of een gids en automatisch worden verbonden is.Noot:,, als je wist dat je de delen dient niet te worden gebruikt in deze Vergadering grote positie in het netwerk zal langzaam gaan.Dit is als je niet weet de exacte locatie, maar kan worden gebruikt als de etikettering van bepaalde dossiers of dossiers.,,, wijst erop dat het gebruik van beforeconnect gebeurtenissen moeten worden aangewezen of.,,,,,,,,, - eenheid; de ramen nieuws,,,, stdctrls, SysUtils, klasse, Grafische, de controles, de vorm, de dialoog, de filectrl;,,,,, tsistype = (itdir, itinifile, itapp, itother);,, tbeforeconnectevent = programma (de eigenaar: TObject; assignpath: touw; var: de aanvaarding van booleaanse); en, tafterconnectevent = programma (eigenaar: TObject; assignedpath: een reeks).,, tonfail; = programma (eigenaar: TObject; failmessage: string) voorwerpen; treconnect = (,,,, tcomponent) privé -, privé - en didassign {},,,, FI: Bull.Temtolookfor: string: string fusername;,,,,,,, fpassword: touw; flettertoassign: cokes;,,,, fistype:tsistype; foutputlabel:TLabel;,, ffailmessage: touw, fbeforeconnect:tbeforeconnectevent;,,,,,, fafterconnect:tafterconnectevent; fonfail:tonfail;,, doenum (netrest:pnetresourcea). Functie:,, de functie addbs (g; akkoord):...; overbelasting;,, addbs (G string: functie; en: Char):...; overbelasting;,, (netrest zoeken: het netwerk; weg, parameters: de reeks): bescherming van booleaanse;,,,,, moet de bescherming van de verklaring} {,, openbare verklaringen {} {een verklaring afgegeven,,), searchandassign, functie: Bull. Itemtolookfor, onroerend goed, string fitemtolookfor geschreven:E fitemtolookfor;,, onroerend goed lettertoassign: tekens lezen, schrijven flettertoassign flettertoassign, de aard van de goederen: tsistype, lezen en schrijven fistype fistype standaard itdir;,, outputlabel TLabel lezen en schrijven eigenschappen: foutputlabel foutputlabel;,, gebruikersnaam: string lezen en schrijven eigenschappen fusername fusername;,, eigendom van lezen en schrijven fpassword fpassword. Wachtwoord:,,; beforeconnect van onroerend goed lezen en schrijven: tbeforeconnectevent fbeforeconnect fbeforeconnect;,, onroerend goed afterconnect: lezen, schrijven en tafterconnectevent fafterconnect fafterconnect;,, onroerend goed onfail: lezen, schrijven en tonfail fonfail fonfail;,,,,,, het einde van de procedure; de registratie;,,,,,, de uitvoering van de taken, de treconnect. Addbs (G - string::; -) het touw,,,,,, (g); g = decoratie, als G <> '';,,, dan beginnen, als g[length (g)]< > - Dang, anders dan result:=g+SLASH,,,,,,,, result:=g; anders result:=g;,,,,,,, TReconnect.addbs (g:string): een touw, ik result:=addbs;,,, (g'\\');,,,,,,, TReconnect.SearchFor (NetResT:NETRESOURCE; een pad, param:string): de waarde var, cont:boolean;,,,,,,,, Exists:boolean; beginnen, Exists:=false;,,,,, path:=addbs (weg); SearchFor:=false;,, als IsType=itDir dan, Exists:=directoryExists (path+param), als IsType=itIniFile;, dan, Exists:=FileExists (path+param); en, als IsType=itApp dan, Exists:=FileExists (path+param); en, als IsType=itOther dan, Exists:=FileExists (path+param); en, als het dan, ik cont:=true;,,,,, TRY, als de distributie (fbeforeconnect) en, beforeconnect (zelf, de weg, de vervolg);,,, (behalve worden'failed noemen beforeconnect. ");,,,,, als controle - en te proberen,,,, netrest. Lplocalname:= PChar vormen (snaren (flettertoassign) + (,, wnetaddconnection2a:"); netrest, pchar (naam), pchar (code), connect_update_profile); didassign:= waar;,,,,, als de distributie (fafterconnect proberen, dan afterconnect (zelf), en weg);,, met uitzondering van,, bekend afterconnect ('failed. ");,,,, behalve Het einde; e: uitzonderingen worden gedaan (e.message);,, aan het einde vanSearchFor:=true;,,,,,,,,,,,,,,,,,, TReconnect.DoEnum (NetResT:PNetResourceA). Functie:,,,,,, EnumH:THandle; var, cnt:cardinal;,,,, buffsize:cardinal; NetResBuf:array [0..200] van NETRESOURCE;,,,, res:word; i:integer;,,, als begin. DidAssign dan, uitgang;,,,,, ik cnt:=255; WNetOpenEnum (RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, NetResT, EnumH); res:=0;,,,, terwijl (res=NO_ERROR) doen, ik buffsize:=sizeof (,,,,, NetResBuf); res:=WNetEnumResource (EnumH, CNT, @NetResBuf,,, buffsize); voor i:=0 te doen, ik cnt-1,,, als 1 (OutputLabel) dan, ik OutputLabel.Caption:=NetResBuf[i].lpRemoteName Outp;,,,,Utlabel. Op de,,,,, als aan het einde van netresbuf; [M] = resourcedisplaytype_share. Dwdisplaytype dan beginnen, als het niet didassign dan, als de zoektocht (netresbuf string (netresbuf [M], [I]. Lpremotename), itemtolookfor) en,,,,,, de resultaten: = 0; de uitvoer;, aan het einde van het,,,,,,, als ik netresbuf []. Dwscope = resourceusage_container) en, doenum (@ netresbuf [M]);,,,,,, aan het einde van het wnetcloseenum;; (enumh); de,,,, met uitzondering van: = 1; e: uitzondering te doen,,, e.message, ffailmessage:=;,, als de distributie (fonfail) en, onfail (eigenaren, ffailmessage); de resultaten:,,,, aan het einde van = 0;;,,,,,,, aan het einde van het einde van de functie;; treconnect. Searchandassign: Bull. Didassign:= vals,,,,,,,,,, doenum (geen): = echt resultaten;,,,,, het einde van de procedure; de registratie te beginnen, registercomponents;,,, ('vnpvcls, [treconnect]),,,,,,,, einde.