delphi 问题，如何获取当前执行文件的路径，并执行同目录下的另一个文件？

例如： WinExec('F:\123.exe',SW_SHOW);是执行F:\下的123.exe，如果目录变化，就不能执行了，如何动态的获取指定文件的路径并执行呢？多谢！

已经解决：WinExec(PChar(ExtractFilePath(ParamStr(0))+'123.exe'),SW_NORMAL);

path := ExtractFilePath(application.ExeName);

取当前可执行程序所在目录

shellexecute(handle, 'open', nil, nil, '.\123.exe', sw_shownormal);

不过要加入shellapi单元