Hallo Leute!
ich möchte in meiner Applikation ein Shellprogramm starten. Das funktioniert soweit auch schon ganz gut, nur benötigt das Programm nach dem Start noch einige Parameter, die man nicht direkt als Parameterliste an die Shellbefehlszeile anhängen kann. Ich habe das testweise mit dem NSLOOKUP-Kommando getestet:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var StartUpInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
FillChar(StartUpInfo, SizeOf(TStartupInfo), 0);
StartUpInfo.cb := SizeOf(TStartUpInfo);
if (CreateProcess(nil, PChar('nslookup'), nil, nil, False, NORMAL_PRIORITY_CLASS, nil, PChar('c:\'), StartUpInfo, ProcessInfo)) then
begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
CloseHandle(ProcessInfo.hProcess);
end;
end;
Mein Problem: Wie kann ich jetzt Befehle an die Eingabeaufforderung von meiner Applikation aus senden???
Bin für jede Hilfe dankbar!!