procedure ParseParamStr(var AFiles: TFilesList);
var
 lpI: integer;
 lpComLine: string;
 lpComLen: integer;
 lpPos: integer;
 lpNDQ: integer;
 lpChar: char;
 lpZeroStr: string;
 lpNextStr: string;
 lpS: string;
 lpEndLen: integer;
 lpZB: boolean;

const
 lcDQ = #34;//"
 lcSQ = #39;//'
 lcBadChars: set of AnsiChar = [ #34, #39];

 function CharPossible(AChar: char): boolean;
 begin
   Result := not (CharInSet(AChar, lcBadChars));
 end;

begin
 lpComLine := GetCommandLine;
 lpComLen := Length(lpComLine);

 //Отладка
 //InfoMessage(0, lpComLine + ' (Длина = ' + IntToStr(lpComLen) + ')');

 lpNDQ := 0;
 lpPos := 0;
 lpZB := False;

 //Извлекаем нулевой параметр
 //Признак начала и конца нулевого параметра - двойные кавычки -> "ZeroStr"
 for lpI := 1 to lpComLen do
 begin
   lpChar := lpComLine[lpI];
   if lpChar = lcDQ then
   begin
     Inc(lpNDQ);
     lpZB := not lpZB; //Включим флаг открытых скобок
   end;

   //Длина нулевого параметра с кавычками
   //Потребуется для дальнейшего разбора строки
   Inc(lpPos);

   //Если скобка открыта
   if lpZB then
   begin
     //и символ не равен кавычкам
     if (lpChar <> lcSQ) and (lpChar <> lcDQ) then
       lpZeroStr := lpZeroStr + lpChar; //Извлекаем нулевую строку
   end;
   //Выйдем из цикла в конце нулевого параметра
   if (lpChar = lcDQ) and (lpZB = False) then Break;
 end;//for

 //Проверим на первый пробел
 lpChar := lpComLine[lpPos + 1];
 if lpChar = MSG_SPACE then Inc(lpPos, 2); //Начальная позиция остатков строки параметров

 //Следующая строка.
 //Может состоять из нескольких параметров
 lpNextStr := MSG_EMPTY;
 lpEndLen := 0;

 //Копируем остаток для дальнейшего разбора
 for lpI := lpPos to lpComLen do
 begin
   lpChar := lpComLine[lpI];
   lpNextStr := lpNextStr + lpChar;
   Inc(lpEndLen);
 end;

 lpS := MSG_EMPTY;
 //Разбираем остатки строки
 //с проверкой на присутствие файла
 for lpI := 1 to lpEndLen do
 begin
   lpChar := lpNextStr[lpI];

   if lpI = lpEndLen then
   begin
     //Последний символ
     if CharPossible(lpChar) then lpS := lpS + lpChar;
     if FileExist64(lpS) then
     begin
       AFiles.AddRecord(lpS);
       Break;
     end;
   end;

   //Если пробел, то возможно это конец параметра
   //Проверим есть ли такой файл
   if lpChar = MSG_SPACE then
   begin
     //Если файл есть, то добавим его в список файлов
     if FileExist64(lpS) then
     begin
       AFiles.AddRecord(lpS);
       lpS := MSG_EMPTY;
     end
     else
     begin
       //Иначе продолжаем разбирать строку
       if CharPossible(lpChar) then lpS := lpS + lpChar;
     end;
   end //if lpChar = MSG_SPACE
   else
   begin
     if CharPossible(lpChar) then lpS := lpS + lpChar;
   end;
 end;//while
end;

FilesList := TStringList.Create;
ParseParamStr(FilesList);

//Если есть строка параметров, то откроем файлы
if FilesList.GetCount <> 0 then OpenMyFiles(FilesList);

//Список больше не нужен
FilesList.Free;

function FileExist64(FileName: string): boolean;
var
 lpFD: _WIN32_FIND_DATAW;
 lpH: THandle;

begin
 lpH := FindFirstFile(PWideChar(FileName), lpFD);

 if lpH = INVALID_HANDLE_VALUE then
   Result := False else
   Result := True;

 if Result then
 begin
   //Файл не должен быть директорией или устройством
   //Также не может быть скрыт
   if (lpFD.dwFileAttributes = FILE_ATTRIBUTE_ARCHIVE) or
      (lpFD.dwFileAttributes = FILE_ATTRIBUTE_NORMAL) then else Result := False;
 end;

 WinApi.Windows.FindClose(lpH);
end;