Function at 0x4504d8
Capabilities:
Check os version
Get number of processors

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x14
push 0
push 0
dec ecx
jne 0x4504e1
push ecx
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
test dl, dl
je 0x4504fb
add esp, 0xfffffff0
call sub.rtl160.bpl__System__ClassCreate_qqrpvzc
mov ebx, ecx
mov byte [ebp - 0x35], dl
mov dword [ebp - 0x34], eax
mov eax, dword [ebp + 8]
call sub.rtl160.bpl__System__IntfAddRef_qqrx45System__DelphiInterface_t17System_IInterface_
xor eax, eax
push ebp
push 0x450919
push dword fs:[eax]
mov dword fs:[eax], esp
xor ecx, ecx
xor edx, edx
mov eax, dword [ebp - 0x34]
call sub.AxComponentsRTL.bpl__Auslogics_Project_Interfacedobject_TInterfacedObject__bctr_qqrp58Auslogics_Project_Interfacedobject_T
mov eax, dword [ebp - 0x34]
mov dword [eax + 0x28], ebx
lea eax, [ebp - 4]
call sub.AxComponentsRTL.bpl__Auslogics_Typelibrary_Wbemscripting_CoSWbemDateTime_Create_qqrv
lea eax, [ebp - 8]
call sub.rtl160.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
push eax
mov eax, dword [ebp + 8]
push eax
mov eax, dword [eax]
call dword [eax + 0x6c]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea eax, [ebp - 0xc]
call sub.rtl160.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
push eax
push 0
push 0x45094c
mov eax, dword [ebp - 8]
push eax
mov eax, dword [eax]
call dword [eax + 0x20]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea eax, [ebp - 0x48]
call sub.rtl160.bpl__System_Variants__VarClr_qqrr8TVarData
push eax
mov eax, dword [ebp - 0xc]
push eax
mov eax, dword [eax]
call dword [eax + 0x1c]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea eax, [ebp - 0x48]
call sub.rtl160.bpl__System_Variants__VarToInteger_qqrrx8TVarData
mov ebx, eax
mov eax, dword [ebp - 0x34]
mov dword [eax + 0x2c], ebx
mov eax, dword [ebp - 0x34]
call sub.rtl160.bpl__System_TObject_ClassType_qqrv
push eax
lea edx, [ebp - 0x50]
mov eax, ebx
call sub.rtl160.bpl__System_Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x50]
lea eax, [ebp - 0x4c]
mov edx, 0x450978
call sub.rtl160.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov ecx, dword [ebp - 0x4c]
mov eax, dword [0x463cbc]
mov eax, dword [eax]
mov dl, 3
call fcn.00407ff8
lea eax, [ebp - 0x10]
call sub.rtl160.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
push eax
push 0
push 0x4509a0
mov eax, dword [ebp - 8]
push eax
mov eax, dword [eax]
call dword [eax + 0x20]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea eax, [ebp - 0x30]
call sub.rtl160.bpl__System_Variants__VarClr_qqrr8TVarData
push eax
mov eax, dword [ebp - 0x10]
push eax
mov eax, dword [eax]
call dword [eax + 0x1c]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea eax, [ebp - 0x30]
call sub.rtl160.bpl__System_Variants_VarIsNull_qqrrx14System_Variant
test al, al
jne 0x450610
lea eax, [ebp - 0x30]
call sub.rtl160.bpl__System_Variants_VarIsEmpty_qqrrx14System_Variant
test al, al
je 0x450625
mov eax, dword [ebp - 0x34]
add eax, 0x38
mov edx, dword [sym.imp.rtl160.bpl__System_Sysutils_EmptyStr]
mov edx, dword [edx]
call sub.rtl160.bpl__System__UStrAsg_qqrr20System_UnicodeStringx20System_UnicodeString
jmp 0x450633
mov eax, dword [ebp - 0x34]
add eax, 0x38
lea edx, [ebp - 0x30]
call sub.rtl160.bpl__System_Variants__VarToUStr_qqrr20System_UnicodeStringrx8TVarData
mov eax, dword [ebp - 0x34]
call sub.rtl160.bpl__System_TObject_ClassType_qqrv
push eax
mov eax, dword [ebp - 0x34]
mov ecx, dword [eax + 0x38]
lea eax, [ebp - 0x54]
mov edx, 0x4509c4
call sub.rtl160.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov ecx, dword [ebp - 0x54]
mov eax, dword [0x463cbc]
mov eax, dword [eax]
mov dl, 3
call fcn.00407ff8
xor eax, eax
push ebp
push 0x4506eb
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x14]
call sub.rtl160.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
push eax
push 0
push 0x4509e4
mov eax, dword [ebp - 8]
push eax
mov eax, dword [eax]
call dword [eax + 0x20]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea eax, [ebp - 0x68]
call sub.rtl160.bpl__System_Variants__VarClr_qqrr8TVarData
push eax
mov eax, dword [ebp - 0x14]
push eax
mov eax, dword [eax]
call dword [eax + 0x1c]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea edx, [ebp - 0x68]
lea eax, [ebp - 0x58]
call sub.rtl160.bpl__System_Variants__VarToWStr_qqrr17System_WideStringrx8TVarData
mov eax, dword [ebp - 0x58]
push eax
mov eax, dword [ebp - 4]
push eax
mov eax, dword [eax]
call dword [eax + 0x20]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea eax, [ebp - 0x70]
push eax
push 0xffffffffffffffff
mov eax, dword [ebp - 4]
push eax
mov eax, dword [eax]
call dword [eax + 0xac]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
fld qword [ebp - 0x70]
mov eax, dword [ebp - 0x34]
fstp qword [eax + 0x30]
wait
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x450701
mov eax, dword [ebp - 0x34]
call sub.rtl160.bpl__System_TObject_ClassType_qqrv
push eax
mov eax, dword [ebp - 0x34]
push dword [eax + 0x34]
push dword [eax + 0x30]
lea eax, [ebp - 0x78]
call sub.rtl160.bpl__System_Sysutils_DateTimeToStr_qqrx16System_TDateTime
mov ecx, dword [ebp - 0x78]
lea eax, [ebp - 0x74]
mov edx, 0x450a0c
call sub.rtl160.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov ecx, dword [ebp - 0x74]
mov eax, dword [0x463cbc]
mov eax, dword [eax]
mov dl, 3
call fcn.00407ff8
lea eax, [ebp - 0x18]
call sub.rtl160.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
push eax
push 0
push 0x450a30
mov eax, dword [ebp - 8]
push eax
mov eax, dword [eax]
call dword [eax + 0x20]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea eax, [ebp - 0x88]
call sub.rtl160.bpl__System_Variants__VarClr_qqrr8TVarData
push eax
mov eax, dword [ebp - 0x18]
push eax
mov eax, dword [eax]
call dword [eax + 0x1c]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea eax, [ebp - 0x88]
call sub.rtl160.bpl__System_Variants__VarToInteger_qqrrx8TVarData
mov ebx, eax
mov eax, ebx
sub al, 0x64
mov edx, dword [ebp - 0x34]
mov byte [edx + 0x3d], al
cmp al, 5
jbe 0x450796
mov eax, dword [ebp - 0x34]
mov byte [eax + 0x3d], 5
mov eax, dword [ebp - 0x34]
call sub.rtl160.bpl__System_TObject_ClassType_qqrv
push eax
lea edx, [ebp - 0x90]
mov eax, ebx
call sub.rtl160.bpl__System_Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x90]
lea eax, [ebp - 0x8c]
mov edx, 0x450a50
call sub.rtl160.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov ecx, dword [ebp - 0x8c]
mov eax, dword [0x463cbc]
mov eax, dword [eax]
mov dl, 3
call fcn.00407ff8
lea eax, [ebp - 0x1c]
call sub.rtl160.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
push eax
push 0
push 0x450a6c
mov eax, dword [ebp - 8]
push eax
mov eax, dword [eax]
call dword [eax + 0x20]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea eax, [ebp - 0xa0]
call sub.rtl160.bpl__System_Variants__VarClr_qqrr8TVarData
push eax
mov eax, dword [ebp - 0x1c]
push eax
mov eax, dword [eax]
call dword [eax + 0x1c]
call sub.rtl160.bpl__System__CheckAutoResult_qqrl
lea eax, [ebp - 0xa0]
call sub.rtl160.bpl__System_Variants__VarToInteger_qqrrx8TVarData
mov ebx, eax
mov eax, ebx
sub al, 0
mov edx, dword [ebp - 0x34]
mov byte [edx + 0x3c], al
cmp al, 0x13
jbe 0x450830
mov eax, dword [ebp - 0x34]
mov byte [eax + 0x3c], 0x13
mov eax, dword [ebp - 0x34]
call sub.rtl160.bpl__System_TObject_ClassType_qqrv
push eax
lea edx, [ebp - 0xa8]
mov eax, ebx
call sub.rtl160.bpl__System_Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0xa8]
lea eax, [ebp - 0xa4]
mov edx, 0x450a9c
call sub.rtl160.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov ecx, dword [ebp - 0xa4]
mov eax, dword [0x463cbc]
mov eax, dword [eax]
mov dl, 3
call fcn.00407ff8
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x450923
lea eax, [ebp - 0xa8]
mov edx, 2
call sub.rtl160.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0xa0]
call sub.rtl160.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x90]
mov edx, 2
call sub.rtl160.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x88]
call sub.rtl160.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x78]
mov edx, 2
call sub.rtl160.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x68]
call sub.rtl160.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x58]
call sub.rtl160.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x54]
mov edx, 3
call sub.rtl160.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x48]
call sub.rtl160.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x30]
call sub.rtl160.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x1c]
mov edx, dword [sym.imp.AxComponentsRTL.bpl___xp_50Auslogics_Typelibrary_Wbemscripting_ISWbemProperty]
mov ecx, 5
call sub.rtl160.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 8]
call sub.rtl160.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp - 4]
call sub.rtl160.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
lea eax, [ebp + 8]
call sub.rtl160.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
ret