for i := 0 to ParamCount -1 do begin if LowerCase(ParamStr(i)) = 'beep' then Beep(10000,1000) else if (LowerCase(ParamStr(i)) = 'exit' then Application.Terminate; end;
在你程序中设置全局变量,将参数存储在全局变量中就可以了,需要用到的单元直接取全局变量的值在你的工程里面获取参数,可以直接写到已经创建的Form中program abc;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}var I: Integer;begin Application.Initialize; Application.CreateForm(TForm1, Form1); //获取参数 for i := 0 to ParamCount do begin Form1.Memo1.Lines.Add(ParamStr(i)); end; // Application.Run; end.
begin
if LowerCase(ParamStr(i)) = 'beep' then
Beep(10000,1000)
else if (LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
在程序中是如何体现了?
例如:我的程序名read,别人调用时候在程序中写入 read string;
谢谢,望回答,本人不甚感激!
Forms,
Unit1 in 'Unit1.pas' {Form1};{$R *.res}var
I: Integer;begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
//获取参数
for i := 0 to ParamCount do
begin
Form1.Memo1.Lines.Add(ParamStr(i));
end;
//
Application.Run;
end.
其实用个CMDLIST函数就一切OK了:)