掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ドラッグ&ドロップ (ID:3531)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
まず、ParamCount,ParamStrがどういうものか理解されていますか？ プロジェクトを新規作成し、フォームにTMemo(Memo1)を貼り付け、フォームのCreateイベントに、 procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin Memo1.lines.clear; for i := 1 to ParamCount do begin Memo1.Lines.Add(ParamStr(i)); end; end; として試してみてください。 「こんなことは知ってるぞ」という場合、おそらく２つ目以降の起動方法がわからない、ということだと思います。 起動時のチェックを３つに分けてみましょう。 case ParamCount of 0: // 何もしない begin end; 1: // １つだけ開く begin // 指定されたファイルを開く end; else // 複数開くのだが、２つ目以降は新規に開く begin // １つ目に指定されたファイルを開く for i := 2 to ParamCount do begin // ShellExecuteなどで自分自身を起動。パラメータに、現在のパラメータをばらして１つずつ指定する end; end; こんな感じです。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.