他の実行ファイルの起動するには？ (ID:21690)

名前

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

本文

どっちかの関数を使ってみてくださいな。

//ShellExecuteを簡単に呼び出します
//uses ShellAPIを追加してください
procedure EasyShellExecuteCmdLine(CommandLine: String; Show: Boolean=True);
begin
  if Show then
    ShellExecute( 0, nil, PChar(CommandLine), nil, nil, SW_SHOW)
  else
    ShellExecute( 0, nil, PChar(CommandLine), nil, nil, SW_HIDE)
end;

procedure EasyCreateProcessCmd(CommandLine: String; Modal: Boolean;
 Show: Boolean = True);
var
  si: TStartupInfo;
  pi: TProcessInformation;
begin
  FillChar(si, Sizeof(TStartupInfo), 0);
  si.cb := Sizeof(TStartupInfo);

if not Show then
  with si do
  begin
    cb := SizeOf(si);
    lpReserved := nil;
    lpDesktop := nil;
    lpTitle := nil;
    dwX := 0;
    dwY := 0;
    dwXSize := 0;
    dwYSize := 0;
    dwXCountChars := 0;
    dwYCountChars := 0;
    dwFillAttribute := 0;
    dwFlags:= STARTF_USESHOWWINDOW;     // DOS プロンプトが表示
    wShowWindow := SW_HIDE;             // されるのを抑止する
//    dwFlags := STARTF_USESHOWWINDOW;
//    wShowWindow := SW_SHOWMINIMIZED or SW_HIDE;
  end;

CreateProcess(nil,
    PChar(CommandLine),
      nil, nil, True, 0, nil, nil, si, pi);

if Modal then
    WaitForSingleObject(pi.hProcess, INFINITE)
  {起動したプロセスが終了するのを待つ命令
   待っている間は実行が停止する}
end;

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

戻る