使用ShellExecute运行easy devserver "run-devserver.exe“时出错

Question

如果我点击"run-devserver.exe“文件上的鼠标，我就在Windows10 x64上使用17，没有任何问题。

但是在我的新项目中，我想从我的Delphi程序(RADStudio10.1柏林)中运行easy。

我使用以下代码：

ShellExecute(Handle, 'runas', 'c:\Program Files (x86)\EasyPHP-Devserver-17\run-devserver.exe', nil, nil, SW_SHOWNORMAL);

我得到了这个错误(我认为它是用MadExcept 3.0创建的)：

尝试菜单:在Aestan菜单中发生了一个错误。

这个错误给了我一些选项，比如bug报告，重新启动应用程序，关闭应用程序！

我在另一篇文章中使用了一些技巧，比如：

WAMP Server V 2.5 icon is orange,does not respond and no menu

ShellExecute Command doesn't work properly in win10

但他们没有解决我的问题。

Answer 1

问题解决了。当我使用此代码时，会出现错误：“目录名无效”。

procedure TForm1.Button90Click(Sender: TObject);
var
  FileName, Parameters, Folder: string;
  sei: TShellExecuteInfo;
  Error: DWORD;
  OK: boolean;
begin
   FileName := 'C:\Program Files (x86)\EasyPHP-Devserver-17\run-devserver.exe';
   Parameters := '-lang rus';
   ZeroMemory(@sei, SizeOf(sei));
   sei.cbSize := SizeOf(sei);
   sei.lpFile := PChar(FileName);
   sei.lpParameters := PChar(Parameters);
   sei.lpDirectory := PChar(Folder);
   sei.nShow := SW_SHOWNORMAL;
   OK := ShellExecuteEx(@sei);
   if not OK then
   begin
      Error := GetLastError;
      ShowMessage('Error: ' + IntToStr(Error));
   end;

但是当我像这段代码一样编辑文件夹和文件名字符串时，一切正常。

Folder := 'C:\Program Files (x86)\EasyPHP-Devserver-17\';
FileName := Folder + 'run-devserver.exe';