Question

delphi中shellExecute的使用

我想通过shellExecute调用执行cmd命令 brcc32 编译资源文件 代码如下：procedure TForm1.Button1Click(Sender: TObject);
var
se:SHELLEXECUTEINFO;
begin
se.cbSize:=SizeOf(SHELLEXECUTEINFO) ;
se.Wnd:=0;
se.lpVerb:='open';
se.lpFile:='c:\windows\system32\cmd.exe';
se.lpParameters:='brcc32 E:\project\Test\my.rc';
se.lpDirectory:=nil;
se.nShow:=SW_SHOWNORMAL;
se.fMask := SEE_MASK_NOCLOSEPROCESS;
se.hInstApp:=0;
ShellExecuteEx(@se);
WaitForSingleObject(se.hProcess,INFINITE);
end;
我想问下哪里错了吗？请高手给出正确的方法 ，谢谢

Answer 1

se.lpParameters:='brcc32 E:\project\Test\my.rc';
改为
se.lpParameters:='/c brcc32 E:\project\Test\my.rc';

Answer 2

使用语句延迟一下看看.