net use

[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.

[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 von 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).

Wird am Wetter liegen.