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;