The following code can check that the system used is Windows XPuses registry; ...
function IsWinXP: Boolean; begin Result: = False; if Win32Platform = VER_PLATFORM_WIN32_NT then with TRegistry.Create do try RootKey: = HKEY_LOCAL_MACHINE; if OpenKeyReadOnly ( '/ Software / Microsoft / Windows NT / CurrentVersion') then Result: = (ReadString ( ' ProductName ') =' Microsoft Windows XP '; FINALLY FREE; END;
// Rock // Reprinted please keep this information
