如何传递参数给应用程序(50分)

小弟现在需要传递参数给一个应用程序,不知如何实现.例如:translate c:/file/ex.asp
translate是编写的应用程序,c:/file/ex.asp是参数,如何在translate中读取该参数

Returns a specified parameter from the command-line.

Unit

System

Category

command line utilities

function ParamStr(Index: Integer): string;

Description

ParamStr returns the parameter from the command line
that corresponds to Index, or an empty string if Index is greater than ParamCount. For example, an Index value of 2 returns the second command-line parameter.

ParamStr(0) returns the path and file name of the executing
program (for example, C:/TEST/MYPROG.EXE).

Note: Use double quotes to wrap multiple words as one parameter
(such as long file names containing spaces)

winexec(pchar('路径'+'franslate.exe'+' '+'c:/file/ex.asp');
参数和应用程序名用空格分开
在启动应用程序时作判断
var s:string;
if paramcount>0 then
s:=paramstr(1);
paramcount和数组paramstr都是全局变量是程序本来就定义好的不用自行定义
这时候s的值就是'c:/file/ex.asp'

谢谢两位!