Home>>プログラミング>>Tips&Tricks>>アイコンにドラッグ＆ドロップで起動する

Delphi Tips & Tricks

アイコンにドラッグ＆ドロップで起動する

　たまにウィンドウ上にファイルをドロップして起動するソフトはよく見かけますが、デスクトップなどのアイコンにファイルをドロップして起動するソフトも少ないですが世の中にはあります。
　Paramcountでパラメータの数を、Paramstr()で好きな番号のパラメータを文字列で取得できます。

procedure TForm1.FormCreate(Sender: TObject);
var
  i :integer;
begin
  if ParamCount >=1 then begin
    //０番目はプログラム自身の名前が入っているため
    //１番目からドロップされた数だけ
    for i :=1 to ParamCount do
     Memo1.Lines.Add(ParamStr(i));  //memo1にファイル名を追加
  end;
end;

　ParamCountは渡されたパラメータの数を保持しています。０番目はドロップされたプログラムファイルの名前入っているため１番目からのパラメータをParamStr(i)で１つずつmemo1に追加しています。
　このようにドロップされたファイル名を取得できるため、これをもとにそのファイルに基づき起動することができます。