Text an ein Console Programm Senden

[Novo]

Hallo erstmal, ich glaube, dies ist sogar mein 1. Post hier...

Ich habe ein Console Programm wo man bestimmte Commands eingeben kann und mit Enter abschicken kann.
Nun möchte ich mit Delphi ein Programms schreiben, dass bestimmte Commands dort reinsendet...

Ich habe schon folgendes versucht, aber es schreibt mir den Text als Fenstername des Programms und nicht im Programm selbst:

Delphi-Quellcode:

var aWnd : Hwnd;
begin
 aWnd:=FindWindow('ConsoleWindowClass',nil);  //***
  if aWnd<>0 then begin
  SendMessage(aWnd, WM_SETTEXT, 0, Integer(Pchar('listgm')));
  end;
end;

//***
hier NIL weil der Fenstername der Pfad des Programms ist.
aber der Dateiname ist immer gleich, aber ich kann nicht '*programmname.exe' machen

wie sende ich jetzt in dieses DOS Fenster hinein?

Bzw. ich habe WinSpy probiert, aber der erzeugt mir keinen Code...

SCREENSHOT:
Siehe Anhang



Mfg novo

[edit=SirThornberry]Bild in Anhang gepackt - Mfg, SirThornberry[/edit]