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

名前

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

本文

漂流者さんご回答有難う御座います。
ただ、試したもののうまくいきませんでした。プロセスが有効ではありません。と
でてしまいます。
プロジェクトのユニットへ記入もしているつもりなのですが、、、
ソースを添付させていただきました。。何かわかりますでしょうか？？

＜Project2ソース＞
program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := False;
  Application.Run;
end.

＜Unit1ソース＞
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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:\windows\system32\wscript.exe c:\t.wsf',              // コマンドライン
    nil,                        // プロセスのセキュリティ属性
    nil,                        // スレッドのセキュリティ属性
    False,                      // 親プロセスからハンドルを継承するか
    CREATE_DEFAULT_ERROR_MODE,  // 優先順位とプロセスの制作制御
    nil,                        // 環境変数ブロックへのポインタ
    nil,                        // カレントディレクトリ
    StartupInfo,                // ウィンドウの属性
    ProcessInfo                 // 新しいプロセスの情報を受け取る構造体
  );
  // エラーチェック
  if not ret then
    ShowMessage('実行できません (' + IntToStr(GetLastError) + ')');

end;

end.

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

戻る