18 lines
346 B
Plaintext
18 lines
346 B
Plaintext
Function InitCmdParams(alias, path)
|
|
Begin
|
|
// path := ExtractFileDir(SysparamStr(0));
|
|
for i:=0 to SysParamCount() do
|
|
begin
|
|
param := Trim(SysparamStr(i));
|
|
arr := Str2Array(param, "=");
|
|
if length(arr) = 2 then
|
|
begin
|
|
if arr[0] = "--path" then
|
|
path := arr[1];
|
|
else if arr[0] = '--alias' then
|
|
alias := arr[1];
|
|
end
|
|
end
|
|
End;
|
|
|