VBScriptに引数を渡すには？ (ID:39315)

名前

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

本文 こんにちは．Mr.XRAYです． サイトご利用ありがとうございます．解決ということですが， http://mrxray.on.coocan.jp/Delphi/plSamples/950_VBScript.htm#05 はちょっと質問の趣旨とは意味あいが違うと思われますが． VBScriptに限らず，ShellExecuteでコマンドライン引数を渡して起動する場合， Stringとして明示的にキャストすれば渡せます． 動作確認は，Windows XP(SP3) + Delphi 2010(UP5) Pro procedure TForm1.Button1Click(Sender: TObject); var Fname : String; Para : String; begin FName := 'Test.vbs'; Para := '1'; ShellExecute(Handle, 'OPEN', PChar(FName), PChar(Para), nil, SW_NORMAL); end; あるいは procedure TForm1.Button2Click(Sender: TObject); var Fname : String; begin FName := 'Test.vbs'; ShellExecute(Handle, 'OPEN', PChar(FName), PChar(String('1')), nil, SW_NORMAL); end;