Function at 0x68827c
Capabilities:
Get common file path

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x59
push 0
push 0
dec ecx
jne 0x688284
push ecx
push ebx
push esi
push edi
xor eax, eax
push ebp
push 0x688996
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.006881fc
mov edx, dword [ebp - 0x250]
lea eax, [ebp - 4]
mov ecx, 0x6889b8
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 0x6882e4
mov eax, dword [ebp - 4]
call sub.rtl120.bpl__Sysutils_ForceDirectories_qqr20System_UnicodeString
push 0x6889f8
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 0x688959
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x688a10
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401b80
mov dword [ebp - 0x30], eax
push 0x688a34
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401b80
mov dword [ebp - 0x34], eax
push 0x688a5c
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401b80
mov dword [ebp - 0x38], eax
push 0x688a80
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401b80
mov dword [ebp - 0x3c], eax
push 0x688a10
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401b80
test eax, eax
je 0x6883a9
push 0x688a34
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401b80
test eax, eax
je 0x6883a9
push 0x688a5c
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401b80
test eax, eax
je 0x6883a9
push 0x688a80
mov eax, dword [ebp - 0x28]
push eax
call fcn.00401b80
test eax, eax
jne 0x6883be
mov edx, 0x688ab0
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
call sub.rtl120.bpl__System__TryFinallyExit_qqrv
jmp 0x688960
mov edx, 0x80000002
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__Registry_TRegistry_SetRootKey_qqrp6HKEY__
mov edx, 0x688ae8
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, 0x688b74
call sub.rtl120.bpl__System__UStrCat_qqrr20System_UnicodeStringx20System_UnicodeString
mov eax, dword [ebp - 0x254]
push eax
push 0x688b9c
push dword [ebp - 4]
push 0x688bb4
push 0x688bec
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.00687fec
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 0x688932
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, 0x688c9c
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, 0x688d28
mov eax, dword [ebp - 0x20]
call sub.rtl120.bpl__Registry_TRegistry_ValueExists_qqrx20System_UnicodeString
test al, al
je 0x688926
mov edx, 0x688d5c
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 0x68891f
push dword fs:[eax]
mov dword fs:[eax], esp
mov esi, 1
mov ebx, 0x688da0
mov eax, 0x688dbc
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 0x6888e6
xor eax, eax
push ebp
push 0x6888df
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 0x6885af
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, 0x688dd4
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
mov edx, 0x688dfc
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 0x688926
cmp ebx, 0x80070006
jne 0x6885c7
mov edx, 0x688e1c
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x6888ca
test ebx, ebx
jne 0x6888aa
xor eax, eax
push ebp
push 0x68889e
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, 0x688e64
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, 0x688e94
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, 0x688ec0
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, 0x688ef4
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, 0x688f20
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, 0x688f58
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, 0x688f88
call sub.rtl120.bpl__Sysutils_SameText_qqrx20System_UnicodeStringt1
test al, al
jne 0x6887fe
mov edx, 0x688fe4
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, 0x689040
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, 0x68906c
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, 0x68909c
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x2c0]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x688809
mov edx, 0x6890b8
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
test ebx, ebx
jne 0x688854
mov byte [ebp - 5], 1
mov edx, 0x689110
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, 0x68906c
call sub.rtl120.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x2c8]
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x688894
cmp ebx, 0x80070006
jne 0x688869
mov edx, 0x689170
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x688894
cmp ebx, 0x102
jne 0x68887e
mov edx, 0x689190
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x688894
mov edx, 0x6891b8
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
mov edx, 0x689110
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6888ca
cmp ebx, 0x102
jne 0x6888bf
mov edx, 0x6891d0
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
jmp 0x6888ca
mov edx, 0x689220
mov eax, dword [ebp + 0xc]
call dword [ebp + 8]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6888e6
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 0x688926
xor eax, eax
push ebp
push 0x688917
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 0x68891e
ret
inc dword [ebp - 0x18]
dec dword [ebp - 0x40]
jne 0x68845d
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x688960
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 0x68899d
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