net use

[t0mmy]

Hallo!

Ich habe folgende Problemstellung: Ich möchte mit meinem Programm den net use befehl auslesen, sprich deas er mir den Status und den Pfad zum jeweiligen Netzlaufwerk ausliest und in einer ListBox anzeigt.
Wie ich den Befehl ausführe ist mir klar, jedoch wie schaffe ich es die Rückgabe der Konsole in einer ListBox darzustellen?

[DeddyH]

Muss es denn mit net use sein? Oder ginge es auch z.B. hiermit?

[Andreas L.]

TDosCommand kann dir die Ausgabe einer Konsolen-Anwendung liefern.

[t0mmy]

Das Problem ist, das ich bei Windows XP netzlaufwerke eingebunden habe. Jedoch verbindet sich der Rechner nach dem start nicht mit den ganzen Netzlaufwerken obwohl ich das Kästchen "Automatische Verbindung nach Anmeldung" gesetzt habe.
Bitte jetzt keine Vorschläge wie da gibt es ne andere Lösung wie ne Batch-Datei zum Beispiel.. die Methode kenn ich ja.

Ich möchte nur wissen wie ich den Rückgabewert eines cmd-Befehls in einen string schreibe.

[patti]

Stichwort "Pipes" und Umleitung von stdout-Kanal:

http://www.felix-colibri.com/papers/...in_stdout.html

Grüße

[Bummi]

Delphi-Quellcode:

uses ConsoleThread;
{$R *.dfm}

var
  cs:TConsoleThread;

Procedure TheCallBack(s:AnsiString);
var
  ansi:WideString;
begin
  Setlength(ansi,length(s));
  OemToChar (@s[1],@ansi[1]);
  ansi := StringReplace(StringReplace(ansi,#9689,#10,[rfReplaceAll]),#9834,#13,[rfReplaceAll]);
  Form1.Memo1.Text:=Form1.Memo1.Text+ansi;
  Form1.Memo1.Perform(EM_LineScroll, 0 , Form1.Memo1.Lines.Count-1);

end;




procedure TForm1.Button1Click(Sender: TObject);
begin

//   cs:=TConsoleThread.Create('Ping 192.168.1.1', '','',TheCallBack);
//   cs:=TConsoleThread.Create('cmd /C CD \|dir'#13#10, '','',TheCallBack);  // ACHTUNG CMD nur so

   cs:=TConsoleThread.Create('cmd /C net use'#13#10, '','',TheCallBack);  


   cs.Resume;
end;

[DeddyH]

Überlest mich ruhig, aber ich finde es durch die Brust ins Auge, ein externes Programm zu bemühen, wenn das auch direkt geht (WNet-Funktionen).

[Bernhard Geyer]

Zitat:

Zitat von DeddyH (Beitrag 1118865)

Überlest mich ruhig, aber ich finde es durch die Brust ins Auge, ein externes Programm zu bemühen, wenn das auch direkt geht (WNet-Funktionen).

Wird am Wetter liegen.:stupid: