[Code]
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;
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;