给你个例子
;if FileExists(PChar(ExtractFilePath(Application.Exename) + 'FeeReport.exe'))then
; ; ShellExecute(Handle, 'open',
; ; ; PChar(ExtractFilePath(Application.Exename) + 'FeeReport.exe'),
; ; ; PChar(IntToStr(glcid) + ' ' + IntToStr(year * 100 + month)),
; ; ; '',
; ; ; SW_SHOWNORMAL)
第二行是你要传给这个EXE的参数
可以在这个EXE通过PARAMSTR(i)
0-自己的文件名
1-第一个参数
.....