CreateProcess - Bei GUI geht's, bei Konsole tut sich nichts

[internetnavigator]

Hallo :)
Ich habe auch mal wieder ein Problem :lol:

Ich habe in den letzten Stunden die frei verfügbare Unit RedirectConsole.pas
versucht für objektorientieren Einsatz umzuschreiben, aber auch versucht den größten Teil der Unit zu übernehmen und die Struktur zu erhalten.

Die Unit leitet Ein- und Ausgaben in/aus der Eingabeaufforderung (cmd.exe Prozess) in/aus Delphi um. Problem ist die Schleife (repeat-until) im Originalcode, die ich in der Konsole so nicht einsetzen kann/will.
Also habe ich es in eine Klasse umgeschrieben:

Delphi-Quellcode:

Type
  TSysCmd = Class
   Public
    Constructor Create(pCmdDatei, pErrorStr, pStartOrdner : String);
     Procedure  SendeZeile(pZeile : String);
     Var        RC_LineOut: procedure(s: string);
                hBufferWarteZeit : Integer;
    Destructor  Free();
   Private
    Function    IstWinNT : BOOLEAN;
    Procedure   TeileZeilen(pText : String);
    const bufsize=1024; // 1KByte Buffer
    Var
      buf: array [0..bufsize-1] of AnsiChar; // Musste ich ändern von Char sonst falsche Zeichen
      si: tSTARTUPINFO;
      sd: tSECURITYDESCRIPTOR;
      pi: tPROCESSINFORMATION;
      newstdin, newstdout, read_stdout, write_stdin: tHandle;
      bread, avail: dword;

Const
  CRLF=#13#10;

Var
  RC_SendBuf: string;
  RC_End: Boolean;
  RC_ExitCode: Cardinal;

End;

Im Create erzeuge ich die Prozessinstanz (cmd.exe) und versorge sie dann in SendeZeile mit Eingabe und ließ in der selben Methode nach kurzem warten (hBufferWarteZeit=200ms) den Buffer aus und leite es über RC_LineOut an meine Konsole weiter.
Eingebunden in ein VCL Programm funktioniert das ganze auch perfekt, wenn ich das Objekt aber in einer Konsole erstelle dann wird cmd.exe garnicht erst erzeugt, weiß jemand warum?
Das Hauptprogramm ist

Delphi-Quellcode:

//{$APPTYPE CONSOLE}

weil ich es über lokale ressourcen steuere.

Hier noch der CreateProcess-Block:

Delphi-Quellcode:

  GetStartupInfo(si);
  si.dwFlags:=STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
  si.wShowWindow:=SW_HIDE;
  si.hStdOutput:=newstdout;
  si.hStdError:=newstdout;
  si.hStdInput:=newstdin;

  if not CreateProcess(pchar(pCmdDatei), nil, nil, nil, true,
      CREATE_NEW_CONSOLE, nil, nil {pChar(lStartOrdner)}, si, pi) then begin

    pErrorStr := 'OnCreate(SysCmd) - Fehler bei der Erstellung des Prozess "' + pCmdDatei + '"';
    CloseHandle(newstdin);
    CloseHandle(newstdout);
    CloseHandle(read_stdout);
    CloseHandle(write_stdin);
    exit;
  end;

Wäre echt nett wenn mir jemand das mal erklären könnte :)

Gruß !N

[internetnavigator]

Frag ich mal allgemeiner: Woran kann es liegen, dass CreateProcess(...) bei einer Anwendung mit GUI den Prozess erstellt, in einer Konsolenanwendung aber der Prozess garnicht erst erstellt wird, oder nur kurz im Tastmanager aufblinkt und dann wieder verschwindet?

Vielleicht ist das wichtig: Ich hatte die Variablen

Delphi-Quellcode:

    const bufsize=1024; // 1KByte Buffer
    Var
      buf: array [0..bufsize-1] of AnsiChar; // Musste ich ändern von Char sonst falsche Zeichen
      si: tSTARTUPINFO;
      sd: tSECURITYDESCRIPTOR;
      pi: tPROCESSINFORMATION;
      newstdin, newstdout, read_stdout, write_stdin: tHandle;
      bread, avail: dword;

aus der Deklaration in der Methode RC_RUN genommen und sie global (private) im Kopf deklariert. Als ich auch

Delphi-Quellcode:

sa: tSECURITYATTRIBUTES

dort deklariert hatte, wurder in der GUI ebenfalls kein Prozess erzeugt, also habe ich

Delphi-Quellcode:

Constructor TSysCmd.Create(pCmdDatei, pErrorStr, pStartOrdner : String);
Var
 sa: tSECURITYATTRIBUTES; // <<-- HIER
//(...)

lokal in dem Construktor belassen. Nochmal: Wenn ich

Delphi-Quellcode:

sa

auch global deklariere, dann wird auch in der GUI kein Prozess erzeugt. Kann es also vielleicht an den Attributen liegen?

[Dezipaitor]

Wenn du in einem Konsolenprozess eine neuen Konsoleprozess startest, dann wird die Ausgabe in deinem Konzolenprozess gemacht, es sei denn du verwendest das CreateProcess Flag CREATE_NEW_CONSOLE .

[internetnavigator]

Ja, so stehts auch auf der Microsoft-Seite. Aber ich hab doch CREATE_NEW_CONSOLE genutzt?
Nebenbei: Gibt es auch einen Parameter, dass ein neuer Prozess erzeugt wird, wenn ich aus der Konsole (cmd.exe in einem Pfad) eine Konsolenanwendung ausführe [also irgendwas bei "C:\test.exe" zb.]

Delphi-Quellcode:

  if not CreateProcess(pchar(pCmdDatei), nil, nil, nil, true,
      CREATE_NEW_CONSOLE, nil, nil {pChar(lStartOrdner)}, si, pi) then begin

[internetnavigator]

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!

[Dezipaitor]

Nanu, das hab ich glatt übersehen.

Gibt denn CreateProcess einen Fehler zurück?

[internetnavigator]

Nein, leider nicht. Es scheint alles normal. Auch wenn ich Step-by-Step durch die Routine laufe, alles wie es sollte. Bis auf den fehlenden Prozess.

[Luckie]

Klick die Konsolenanwendung mal doppelt im Explorer an und guck, was passiert.

[SirThornberry]

Bleibt nur das Programm welches durch dein Programm gestartet wird nicht aktiv oder habe ich das falsch gelesen und dein Programm schließt sich ebenfalls?
Ich habe es so verstanden das du aus einem GUI-Programm ein Konsolenprogramm machst (aber ohne Konsolenausgabe?) welches andere Programme startet. Wie stellst du sicher das dein programm sich nicht beendet? Hast du eine Nachrichtenschleife in deinem Programm?

[Luckie]

Ich denke, er will mit CreateProcess ein Konsolenprogramm starten, nur beendet sich das Konsolenprogramm sofort wieder, weil es entweder so schnell fertig ist oder aber nötige Parameter fehlen und es sich deshalb sofort wieder beendet. Deswegen soll er das Programm mal über den Explorer starten. Beendet es sich da auch sofort wieder, ist alles in Ordnung mit seinem Code. Und dann am besten noch mal aus der Konsole starten, damit man eventuelle Fehlermeldungen sieht.