Hallo,
der Fehler muss nicht zwingend im Programm liegen, wähle mal im Explorer einen Rechner aus, den es nicht (mehr) gibt, die Timeouts sind schon recht hoch und janachdem, wie groß ein Netzwerk ist, kann das schon mal alles eine Weile dauern.
Für die 17 Rechner hier im Netz noch eingeschalteten braucht er so seine 30 Sekunden.
Mach Dir mal noch 'ne Statusbar auf das Formular, setze SimplePanel auf true und füge in den Quelltext noch diese zwei Zeilen ein:
Delphi-Quellcode:
List.AddObject(NetResourceList[i].lpRemoteName,
Pointer(NetResourceList[i].dwDisplayType));
Statusbar1.SimpleText := NetResourceList[i].lpRemoteName // <-- neu;
Application.ProcessMessages; // <-- neu;
Dann solltest Du jeweils sehen können, wann ein neuer Rechner gefunden wurde und kannst ggfls. herausbekommen, bei welchem Rechner es "hakt".
Achso: Und wenn Du beim Klicken auf den Button zuerst die Liste leermachst, ist das eventuell auch nicht schlecht, sonst hat man irgendwann aller Rechner doppelt und dreifach
in der Liste.
Stephan