function GetMyParam(PName:String):String;
var
CmdLine : String;
CmdLineLen : Integer;
i : Integer;
begin
CmdLineLen:=ParamCount();
for i:=0 to CmdLineLen do
begin
CmdLine:=ParamStr(i);
if CmdLine= PName then
begin
CmdLine:=ParamStr(i+1);
Result := CmdLine;
Exit;
end;
end;
end;
转自:http://www.cnblogs.com/ahuo/archive/2009/07/30/1534998.html
本文介绍了一个Delphi函数,用于从命令行参数中获取指定参数的值。
3824

被折叠的 条评论
为什么被折叠?



