Shellexecute im selben (Konsolen)Fenster

[Ajin]

Hallo DP!

Delphi-Quellcode:

program Project1;
uses
  windows, shellapi;

{$R *.res}
{$APPTYPE CONSOLE}

  begin
      allocConsole;
    try

      if paramcount=0 then
      begin
       writeln('Starte Anwendung ohne Parameter');
       ShellExecute(0, 'open', PChar('ext_proc.exe'), nil, nil, SW_SHOW);
      end;

      if paramcount=1 then
      begin
       writeln('Starte Prolog mit: '+ParamStr(1));
       ShellExecute(0, 'open', PChar('ext_proc.exe'+ParamStr(1)), nil, nil, SW_SHOW);
      end;

    finally
      Freeconsole;
    end;
end.

Wie kann ich das Konsolenprogramm ext_proc.exe im gleichen Konsolenfenster aufrufen wie meine eigene Anwendung? Es geht immer ein neues Shell Fenster auf...

[DeddyH]

Vielleicht klappt es mit ShellExecuteEx. Auszug aus dem MSDN zu SHELLEXECUTEINFO:

Zitat:

SEE_MASK_NO_CONSOLE (0x00008000)

0x00008000. Use to create a console for the new process instead of having it inherit the parent's console. It is equivalent to using a CREATE_NEW_CONSOLE flag with CreateProcess.

Das verstehe ich so, dass das aufgerufene Programm dieselbe Konsole nutzt, wenn dieses Flag nicht gesetzt ist.

[Ajin]

Delphi-Quellcode:

function ExecAndWait(Filename, Params: String;
                     WindowState: Word = SW_SHOWNORMAL): boolean;
var
  {$IFDEF UNICODE} ShExecInfoW: SHELLEXECUTEINFOW; {$ENDIF}
  ShExecInfoA: SHELLEXECUTEINFOA;
begin
  Result := false;
  if (Filename = '') or not FileExists(FileName) then
    exit;
  begin
    ShExecInfoA.Wnd          := GetForegroundWindow;
    ShExecInfoA.cbSize       := sizeof(SHELLEXECUTEINFOA);
    ShExecInfoA.fMask        := [b]SEE_MASK_NOCLOSEPROCESS[/b];
    ShExecInfoA.lpVerb       := 'open';
    ShExecInfoA.lpFile       := PAnsiChar(AnsiString(Filename));
    ShExecInfoA.lpParameters := PAnsiChar(AnsiString(Params));
    ShExecInfoA.lpDirectory  := PAnsiChar(AnsiString(ExtractFileDir(Filename)));
    ShExecInfoA.nShow        := WindowState;
    Result := ShellExecuteExA(@ShExecInfoA);
    try
      if Result then WaitForSingleObject(ShExecInfoA.hProcess, INFINITE);
    finally
      CloseHandle(ShExecInfoA.hProcess);
    end;
  end;
end;

SEE_MASK_NO_CONSOLE:
Damit kann ich die Datei ebenfalls aufrufen, aber es geht trotzdem immer ein neues Fenster auf.

[DeddyH]

Dann hab ich im Moment leider auch keine Idee :(

[himitsu]

Eventuell so:
CreateProcess verwenden und in StartupInfo die Handle der eigenen Anwendung mitgeben (StdIn und StdOut)

[Ajin]

Also nach vielem Herumprobieren kann ich nun die Prolog Anwendung zwar nicht im selben Konsolenfenster starten wie mein eigenes Delphi Programm, ist aber nicht unbedingt zwingend erforderlich. Das Problem ist, ich kann den output vom Prolog-Fenster nicht "lesen". GetConsoleOutput funktioniert in diesem Falle nicht.

Delphi-Quellcode:

begin
  allocConsole;
   try

   if paramcount=0 then
   begin
     s:=ExtractFilePath(Application.Exename)+'ext_proc.exe';
     s2:='w(wind,feature,W).';

     ShellExecute(0, 'open', PChar('ext_proc.exe'), nil, nil, SW_SHOW);
     //ExecAndWait('ext_proc.exe','', SW_NORMAL);

      //HANDLE holen
      sleep(1000);
      clientHandle:=FindAWindow(s, '');

      if clientHandle=0 then
      begin
        writeln('Keine handle gefunden !');
        readln;
      end
      else
        BringWindowToTop(clientHandle);
        For I:=1 To Length(s2) Do
        SendMessage(clientHandle, WM_CHAR, Ord(s2[I]), 0);
        SendMessage(clientHandle, WM_CHAR, VK_RETURN, 0);

        writeln('Ich habe fertig, Taste druecken!');
        readln;

Wie kann man denn den output eines externen consolenprogramms als Stringlist/String einlesen?

[blackfin]

Bringt dir das vielleicht was?

[Ajin]

Hab ich mal ein einer neuen Anwendung getestet, gibt beim Kompilieren einen Fehler:

[DCC Fehler] Unit1.pas(82): E2010 Inkompatible Typen: 'Char' und 'AnsiChar' in der Zeile : OemToAnsi(Buffer,Buffer) ;

[DeddyH]

Und wenn Du String als AnsiString, PChar als PAnsiChar und Char als AnsiChar deklarierst?

[Ajin]

Dann kann es den Code ausführen, der schmeisst aber beim

Delphi-Quellcode:

if CreateProcess(nil,
           PChar(DosApp),
           @Security,
           @Security,
           true,
           NORMAL_PRIORITY_CLASS,
           nil,
           nil,
           start,
           ProcessInfo)

eine Zugriffsverletzung. :|