コマンドプロンプトに間接的に文字を入力するには？ (ID:20780)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >すみませんが、c:\に移動させるコードの例を書いていただけませんか？ と言うことは，コマンドプロンプトに任意の文字列を表示(タイプ)すると いうことではなく，コマンドを実行したいということでしょうか． もしそうなのでせあれば，まず，先のレスで1文字づつ送るのであれば， CmdWndがコマンドプロンプトのハンドルである場合，以下のようにできます． procedure TForm1.Button2Click(Sender: TObject); var S : Word; Str : String; i : Integer; begin SetForegroundWindow(CmdWnd); //コマンドプロンプトでDIRを実行 Str:=Char($44)+Char($49)+Char($52)+Char(VK_RETURN); for i:=1 to Length(Str) do begin S:=Ord(Str[i]); keybd_event((S),0,0,0); keybd_event((S),0,KEYEVENTF_KEYUP,0); end; Sleep(100); SetForegroundWindow(Handle); end; また，コマンドプロンプトを起動して直ちにコマンドを実行したいのであれば，手前みそですが，以下のURLを参考にしてみて下さい． http://homepage2.nifty.com/Mr_XRAY/Delphi/plSamples/T_CmdPrompt1.htm このコード中で，Button1Clickの AParams:='/k CD C:\'; を変更すればいろいろ実行できます．複数のコマンドを続けて実行したい 場合は，以下のURLを参考にして下さい． http://homepage2.nifty.com/Mr_XRAY/Delphi/plSamples/T_ConsoleBat1.htm 必要であれば，WinExecで置換えて下さい．