Function at 0x563ec0
Capabilities:
Get common file path

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffdc4
push ebx
xor ebx, ebx
mov dword [ebp - 0x23c], ebx
mov dword [ebp - 0x238], ebx
mov dword [ebp - 0x234], ebx
mov dword [ebp - 0x10], ebx
mov dword [ebp - 0x14], ebx
mov dword [ebp - 0x18], ebx
mov dword [ebp - 0x1c], ebx
mov dword [ebp - 0xc], ebx
mov dword [ebp - 8], ecx
mov dword [ebp - 4], edx
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 0x10]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 0xc]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
mov eax, dword [ebp + 8]
call sub.rtl140.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x5640e9
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x24]
push eax
push 0
push 0
call sub.shell32.dll_SHGetSpecialFolderLocation
lea eax, [ebp - 0x22e]
push eax
mov eax, dword [ebp - 0x24]
push eax
call sub.shell32.dll_SHGetPathFromIDListW
lea eax, [ebp - 0xc]
lea edx, [ebp - 0x22e]
mov ecx, 0x105
call sub.rtl140.bpl__System__UStrFromWArray_qqrr20System_UnicodeStringpbi
push dword [ebp - 0xc]
push 0x564108
lea ecx, [ebp - 0x234]
mov edx, 0x564118
mov eax, dword [ebp + 0x10]
call sub.rtl140.bpl__Sysutils_ChangeFileExt_qqrx20System_UnicodeStringt1
push dword [ebp - 0x234]
lea eax, [ebp - 0xc]
mov edx, 3
call sub.rtl140.bpl__System__UStrCatN_qqrv
push 0
call sub.ole32.dll_OleInitialize
xor eax, eax
push ebp
push 0x56408a
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x10]
mov eax, dword [0x9f0a6c]
call sub.rtl140.bpl__Comobj_CreateComObject_qqrrx5_GUID
lea eax, [ebp - 0x14]
mov edx, dword [ebp - 0x10]
mov ecx, 0x564124
call sub.rtl140.bpl__System__IntfCast_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
lea eax, [ebp - 0x18]
mov edx, dword [ebp - 0x10]
mov ecx, 0x564134
call sub.rtl140.bpl__System__IntfCast_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInte
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 0x14]
push eax
mov eax, dword [eax]
call dword [eax + 0x50]
mov eax, dword [ebp - 8]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 0x14]
push eax
mov eax, dword [eax]
call dword [eax + 0x2c]
lea edx, [ebp - 0x238]
mov eax, dword [ebp - 4]
call sub.rtl140.bpl__Sysutils_ExtractFilePath_qqrx20System_UnicodeString
mov eax, dword [ebp - 0x238]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 0x14]
push eax
mov eax, dword [eax]
call dword [eax + 0x24]
mov eax, dword [ebp + 0xc]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 0x14]
push eax
mov eax, dword [eax]
call dword [eax + 0x1c]
cmp dword [ebp + 8], 0
je 0x56403c
push 0
mov eax, dword [ebp + 8]
call sub.rtl140.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
mov eax, dword [ebp - 0x14]
push eax
mov eax, dword [eax]
call dword [eax + 0x44]
lea eax, [ebp - 0x1c]
mov edx, dword [ebp - 0xc]
call sub.rtl140.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
push 0
mov eax, dword [ebp - 0x1c]
call sub.rtl140.bpl__System__WStrToPWChar_qqrx17System_WideString
push eax
mov eax, dword [ebp - 0x18]
push eax
mov eax, dword [eax]
call dword [eax + 0x18]
lea eax, [ebp - 0x23c]
mov edx, dword [ebp - 0x1c]
call sub.rtl140.bpl__System__UStrFromWStr_qqrr20System_UnicodeStringx17System_WideString
mov eax, dword [ebp - 0x23c]
call sub.rtl140.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
mov byte [ebp - 0x1d], al
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x564091
call sub.ole32.dll_OleUninitialize
ret