1

Createprocessを使用して、指定されたパスでWindowsエクスプローラーを起動しようとしましたが、

システムエラー。コード50。リクエストはサポートされていません。

私は何が間違っているのですか？

procedure TfrmProjectManager.OpenFolderinExplorer(const aPath: string);
  function GetWinDir: String;
  var
    Buffer: array[0..MAX_PATH] of Char;
  begin
    GetWindowsDirectory(Buffer, SizeOf(Buffer));
    SetString(Result, Buffer, StrLen(Buffer));
  end;

var
  strCmdLine    : String;
  fStartInfo    : TStartupInfo;
  fProcessInfo  : TProcessInformation;

begin

  try
    if sysutils.DirectoryExists(aPath) or 
       (MessageDlg('Folder [%s] not found. Create it?', mtConfirmation, mbYesNo, 0)=mrYes) then
    begin
      sysutils.ForceDirectories(aPath);
      FillChar(fStartInfo,sizeof(fStartInfo),0);
      FillChar(fPRocessInfo, Sizeof(fProcessInfo),0);

      fStartInfo.cb:=sizeof(fStartInfo);
      fStartInfo.lpReserved := nil;
      fStartInfo.lpDesktop := nil;
      fStartInfo.lpTitle := nil;
      fStartInfo.dwFlags := STARTF_USESHOWWINDOW ;
      fStartInfo.wShowWindow := SW_SHOW;
      fStartInfo.cbReserved2 := 0;
      fStartInfo.lpReserved2 := nil;

      strCmdLine := '"' + GetWinDir + '\explorer.exe"';

    if not CreateProcess(nil,PChar(strCmdLine),nil,nil,False, 0,nil,PChar(aPath),fStartInfo,fProcessInfo) then
     RaiseLastOSError;

  end

  except
    on E:TObject do
      if not IsAbortException(E) then
        raise;
  end;
end;

CreateProcessでパラメーターのさまざまな組み合わせを試しましたが、正しいものが見つからないようです。

4

1 に答える 1

4

ここでは使ってはいけないと思いますCreateProcess。デバッグするのではなくCreateProcess、フォルダに対してシェルビューを開く正しい方法であると私が信じているものを提供します。を呼び出しShellExecuteます。

ShellExecute(0, '', PChar(aPath), '', '', SW_SHOWNORMAL);

このようにして、フォルダの内容をユーザーに表示する適切な方法をシェルに決定させます。

于 2012-09-03T12:01:01.893 に答える