求转换一段VB的shell代码到deilphi

莫非

求大神帮帮忙，把一下一段shell代码转换成delphi 的代码
Shell "cmd.exe /c " & app.path & "\123.xml", vbHide

hongqizhen

uses添加shellapi

ShellExecute(Handle,nil,'cmd /c ' + extractfiledir(Application.ExeName) + '\123.xml',nil,nil,SW_HIDE);