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;
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