32

以下のコードは、ドキュメントの開始に失敗します。エラー 193 が発生します (%1 は有効な Win32 アプリではありません)。実行可能ファイルの開始は正常に機能します。ファイルは適切に関連付けられており、ダブルクリックすると対応するアプリが起動します。SO やその他の場所でエラー メッセージ、createprocess などを検索しました 。

  • これは、Win7 64 ビット VMWare VM の Delphi XE2 (Update 4) Win32 アプリです。

  • このコードは、ホスト マシン (Win7 64 ビット) および 32 ビット XP の Virtual PC VM でも失敗します。

  • Win7 VM (Excel 2003 および Crimson Editor) で起動するアプリは 32​​ ビットです。

  • IDE から起動するとき、またはテスト アプリをスタンドアロンで実行するときに、エラーが発生します。

  • 以前は Delphi2007 コードでしたが、このコードのソースであるコンパイル済みの D2007 アプリはどこでも正常に動作します。

コードの何が問題になっていますか? まるで私が非常に明白な何かを見落としているかのようです....

前もって感謝します、

1月

procedure StartProcess(WorkDir, Filename: string; Arguments : string = '');
var
  StartupInfo  : TStartupInfo;
  ProcessInfo  : TProcessInformation;
  lCmd         : string;
  lOK          : Boolean;
  LastErrorCode: Integer;
begin
  FillChar( StartupInfo, SizeOf( TStartupInfo ), 0 );
  StartupInfo.cb := SizeOf( TStartupInfo );
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := sw_Normal;

  FillChar( ProcessInfo, SizeOf( TProcessInformation ), 0 );

  lCmd := '"' +  WorkDir + FileName + '"';     // Quotes are needed https://stackoverflow.com/questions/265650/paths-and-createprocess
  if Arguments <> '' then lCmd := lCmd + ' ' + Arguments;

  lOk := CreateProcess(nil,
                       PChar(lCmd),
                       nil,
                       nil,
                       FALSE,  // TRUE makes no difference
                       0,      // e.g. CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS makes no difference
                       nil,
                       nil,    // PChar(WorkDir) makes no difference
                       StartupInfo,
                       ProcessInfo);

  if lOk then
  begin
    try
      WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
    finally
      CloseHandle( ProcessInfo.hThread );
      CloseHandle( ProcessInfo.hProcess );
    end;
  end
  else
  begin
    LastErrorCode := GetLastError;
    ShowMessage(IntToStr(LastErrorCode) + ': ' + SysErrorMessage(LastErrorCode));
  end;
end;

procedure TFrmStartProcess.Button1Click(Sender: TObject);
begin
   StartProcess('c:\program files (x86)\axe3\','axe.exe');    // Works
end;

procedure TFrmStartProcess.Button2Click(Sender: TObject);
begin
   StartProcess('d:\','klad.xls');                            // Fails
end;

procedure TFrmStartProcess.Button3Click(Sender: TObject);
begin
   StartProcess('d:\','smimime.txt');                         // Fails
end;
4

3 に答える 3

36

そのエラーの最も可能性の高い説明は次のとおりです。

  1. ロードしようとしているファイルは実行可能ファイルではありません。CreateProcess実行可能ファイルを提供する必要があります。関連するアプリケーションで任意のファイルを開くことができるようにしたい場合ShellExecuteは、CreateProcess.
  2. 実行可能ファイルの依存関係の 1 つ、つまり実行可能ファイルにリンクされている DLL の読み込みに問題があります。その最も一般的な理由は、32 ビットの実行可能ファイルと 64 ビットの DLL の不一致、またはその逆です。調査するには、Dependency Walker のプロファイル モードを使用して、何が問題なのかを正確に確認します。

コードの最後まで読むと、問題が 1 番であることがわかります。

于 2012-09-28T09:34:40.767 に答える
7

あなたのButton2ClickandButton3Click関数はklad.xlsandを渡しsmimime.txtます。これらのファイルは、おそらく実際の実行可能ファイルではありません。

それらに関連付けられたアプリケーションを使用して任意のファイルを開くには、使用しますShellExecute

于 2012-09-28T09:39:46.363 に答える