var<br>filename:string<br>begin<br> if OpenDialog1.Execute then<br> filename:=OpenDialog1.FileName;<br>//如果是当前的项目的文件夹下可以,不管在哪个目录下都可以<br> // filename:=ExtractFilePath(ParamStr(0))+ '/aa/bb/run.exe'';<br>ShellExecute(Handle, nil, pchar(filename), nil, nil, SW_SHOWNORMAL);<br> <br><br> <br>end;