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 The begin Case Win32minorversion of 0: Midstr: = 'Windows 2000'; 1: Midstr: = 'Windows XP'; END;
Midstr: = Midstr ('Running On Windows:' INTTOSTR (Win32majorversion) '.'
INTTOSTR (Win32minorVersion)
'((Build' INTOSTR (Win32BuildNumber) # 10 # 13 'Update:' Win32csdversion; Result: = Midstr; End;
