Function at 0x72e730
Capabilities:
Get file system object information

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffd20
push ebx
push esi
push edi
mov dword [ebp - 0xc], ecx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
mov ebx, dword [ebp + 0x18]
mov eax, dword [ebp + 0x20]
call sub.rtl120.bpl__System__UStrAddRef_qqrpv
xor eax, eax
push ebp
push 0x72e946
push dword fs:[eax]
mov dword fs:[eax], esp
lea edx, [ebp - 0x10]
mov eax, dword [ebp + 0x20]
call sub.rtl120.bpl__System__ValLong_qqrx20System_UnicodeStringri
mov esi, eax
lea eax, [ebp - 0x2d0]
xor ecx, ecx
mov edx, 0x2b4
call sub.rtl120.bpl__System__FillChar_qqrpvib
cmp dword [ebp + 0x20], 0
je 0x72e7eb
cmp dword [ebp - 0x10], 0
je 0x72e7eb
mov eax, dword [ebp + 0x20]
call sub.rtl120.bpl__Sysutils_FileExists_qqrx20System_UnicodeString
test al, al
jne 0x72e7a1
mov eax, dword [ebp + 0x20]
call sub.rtl120.bpl__Sysutils_DirectoryExists_qqrx20System_UnicodeString
test al, al
je 0x72e7c4
push 0x4000
push 0x2b4
lea eax, [ebp - 0x2d0]
push eax
push 0
mov eax, dword [ebp + 0x20]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.shell32.dll_SHGetFileInfoW
jmp 0x72e7e5
push 0x4010
push 0x2b4
lea eax, [ebp - 0x2d0]
push eax
push 0
mov eax, dword [ebp + 0x20]
call sub.rtl120.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.shell32.dll_SHGetFileInfoW
mov esi, dword [ebp - 0x2cc]
cmp byte [ebp + 0x1c], 0
je 0x72e812
push 0x4000
push 0x2b4
lea eax, [ebp - 0x2d0]
push eax
push 0
push 0x72e958
call sub.shell32.dll_SHGetFileInfoW
mov edi, eax
jmp 0x72e831
push 0x4001
push 0x2b4
lea eax, [ebp - 0x2d0]
push eax
push 0
push 0x72e958
call sub.shell32.dll_SHGetFileInfoW
mov edi, eax
lea eax, [ebp - 0x18]
push eax
lea eax, [ebp - 0x14]
push eax
push edi
call sub.comctl32.dll_ImageList_GetIconSize
mov ecx, dword [ebp + 8]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x14]
call sub.rtl120.bpl__Types_Point_qqrii
test bl, bl
je 0x72e871
cmp byte [ebp + 0x14], 0
jne 0x72e871
push 1
mov eax, dword [ebp - 0xc]
push eax
mov eax, dword [ebp - 8]
push eax
mov eax, dword [ebp - 4]
call sub.vcl120.bpl__Graphics_TCanvas_GetHandle_qqrv
push eax
push esi
push edi
call sub.comctl32.dll_ImageList_Draw
test byte [ebp + 0x14], bl
je 0x72e930
mov dl, 1
mov eax, dword [sym.imp.vcl120.bpl__Graphics_TBitmap_]
call sub.vcl120.bpl__Graphics_TBitmap__bctr_qqrv
mov dword [ebp - 0x1c], eax
xor eax, eax
push ebp
push 0x72e929
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [ebp - 0x14]
mov eax, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x44]
mov edx, dword [ebp - 0x18]
mov eax, dword [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x38]
push 0
push 0
push 0
mov eax, dword [ebp - 0x1c]
call sub.vcl120.bpl__Graphics_TBitmap_GetCanvas_qqrv
call sub.vcl120.bpl__Graphics_TCanvas_GetHandle_qqrv
push eax
push esi
push edi
call sub.comctl32.dll_ImageList_Draw
mov eax, dword [ebp - 8]
mov dword [ebp - 0x2e0], eax
mov eax, dword [ebp - 0xc]
mov dword [ebp - 0x2dc], eax
fild dword [ebp - 0x14]
fmul qword [ebp + 0xc]
call sub.rtl120.bpl__System__ROUND_qqrv
add eax, dword [ebp - 8]
mov dword [ebp - 0x2d8], eax
fild dword [ebp - 0x18]
fmul qword [ebp + 0xc]
call sub.rtl120.bpl__System__ROUND_qqrv
add eax, dword [ebp - 0xc]
mov dword [ebp - 0x2d4], eax
mov ecx, dword [ebp - 0x1c]
lea edx, [ebp - 0x2e0]
mov eax, dword [ebp - 4]
call fcn.0072e654
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x72e930
mov eax, dword [ebp - 0x1c]
call sub.rtl120.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x72e94d
lea eax, [ebp + 0x20]
call sub.rtl120.bpl__System__UStrClr_qqrpv
ret