大家怎么这么不细心的教教人家啊:)
1。在Delphi下新建一个Application,然后在窗体的OnCreate事件中写入以下代码:
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ParamCount-1 do
begin
if LowerCase(ParamStr(i)) = 'beep' then
ShowMessage(IntToStr(i))
else if LowerCase(ParamStr(i)) = 'exit' then
Application.Terminate;
end;
end;
2。编译运行该程序,生成Project1.exe文件;
3。开始-》运行,输入cmd,进入控制台后以Dos命令进入Project1.exe文件所在的目录;
4。键入“Project1 beep beep beep exit”,然后回车。
明白了吗?呵呵,我想不用再解释了吧:)