Würde es helfen, wenn ihr euch die
Unit mal ansehen könntet und selber im Debugger laufen lassen könntet?
Hab sie mal angehangen.
Einzubinden wie folgt:
Delphi-Quellcode:
//(...) Zusatzinfos
Button1: TButton;
Memo1: TMemo;
dir: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
//(...)
procedure TForm1.Button2Click(Sender: TObject);
begin
syscmd.SendeZeile(dir.Text);
end;
procedure incoming(p: string);
begin
Form1.Memo1.Lines.Add(p);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SysCmd := TSysCmd.Create('C:\Windows\System32\cmd.exe', Self.Caption, 'C:\');
syscmd.RC_LineOut := incoming;
end;
Bitte schauts' euch mal an, Vielen Dank!