ne işe yarıyo bu biraz bilgi verirmisin

bu ne kodu abi

Function GetNetworkDriveMappings :Integer; Var I:Char; ThePath:String; MaxNetPathLenWord; Begin SList. Clear; MaxNetPathLen:=MAX_PATH; SetLength ; For I := 'A' to 'Z' Do If WNetGetConnection( PChar , PChar , MaxNetPathLen)=NO_ERROR Then SList. Add ; Result := SList. Count; End; yukardaki fonkisyonu koda ekleyin, bitane listbox ve button ekleyin, butonun koduna sunu yazin : Procedure TForm1. Button1Click ; Begin GetNetworkDriveMappings(Form1. ListBox1. Items); End;