Question

delphi里调用exe文件

ShellExecute(Handle, 'Open ', 'C:\Winnt\System32\abc.exe ',nil,nil, SW_SHOWNORMAL);我要改的是“c:\winnt\system32\“这个路，ExtractFilePath(ParamStr(0))可以用这个代替吗？怎么改？ 如果用户把软件装到了其他盘里，D盘或者E盘点话怎么指定上面的路径

Answer 1

可以通过 ShellExecute 函数进行调用。

1. 需要在USES段中加入SHELLAPI。
   

2. 示例：点击一个按钮后打开"c:\myapp\myapp.exe"。

3. 设计状态双击按钮，进入代码编辑，加入以下语句：

   ShellExecute(handle,'open','c:\myapp\myapp.exe','-s','',SW_SHOWNORMAL);

4. 按F5可以调试结果。

5. ShellExecute参数说明：
   

   第一个参数为父窗口句柄；
   第二个参数为打开方式（OPEN，PRINT两种）；
   第三个参数为执行文件全路径；
   第四个参数为执行文件参数；(没有时为 nil )
   第五个参数为执行文件开始运行时的初始目录；
   第六个参数为为执行文件运行方式(SW_HIDE,SW_MAXIMIZE,SW_MINIMIZE,
SW_RESTORE,SW_SHOW,SW_SHOWDEFAULT,SW_SHOWMAXIMIZED,SW_SHOWMINIMIZED,
SW_SHOWMINNOACTIVE,SW_SHOWNA,SW_SHOWNOACTIVATE,SW_SHOWNORMAL);

Answer 2

ExtractFilePath( ParamStr(0) )返回的是当前程序(即加载abc.exe的程序，假设叫做test.exe吧)的路径，如果确保abc.exe和test.exe处于同一路径，或者处于test.exe所在路径的固定相对位置，如abc.exe在test.exe之路径\..\others\abc.exe，此方案可行。
var
sToBeRun : string;
......
sToBeRun := Format( '%s\abc.exe', [ ExtractFilePath( ParamStr(0) ) ] );
ShellExecute( Handle, 'Open', PChar( sToBeRun ), nil, nil, SW_SHOWNORMAL );

其实，加载exe程序，最好还是调用CreateProcess，ShellExecute一般是用来打开类似于.doc、.pdf等文件，你可以不知道用什么具体程序打开它们，让系统根据配置去找应该用什么程序打开，这样的话，系统会找到winword.exe或acrobat.exe来打开文档。

Answer 3

Hwnd = Plugin.Window.GetKeyFocusWnd()
Delay 2000

t1=now:t2=now:sj1=0.5:sj2=60
Rem abcc
Delay 20
If DateDiff("s",t1,now)>=sj1

Delay 10

Call Plugin.Bkgnd.KeyPress(Hwnd, 83)
Delay 10
t1=now
End If
If DateDiff("s",t2,now)>=sj2
Delay 10
Call Plugin.Bkgnd.KeyPress(Hwnd, 70)
t2=now
End If
Goto abcc

Answer 4

ShellExecute(Handle, 'Open ', pchar(ExtractFilePath(ParamStr(0))+‘abc.exe '),nil,nil, SW_SHOWNORMAL);

Answer 5

api winexec