function getSystemInfo : string;
var
midStr : string;
begin
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS : midStr := 'Windows 9x';
VER_PLATFORM_WIN32_NT : midStr := 'Windows NT';
end;
if Win32MajorVersion >= 5 then
begin
case Win32MinorVersion of
0 : midStr := 'Windows 2000';
1 : midStr := 'Windows XP';
end;
end;
midStr := midStr + (' Running on Windows:'+IntToStr (Win32MajorVersion)+'.'
+ IntToStr (Win32MinorVersion)+
' ((Build '+IntToStr (Win32BuildNumber)+ ')'+#10#13 +'Update:'+Win32CSDVersion);
result := midStr;
end;