pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-04-17 06:57:13 +02:00
Code Issues Actions Releases Activity

Fix ProcessType parameter parsing.

Browse Source 
ParamStr() uses 0..ParamCount where 0 is the executable filename, 1 is the first and ParamCount is the last parameter.
This commit is contained in:
Andreas Hausladen 2019-11-08 23:32:00 +01:00
parent 427059dd9a
commit 3e9c5c4017
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
source/uCEFApplication.pas
View File

@ -1379,10 +1379,10 @@ var
TempName, TempValue : string; TempName, TempValue : string;
begin begin
Result := ptBrowser; Result := ptBrowser;
i := pred(paramCount); i := paramCount;
TempLen := length(TYPE_PARAMETER_NAME); TempLen := length(TYPE_PARAMETER_NAME);
while (i >= 0) and (Result = ptBrowser) do while (i >= 1) and (Result = ptBrowser) do
begin begin
TempName := copy(paramstr(i), 1, TempLen); TempName := copy(paramstr(i), 1, TempLen);