以下の内容はhttps://tokibito.hatenablog.com/entry/20121023/1350935710より取得しました。


Delphiでコマンドライン引数を取得する

メモ。しばらく使ってなくて忘れてる。
Delphiコマンドライン引数を取得する方法。
ParamStr関数を使う。引数の数の取得はParamCount関数。
インデックス0は実行ファイルのパス。1からがパラメータになる。
DelphiXE3で試した。
Win32, Win64, OSX32で動作確認済み。

paramstr_test.dpr

program paramstr_test;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  I: Integer;

begin
  try
    for I := 0 to ParamCount do
      WriteLn(ParamStr(I))
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

実行結果

Windows7 64bitでコマンドプロンプトからの実行結果。

>paramstr_test.exe hoge fuga
C:\Users\tokibito\Desktop\paramstr_test\Win64\Debug\paramstr_test.exe
hoge
fuga

普段Pythonargparseを使ってると、さすがにこれでは貧弱に感じてしまう。このへんは何かほしくなるなー。




以上の内容はhttps://tokibito.hatenablog.com/entry/20121023/1350935710より取得しました。
このページはhttp://font.textar.tv/のウェブフォントを使用してます

不具合報告/要望等はこちらへお願いします。
モバイルやる夫Viewer Ver0.14