|
|
| Returns a string that hold the web browser and OS type/version of the web user's systemprocedure DetectBrowserOS(var string OSName,var string OSVersion) |
procedure DetectBrowserOS(var string OSName,var string OSVersion)
begin
array string 255 a_os;
integer i,alen;
string 255 browserstr;
OSName = "";
OSVersion = "";
browserstr = WebAgent;
a_os[0] = "mac";
a_os[1] = "nt";
a_os[2] = "win";
alen = 3;
for (i=0;i<alen;i=i+1) begin
if (InString(browserstr,a_os[i])>0 and InString(browserstr,"linux")==0) then begin
OSName = a_os[i];
// --- //
end;
end;
// -- //
return;
end;
««
