Function at 0x701b60
Capabilities:
Delete file

Disassembly:
push ebp
mov ebp, esp
add esp, 0xfffffd68
push ebx
push esi
push edi
xor edx, edx
mov dword [ebp - 0x294], edx
mov dword [ebp - 0x298], edx
mov dword [ebp - 0x290], edx
mov dword [ebp - 0x28c], edx
mov dword [ebp - 0x18], edx
mov dword [ebp - 0x14], edx
mov dword [ebp - 0x10], edx
mov dword [ebp - 0xc], edx
mov dword [ebp - 4], eax
mov eax, dword [ebp - 4]
call sub.rtl260.bpl__System__UStrAddRef_qqrpv
lea eax, [ebp - 0x288]
mov edx, dword [sym.imp.rtl260.bpl___xp_26System_Sysutils_TSearchRec]
call sub.rtl260.bpl__System__InitializeRecord_qqrpvt1
xor eax, eax
push ebp
push 0x701f1a
push dword fs:[eax]
mov dword fs:[eax], esp
cmp dword [ebp - 4], 0
jne 0x701bda
lea ecx, [ebp - 0x288]
mov edx, 0x1ff
mov eax, 0x701f34
call sub.rtl260.bpl__System_Sysutils_FindFirst_qqrx20System_UnicodeStringir26System_Sysutils_TSearchRec
mov dword [ebp - 8], eax
cmp dword [ebp - 4], 0
jne 0x701c5f
cmp dword [ebp - 8], 0
jne 0x701c5f
mov eax, dword [ebp - 0x278]
and eax, 0x10
cmp eax, 0x10
je 0x701c4b
mov eax, dword [ebp - 0x278]
and eax, 8
cmp eax, 8
je 0x701c4b
xor eax, eax
push ebp
push 0x701c41
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0x28c]
mov ecx, dword [ebp - 0x274]
mov edx, 0x701f6c
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x28c]
call sub.rtl260.bpl__System__UStrToPWChar_qqrx20System_UnicodeString
push eax
call sub.kernel32.dll_DeleteFileW
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x701c4b
lea eax, [ebp - 0x288]
call sub.rtl260.bpl__System_Sysutils_FindNext_qqrr26System_Sysutils_TSearchRec
mov dword [ebp - 8], eax
cmp dword [ebp - 8], 0
je 0x701be6
lea edx, [ebp - 0x290]
mov eax, 0x701f90
call sub.rtl260.bpl__System_Win_Comobj_CreateOleObject_qqrx20System_UnicodeString
mov edx, dword [ebp - 0x290]
lea eax, [ebp - 0x18]
call sub.rtl260.bpl__System_Variants__VarFromDisp_qqrr8TVarDatax35System__DelphiInterface_9IDispatch_
cmp dword [ebp - 4], 0
jne 0x701d13
mov dl, 1
mov eax, 0x701fc4
call sub.rtl260.bpl__System_Sysutils_FileExists_qqrx20System_UnicodeStringo
test al, al
jne 0x701cb6
push 0x701fc4
push 0x702008
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
jmp 0x701d2f
push 0x702034
call sub.rtl260.bpl__System_Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x298]
mov eax, 0x702070
call sub.rtl260.bpl__System_Sysutils_FormatDateTime_qqrx20System_UnicodeString16System_TDateTime
push dword [ebp - 0x298]
push 0x7020a0
lea eax, [ebp - 0x294]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov eax, dword [ebp - 0x294]
push eax
push 0x702008
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
jmp 0x701d2f
lea eax, [ebp - 4]
push eax
push 0x702008
push 0x7020ac
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x7020c8
push 0x7020dc
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x7020c8
push 0x70210c
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x7020c8
push 0x70213c
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x7020c8
push 0x702168
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x7020c8
push 0x702180
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x7020c8
push 0x7021b8
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x7020c8
push 0x7021f4
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
cmp dword [ebp - 4], 0
jne 0x701e1f
push 0x702218
push 0x70222c
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
jmp 0x701e3c
push 0x7020c8
push 0x70222c
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x702248
push 0x702260
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x702248
push 0x702284
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x7020c8
push 0x7022ac
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0x7022d8
push 0x7022f8
push 0x702018
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x14
push 0xffffffffffffffff
push 0x702308
lea eax, [ebp - 0x18]
push eax
push 0
call sub.rtl260.bpl__System_Variants__DispInvoke_qp8TVarDatarx8TVarDatap16System_TCallDescpv
add esp, 0x10
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x701f21
lea eax, [ebp - 0x298]
mov edx, 2
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x290]
call sub.rtl260.bpl__System__IntfClear_qqrr44System__DelphiInterface_17System_IInterface_
lea eax, [ebp - 0x28c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x288]
mov edx, dword [sym.imp.rtl260.bpl___xp_26System_Sysutils_TSearchRec]
call sub.rtl260.bpl__System__FinalizeRecord_qqrpvt1
lea eax, [ebp - 0x18]
call sub.rtl260.bpl__System_Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 4]
call sub.rtl260.bpl__System__UStrClr_qqrpv
ret