你自己程序做好后,再用 程序名 参数 来运行程序 例如在程序中 procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin for i := 0 to ParamCount do ListBox1.Items.Add(ParamStr(i)); end; 这样就可以使用得到的参数.
在Delphi中,可以使用运行参数,其中: 1、ParaCount:参数个数; 2、ParaStr(i:integer):对应参数值;(i 从0开始)比如:要在EXE文件的运行时,加上Main.exe top,那么就要在相应的工程文件中写上: if ParaStr(0)='top' then ......
例如在程序中
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i := 0 to ParamCount do
ListBox1.Items.Add(ParamStr(i));
end;
这样就可以使用得到的参数.
1、WinExec('FileName',ParamLists);
2、打开Run菜单:点击Parameters,就会弹出一个对话框,在Parameters组合框
中添上你的参数,注意,各参数之间用空格隔开
第一个应是:
WinExec(lpCmdLine:PAnsichar;uCmdShow:Cardinal);
在lpCmdLine中指定,各参数用空格隔开,第一个为要运行的程序,从第二个开始就是
第一个参数了。
1、ParaCount:参数个数;
2、ParaStr(i:integer):对应参数值;(i 从0开始)比如:要在EXE文件的运行时,加上Main.exe top,那么就要在相应的工程文件中写上:
if ParaStr(0)='top' then ......