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

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