CreateProcess调用返回错误代码50

时间:2012-09-03 11:50:55

标签: delphi delphi-xe2

尝试使用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中尝试了各种参数组合,但似乎无法找到正确的参数。

1 个答案:

答案 0 :(得分:4)

我要说你不应该在这里使用CreateProcess。而不是调试你的CreateProcess我将为你提供我认为是在文件夹上打开shell视图的正确方法。致电ShellExecute

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

这样您就可以让shell决定向用户显示文件夹内容的适当方式。

相关问题