ParamStr и ParamCount

program ParamTest;

uses
  CRT;

const
  AppPath: PPAnsiChar = PPAnsiChar(32);
  CmdLine: PPAnsiChar = PPAnsiChar(28);
  MAX_PARAMS = 128;

type
  TArgValues = array[0..MAX_PARAMS - 1] of PAnsiChar;

var
  ArgCount: LongWord = 1; // at least program path
  ArgValues: TArgValues;

function ParamCount: LongWord;
begin
  if ArgCount > 1 then
    Result := ArgCount - 1
  else
    Result := 0;
end;

function ParamStr(Idx: LongWord): PAnsiChar;
begin
  if Idx < ArgCount then
    Result := ArgValues[Idx]
  else
    Result := '';
end;

procedure ProcessArgs;
asm
        PUSH   EBX
        PUSH   ESI
        PUSH   EDI
        MOV    ESI, CmdLine
        MOV    ESI, [ESI]
        LEA    EDI, ArgValues
        MOV    EAX, AppPath
        MOV    EAX, [EAX]
        MOV    [EDI], EAX
        ADD    EDI, 4
        XOR    EBX, EBX
        XOR    ECX, ECX
@next:
        MOV    CL, [ESI]
        JECXZ  @done
        INC    ESI
        CMP    CL, ' '
        JE     @next
        MOV    AL, '"'
        INC    EBX
        CMP    AL, CL
        MOV    EDX, ESI
        JE     @quote
        DEC    EDX
        MOV    AL, ' '
@quote:
        MOV    [EDI], EDX
@parse:
        MOV    CL, [ESI]
        JECXZ  @done
        INC    ESI
        CMP    AL, CL
        JNE    @parse
        ADD    EDI, 4
        MOV    BYTE PTR [ESI - 1], 0
        JMP    @next
@done:
        ADD    ArgCount, EBX // ArgCount  already contains at least 1
        POP    EDI
        POP    ESI
        POP    EBX
end;

var
  i: LongWord;

begin
  InitConsole('Test ParamStr', True);
  ProcessArgs;
  WriteLn('ParamCount = %u', [ParamCount]);
  for i := 0 to ParamCount do
    WriteLn('ParamStr(%u) = "%s"', [i, ParamStr(i)]);
  ReadKey;
end.

function StrCmp(const Str1, Str2: PAnsiChar): Boolean;
asm
  PUSH ESI
  PUSH EDI
  MOV ESI, Str1
  MOV EDI, Str2
  XOR ECX, ECX
  XOR EAX, EAX // EAX = False
@next:
  MOV CH, [ESI]
  MOV CL, [EDI]
  CMP CH, CL   // if Str1[i] <> Str2[i] then Result := False;
  JNE @done
  JECXZ @equal // if Str1[i] = #0 and Str2[i] = #0 then Result := True;
  INC ESI
  INC EDI
  JMP @next
@equal:
  INC EAX      // EAX = True
@done:
  POP EDI
  POP ESI
end;

function FindCmdLineSwitch(const Switch: PAnsiChar): Boolean;
var
  Index: LongWord;
  Param: PAnsiChar;
begin
  Result := False;
  for Index := 1 to ParamCount do
  begin
    Param := ParamStr(Index);
    if (Param[0] = '-') and StrCmp(@Param[1], Switch) then
    begin
      Result := True;
      Break;
    end;
  end;
end;