Skrive tekst via delphi

//husk at uses ShellApi

procedure TForm1.Button1Click(Sender: TObject);
var
  pHandle: HWND;
begin
  Shellexecute(Handle, 'open', 'notepad.exe', nil,nil, SW_maximize);

  Sleep(500);
  pHandle := FindWindowEx(FindWindow('notepad', nil ), 0, 'Edit', nil);
  SendMessage(pHandle, WM_SETTEXT, 0, integer(Edit1.Text));

inden du får point, så kan du måske fortælle mig hvordan man sætter teksten ind i en kommandoprompt? prøvede din kode og satte bare CMD.exe ind i shellexecute og jeg skrev cmd der hvor der står "('notepad',nil)"
                                ^
                                |

                                Der

hmmm...det ved jeg faktisk ikke.

Hvis det du vil er at kalde cmd med en parameter så er det jo muligt.
Hvis du f.eks. har kommandoen DIR stående i din Edit1

Shellexecute(Handle, 'open', 'cmd.exe', PChar('/K '+Edit1.text) ,nil, SW_maximize);

mange tak kroning^^ det virker fint. smid et svar hvis du vil dele point. ellers får stone dem bare

k

lige en hurtig en:
nu har jeg så fået åbnet min cmd og der står det, der står i edit1.text.
ligebag efter skal den så skrive noget selv, i samme CMD. F. eks.

Shellexecute(Handle, 'open', 'cmd.exe', PChar('/K '+Edit1.text) ,nil, SW_maximize);
Shellexecute(Handle, 'open', "det åbne program", PChar('/K '+Edit2.text) ,nil, SW_maximize);

Hvis jeg kalder
Shellexecute(Handle, 'open', 'cmd.exe', PChar('/K '+Edit1.text) ,nil, SW_maximize);
så bliver kommandoen udført med det samme og den står ikke og venter?

jaja... men når den er startet op.. så skal jeg skrive noget andet inde i den åbne cmd.exe

Det ved jeg så ikke hvordan man gør.

ok... ^^

for at send data til en dos prompt skal man bruge named pipes ie. delphis THandleStream
men det er godt nok langhåret, så kan man læse og skrive direkte til dosprompten. Jeg lavede engang en Tmemo som simulerede en dos prompt både input og output og den virker stort. hvis nogen smider deres mail, kan jeg sende koden.