GetStrValue

strRight:string; AION
n1:integer;
begin
strName:=strName+'=';
n1:=pos(strName,strText);
if n1=0 then
begin
result:='not exist！';
exit;
end;
strRight:=copy(strText,n1+Length(strName),Max_Path);
n1:=pos(';',strRight);
if n1>0 then
Result:=copy(strRight,1,n1-1)
else
Result:=strRight;
end;