shellexecute mit pipes im command

[gigo02]

hi, so also ich habe das jetzt folgendes

Delphi-Quellcode:

var
  Form2: TForm2;
  ProcessInfo: TProcessInformation;
  StartupInfo: TStartupInfo;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  FillChar(StartupInfo, SizeOf(TStartupInfo),0);
  StartupInfo.cb := SizeOf(TStartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_HIDE;
  if CreateProcess( nil,
                    PChar(Edit1.Text),
                    nil,
                    nil,
                    False,
                    NORMAL_PRIORITY_CLASS,
                    nil,
                    PChar('C:\'),
                    StartupInfo,
                    ProcessInfo) then begin
                    Showmessage('Prossess gestartet');
                    End else ShowMessage('Fehler');
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
CloseHandle(ProcessInfo.hProcess);
end;

nur das beenden klappt nicht wirklich, der prozess läuft weiter