Mini Kabibi Habibi
K Z q�L?� - uGetWinVersionInfo��� <puGetWinVersionInfo.paso�L? dSystem fstring,��f
UnicodeString,��f
AnsiString���fInteger��s�fBoolean8��bgFalse�*��gSizeOf gExit gMove[�5gAssigned fPointer��~gTObject.Free6�g@UStrAsg�Z3�g@HandleAnyException�`p�g@DoneExcept�`p�g @UStrLAsg�Z3�g@UStrClr\��>g@UStrCat�Z3�g
@UStrEqual�`p�g@HandleFinally�`p�f
WideStringݗ��f PWideCharD�?�cdSysInit cdWinapi.Windows fTOSVersionInfoEx:VfBOOL�y��gkernel32u�D#fDWORD���fTOSVersionInfo<P��gGetVersionEx$�UgVER_PLATFORM_WIN32_NT�}�1gHKEY_LOCAL_MACHINEc�g�gVER_PLATFORM_WIN32_WINDOWS�}�1gVER_PLATFORM_WIN32s�}�1gGetProcAddress�w��gGetModuleHandle� XgGetProcAddressѡ\Rcd
Winapi.ShlObj cdSystem.SysUtils g UpperCase�c�-cdSystem.StrUtils cdSystem.Classes cdSystem.Win.Registry f TRegistry�cg
.TRegistry���gTRegistry.CreateH&�gTRegistry.SetRootKey>&�gTRegistry.OpenKeyReadOnly[&�gTRegistry.ReadStringc&�gTRegistry.CloseKeyK&�chkernel32.dll g
GetVersionExA c5uGetWinVersionInfo� _���c5System 5Win 5Registry Zcc5Classes Xc5StrUtils Vc5SysUtils Rcc5SysInit 2c5Winapi 5ShlObj Pc5Windows 4cc(
GetVersionExA�� � � �"lpVersionInformation c'VER_NT_WORKSTATION� ��a�'VER_SUITE_ENTERPRISE� ��a�'
VER_NT_SERVER� ��a�'VER_SUITE_DATACENTER� ��a�$'VER_SUITE_PERSONAL� ��a�,%PRODUCT_BUSINESS� �}�1 %PRODUCT_BUSINESS_N� �}�1 %PRODUCT_CLUSTER_SERVER� �}�1 $%PRODUCT_DATACENTER_SERVER� �}�1 %PRODUCT_DATACENTER_SERVER_CORE� �}�1 %PRODUCT_ENTERPRISE� �}�1 %PRODUCT_ENTERPRISE_N� �}�1 6%PRODUCT_ENTERPRISE_SERVER� �}�1 %PRODUCT_ENTERPRISE_SERVER_CORE� �}�1 %PRODUCT_ENTERPRISE_SERVER_IA64� �}�1 %PRODUCT_HOME_BASIC� �}�1 %PRODUCT_HOME_BASIC_N� �}�1
%PRODUCT_HOME_PREMIUM� �}�1 %PRODUCT_HOME_PREMIUM_N� �}�1 4%PRODUCT_HOME_SERVER� �}�1 &% PRODUCT_SERVER_FOR_SMALLBUSINESS� �}�1 0%PRODUCT_SMALLBUSINESS_SERVER� �}�1 %$PRODUCT_SMALLBUSINESS_SERVER_PREMIUM� �}�1 2%PRODUCT_STANDARD_SERVER� �}�1 %PRODUCT_STANDARD_SERVER_CORE� �}�1 %PRODUCT_STARTER� �}�1 %!PRODUCT_STORAGE_ENTERPRISE_SERVER� �}�1 .%PRODUCT_STORAGE_EXPRESS_SERVER� �}�1 (%PRODUCT_STORAGE_STANDARD_SERVER� �}�1 *% PRODUCT_STORAGE_WORKGROUP_SERVER� �}�1 ,%PRODUCT_UNDEFINED� �}�1 %PRODUCT_ULTIMATE� �}�1 %PRODUCT_ULTIMATE_N� ~�1 8%PRODUCT_WEB_SERVER� �}�1 "%PRODUCT_UNLICENSED� ;��� ͫͫ'GetProductInfo� �ݪ� 4�� �7.1F "