ShellExecute的用法疑问！！！

Question

ShellExecute(Application.Handle, nil, '\Data_Con\EGDSYS_con.udl', nil, nil, SW_SHOWNORMAL)我这里打开的缺省目录，老是不对，他的第三个参数非要完整路径吗？
如果不需要，如何实现只用缺剩目录就可以拉？！

Answer 1

必须调用shellapi单元～！～！｀

Answer 2

ShellExecute(0, c_operation, c_cmdLine, c_para, c_dir, c_showCmd)

Answer 3

要完整路径，你用这句不就得了？
ShellExecute(Application.Handle, nil, PChar(ExtractFilePath(Application.ExeName)
 + 'Data_Con\EGDSYS_con.udl'), nil, nil, SW_SHOWNORMAL)