Externes Programm ausführen

[Delphi.Narium]

Schau bitte mal, ob Du (sinngemäß) hiermit weiter kommst, es stammt aus 'ner alten Delphi 7-Komponente zum Aufruf von Konsolenprogrammen:

Delphi-Quellcode:

function OEM2Ansi(OEMString: string): string;
begin
  OEMString := OEMString + #0;
  OemToChar(PChar(OEMString), @OEMString[1]);
  Delete(OEMString, Length(OEMString), 1);
  Result := OEMString;
end;

...
      repeat
        succeed:=ReadFile(PipeOutputRead,Buffer,szBuffer,BytesRead,nil);
        if not succeed then break;
        // Hier die Funktion einfügen, vor dem Schreiben der Ausgabe in den Stream.
        OemToAnsi(Buffer^,Buffer^);
        Stream.Write(Buffer,BytesRead)
      until (BytesRead=0);
...