Question

delphi7 做超级链接

我在在delphi7 上建一个Button做超级链接，链接以下内容：C:\VTCP\SSH.EXe -bC:\vtcp\autos.cmd 这个是我们公司的
ERP系统，请高手指教以下。
请加一下我的QQ：195748664 ，我试过你的答案了，还是不行

Answer 1

//声明
WinExec(
lpCmdLine: LPCSTR; {文件名和参数; 如没指定路径会按以下顺序查找: 程序目录/当前目录/System32/Windows/PATH环境变量}
uCmdShow: UINT {启动选项}
): UINT;

//返回值:
大于 31 {调用成功}
等于 0 {内存不足}
ERROR_FILE_NOT_FOUND = 2; {文件名错误}
ERROR_PATH_NOT_FOUND = 3; {路径名错误}
ERROR_BAD_FORMAT = 11; {EXE 文件无效}

//uCmdShow 参数可选值:
SW_HIDE = 0; {隐藏, 并且任务栏也没有最小化图标}
SW_SHOWNORMAL = 1; {用最近的大小和位置显示, 激活}
SW_NORMAL = 1; {同 SW_SHOWNORMAL}
SW_SHOWMINIMIZED = 2; {最小化, 激活}
SW_SHOWMAXIMIZED = 3; {最大化, 激活}
SW_MAXIMIZE = 3; {同 SW_SHOWMAXIMIZED}
SW_SHOWNOACTIVATE = 4; {用最近的大小和位置显示, 不激活}
SW_SHOW = 5; {同 SW_SHOWNORMAL}
SW_MINIMIZE = 6; {最小化, 不激活}
SW_SHOWMINNOACTIVE = 7; {同 SW_MINIMIZE}
SW_SHOWNA = 8; {同 SW_SHOWNOACTIVATE}
SW_RESTORE = 9; {同 SW_SHOWNORMAL}
SW_SHOWDEFAULT = 10; {同 SW_SHOWNORMAL}
SW_MAX = 10; {同 SW_SHOWNORMAL}

//举例, procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec('C:\VTCP\SSH.EXe -b C:\vtcp\autos.cmd', SW_SHOWNORMAL);
end;

Answer 2

引用ShellAPI

使用
ShellExecute

ShellExecute(Form1.handle, nil, 'C:\VTCP\SSH.EXe',
'-b C:\vtcp\autos.cmd', 'C:\VTCP\', SW_SHOW);

具体参数去查帮助或MSDN，

Answer 3

ShellExecute(Form1.handle, nil, 'C:\VTCP\SSH.EXe',
'-b C:\vtcp\autos.cmd', 'C:\VTCP\', SW_SHOW);

Answer 4

use ShellAPI;

ShellExecute(Handle, nil, 'http://www.baidu.com', nil, nil, SW_NORMAL);