5,392
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
47522341 2003-11-07
- 打赏
- 举报
1、
WinExec('E:\NEWWEBSTAT\ProjectRule.exe', 0);
2、
ShellExecute(handle, 'open',‘filename.exe’，nil, nil,sw_shownormal);
WinExec('E:\NEWWEBSTAT\ProjectRule.exe', 0);
2、
ShellExecute(handle, 'open',‘filename.exe’，nil, nil,sw_shownormal);
C7 2003-11-07
- 打赏
- 举报
FileName:=ExtractFilePath(Paramstr(0))+'project1.exe';
ShellExecute(handle, 'open',pchar(filename), nil, nil,sw_shownormal);
ShellExecute(handle, 'open',pchar(filename), nil, nil,sw_shownormal);
nicotine 2003-11-07
- 打赏
- 举报
str:=ExtractFilePath(application.exename)+ExtractFileName('run.exe');
winexec(PChar(str),9);
winexec(PChar(str),9);
lw549 2003-11-07
- 打赏
- 举报
winexec或者shellexecute
fhuibo 2003-11-07
- 打赏
- 举报
WinExec('E:\NEWWEBSTAT\ProjectRule.exe', 0);
