net use

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