Function at 0x63a4e0
Capabilities:
Get common file path

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x59
push 0
push 0
dec ecx
jne 0x63a4e8
push ecx
push ebx
push esi
push edi
xor eax, eax
push ebp
push 0x63abfa
push dword fs:[eax]
mov dword fs:[eax], esp
mov byte [ebp - 5], 0
push 0x104
lea eax, [ebp - 0x24a]
push eax
call sub.kernel32.dll_GetWindowsDirectoryW
lea eax, [ebp - 0x250]
call fcn.0063a460
mov edx, dword [ebp - 0x250]
lea eax, [ebp - 4]
mov ecx, 0x63ac1c
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_DirectoryExists_qqrx20System_UnicodeString
test al, al
jne 0x63a548
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_ForceDirectories_qqr20System_UnicodeString
push 0x63ac5c
call sub.kernel32.dll_LoadLibraryW
mov dword [ebp - 0x28], eax
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Classes_TStringList_]
call sub.rtl120.bpl__Classes_TStringList__bctr_qqrv
mov dword [ebp - 0x24], eax
mov dl, 1
mov eax, dword [sym.imp.rtl120.bpl__Registry_TRegistry_]
call sub.rtl120.bpl__Registry_TRegistry__bctr_qqrv
mov dword [ebp - 0x20], eax
xor eax, eax
push ebp
push 0x63abbd
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x63ac74
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401bd0
mov dword [ebp - 0x30], eax
push 0x63ac98
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401bd0
mov dword [ebp - 0x34], eax
push 0x63acc0
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401bd0
mov dword [ebp - 0x38], eax
push 0x63ace4
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401bd0
mov dword [ebp - 0x3c], eax
push 0x63ac74
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401bd0
test eax, eax
je 0x63a60d
push 0x63ac98
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401bd0
test eax, eax
je 0x63a60d
push 0x63acc0
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401bd0
test eax, eax
je 0x63a60d
push 0x63ace4
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401bd0
test eax, eax
jne 0x63a622
mov edx, 0x63ad14
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
jmp 0x63abc4
mov edx, 0x80000002
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__Registry_TRegistry_SetRootKey_qqrp6HKEY__
mov edx, 0x63ad4c
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__Registry_TRegistry_OpenKeyReadOnly_qqrx20System_UnicodeString
lea eax, [ebp - 0x254]
lea edx, [ebp - 0x24a]
mov ecx, 0x105
call sub.rtl120.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
lea eax, [ebp - 0x254]
mov edx, 0x63add8
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x254]
push eax
push 0x63ae00
push dword [ebp - 4]
push 0x63ae18
push 0x63ae50
lea eax, [ebp - 0x258]
mov edx, 4
call sub.rtl120.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x258]
lea ecx, [ebp - 0x2c]
pop eax
call fcn.0063a250
mov edx, dword [ebp - 0x24]
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__Registry_TRegistry_GetKeyNames_qqrp16Classes_TStrings
mov eax, dword [ebp - 0x24]
mov edx, dword [eax]
call dword [edx + 0x14]
dec eax
test eax, eax
jl 0x63ab96
inc eax
mov dword [ebp - 0x40], eax
mov dword [ebp - 0x18], 0
lea ecx, [ebp - 0x260]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x24]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov ecx, dword [ebp - 0x260]
lea eax, [ebp - 0x25c]
mov edx, 0x63af00
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x25c]
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__Registry_TRegistry_OpenKeyReadOnly_qqrx20System_UnicodeString
mov edx, 0x63af8c
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__Registry_TRegistry_ValueExists_qqrx20System_UnicodeString
test al, al
je 0x63ab8a
mov edx, 0x63afc0
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
mov eax, 0x88
call sub.rtl120.bpl__System__GetMem_qqri
mov dword [ebp - 0x1c], eax
xor eax, eax
push ebp
push 0x63ab83
push dword fs:[eax]
mov dword fs:[eax], esp
mov esi, 1
mov ebx, 0x63b004
mov eax, 0x63b020
mov edx, dword [ebp - 0x1c]
mov dword [edx], eax
mov eax, dword [ebp - 0x1c]
mov dword [eax + 4], 0xb
lea ecx, [ebp - 0x274]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x24]
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x274]
lea edx, [ebp - 0x270]
call sub.rtl120.bpl__Sysutils_StringToGUID_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x1c]
push esi
lea esi, [ebp - 0x270]
lea edi, [eax + 8]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
movsd dword es:[edi], dword [esi]
pop esi
lea eax, [ebp - 0xc]
push eax
mov eax, dword [ebp - 0x1c]
push eax
push esi
push ebx
call dword [ebp - 0x30]
mov ebx, eax
test ebx, ebx
jne 0x63ab4a
xor eax, eax
push ebp
push 0x63ab43
push dword fs:[eax]
mov dword fs:[eax], esp
push 1
push 0x7530
lea eax, [ebp - 0x14]
push eax
lea eax, [ebp - 0x10]
push eax
mov eax, dword [ebp - 0xc]
push eax
call dword [ebp - 0x34]
mov ebx, eax
cmp dword [ebp - 0x14], 0
jne 0x63a813
lea ecx, [ebp - 0x278]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x24]
mov ebx, dword [eax]
call dword [ebx + 0xc]
mov edx, dword [ebp - 0x278]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
mov edx, 0x63b038
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
mov edx, 0x63b060
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
mov byte [ebp - 5], 1
mov eax, dword [ebp - 0xc]
push eax
call dword [ebp - 0x3c]
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
jmp 0x63ab8a
cmp ebx, 0x80070006
jne 0x63a82b
mov edx, 0x63b080
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x63ab2e
test ebx, ebx
jne 0x63ab0e
xor eax, eax
push ebp
push 0x63ab02
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x10]
xor edx, edx
push edx
push eax
lea eax, [ebp - 0x280]
call sub.rtl120.bpl__Sysutils_IntToStr_qqrj
mov ecx, dword [ebp - 0x280]
lea eax, [ebp - 0x27c]
mov edx, 0x63b0c8
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x27c]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
lea edx, [ebp - 0x288]
mov eax, dword [ebp - 0x14]
movsx eax, word [eax + 0x2c]
call sub.rtl120.bpl__Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x288]
lea eax, [ebp - 0x284]
mov edx, 0x63b0f8
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x284]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
lea eax, [ebp - 0x290]
mov edx, dword [ebp - 0x14]
mov edx, dword [edx]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov ecx, dword [ebp - 0x290]
lea eax, [ebp - 0x28c]
mov edx, 0x63b124
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x28c]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
lea edx, [ebp - 0x298]
mov eax, dword [ebp - 0x14]
add eax, 4
call sub.rtl120.bpl__Sysutils_GUIDToString_qqrrx5_GUID
mov ecx, dword [ebp - 0x298]
lea eax, [ebp - 0x294]
mov edx, 0x63b158
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x294]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
lea edx, [ebp - 0x2a0]
mov eax, dword [ebp - 0x14]
add eax, 0x18
call sub.rtl120.bpl__Sysutils_GUIDToString_qqrrx5_GUID
mov ecx, dword [ebp - 0x2a0]
lea eax, [ebp - 0x29c]
mov edx, 0x63b184
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x29c]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x14]
xor edx, edx
push edx
push eax
lea eax, [ebp - 0x2a8]
call sub.rtl120.bpl__Sysutils_IntToStr_qqrj
mov ecx, dword [ebp - 0x2a8]
lea eax, [ebp - 0x2a4]
mov edx, 0x63b1bc
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x2a4]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
lea edx, [ebp - 0x2ac]
mov eax, dword [ebp - 0x14]
add eax, 0x18
call sub.rtl120.bpl__Sysutils_GUIDToString_qqrrx5_GUID
mov eax, dword [ebp - 0x2ac]
mov edx, 0x63b1ec
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
jne 0x63aa62
mov edx, 0x63b248
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
push 0x7530
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x28]
push eax
mov eax, dword [ebp - 0xc]
push eax
call dword [ebp - 0x38]
mov ebx, eax
lea eax, [ebp - 0x2b4]
mov edx, dword [ebp - 0x14]
mov edx, dword [edx + 0x28]
mov edx, dword [edx + 0x10]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov ecx, dword [ebp - 0x2b4]
lea eax, [ebp - 0x2b0]
mov edx, 0x63b2a4
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x2b0]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
lea eax, [ebp - 0x2bc]
mov edx, dword [ebp - 0x14]
mov edx, dword [edx + 0x28]
mov edx, dword [edx + 0x14]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov ecx, dword [ebp - 0x2bc]
lea eax, [ebp - 0x2b8]
mov edx, 0x63b2d0
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x2b8]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
lea edx, [ebp - 0x2c4]
mov eax, dword [ebp - 0x14]
mov eax, dword [eax + 0x28]
call sub.rtl120.bpl__Sysutils_GUIDToString_qqrrx5_GUID
mov ecx, dword [ebp - 0x2c4]
lea eax, [ebp - 0x2c0]
mov edx, 0x63b300
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x2c0]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x63aa6d
mov edx, 0x63b31c
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
test ebx, ebx
jne 0x63aab8
mov byte [ebp - 5], 1
mov edx, 0x63b374
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
lea eax, [ebp - 0x2cc]
mov edx, dword [ebp - 0x14]
mov edx, dword [edx + 0x28]
mov edx, dword [edx + 0x14]
call sub.rtl120.bpl__System__UStrFromPWChar_qqrr20System_UnicodeStringpb
mov ecx, dword [ebp - 0x2cc]
lea eax, [ebp - 0x2c8]
mov edx, 0x63b2d0
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x2c8]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x63aaf8
cmp ebx, 0x80070006
jne 0x63aacd
mov edx, 0x63b3d4
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x63aaf8
cmp ebx, 0x102
jne 0x63aae2
mov edx, 0x63b3f4
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x63aaf8
mov edx, 0x63b41c
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
mov edx, 0x63b374
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x63ab2e
cmp ebx, 0x102
jne 0x63ab23
mov edx, 0x63b434
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x63ab2e
mov edx, 0x63b484
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x63ab4a
mov eax, dword [ebp - 0xc]
push eax
call dword [ebp - 0x3c]
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x63ab8a
xor eax, eax
push ebp
push 0x63ab7b
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 0x1c]
call sub.rtl120.bpl__System__FreeMem_qqrpv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x63ab82
ret
inc dword [ebp - 0x18]
dec dword [ebp - 0x40]
jne 0x63a6c1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x63abc4
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x24]
call sub.rtl120.bpl__System_TObject_Free_qqrv
mov eax, dword [ebp - 0x28]
push eax
call sub.kernel32.dll_FreeLibrary
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x63ac01
lea eax, [ebp - 0x2cc]
mov edx, 0x17
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x260]
mov edx, 5
call sub.rtl120.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 4]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret