WSFファイルをコールするには？ (ID:22637)

名前

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

本文

自己レスばかりですみません。
下記でテストしたところ通りました！！
有難う御座います。
ただ、実際にやりたい事としては、Formを起動しないでEXEのみを実行したいのですが、可能でしょうか？VBではスタートアップ等の設定でしたが、DELPHIでは調べたのですが、分かりませんでした。皆様どうぞ宜しくお願いいたします。

procedure TForm1.Button2Click(Sender: TObject);

var
  ret: Boolean;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  // 表示状態を設定
  with StartupInfo do begin
    // この構造体のサイズを指定
    cb := SizeOf(TStartupInfo);
    // ウィンドウの位置を指定
    dwX := 0;
    dwY := 0;
    // ウィンドウのサイズを指定
    dwXSize := 640;
    dwYSize := 480;
    // ウィンドウの表示状態を指定
    wShowWindow := SW_SHOWNORMAL;
    // 有効な設定項目を指定
    dwFlags := STARTF_USESHOWWINDOW
      or STARTF_USESIZE or STARTF_USEPOSITION;
    // それ以外の項目を初期化
    lpReserved := nil;
    lpDesktop  := nil;
    lpTitle    := nil;
    cbReserved2 := 0;
    lpReserved2 := nil;
  end;
  // 実行
  ret := CreateProcess(
    nil,                        // 実行ファイル名
    'C:\test.exe',              // コマンドライン
    nil,                        // プロセスのセキュリティ属性
    nil,                        // スレッドのセキュリティ属性
    False,                      // 親プロセスからハンドルを継承するか
    CREATE_DEFAULT_ERROR_MODE,  // 優先順位とプロセスの制作制御
    nil,                        // 環境変数ブロックへのポインタ
    nil,                        // カレントディレクトリ
    StartupInfo,                // ウィンドウの属性
    ProcessInfo                 // 新しいプロセスの情報を受け取る構造体
  );
  // エラーチェック
  if not ret then
    ShowMessage('実行できません (' + IntToStr(GetLastError) + ')');

end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る