Function at 0x6636e0
Capabilities:
Create directory

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0x3d
push 0
push 0
dec ecx
jne 0x6636e9
push ecx
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 8], ecx
mov ebx, eax
mov eax, dword [ebp - 8]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
mov eax, dword [ebp + 8]
call sub.rtl70.bpl__System__LStrAddRef_qqrpv
lea eax, [ebp - 0x190]
mov edx, dword [sym.imp.rtl70.bpl___xp_19Sysutils_TSearchRec]
call sub.rtl70.bpl__System__InitializeRecord_qqrpvt1
xor eax, eax
push ebp
push 0x663d0d
push dword fs:[eax]
mov dword fs:[eax], esp
push 0x663d20
push 0x1f
push 0x400
call sub.kernel32.dll_SetLocaleInfoA
push 0x663d2c
push 0x1003
push 0x400
call sub.kernel32.dll_SetLocaleInfoA
lea eax, [ebp - 0x34]
push eax
push 0xa
push 2
push 0
push 0
push 0x1a
push 0xffff
call sub.user32.dll_SendMessageTimeoutA
mov ecx, dword [ebp + 8]
mov edx, dword [ebp - 8]
mov eax, ebx
call sym.P_Interface.bpl__Fpinterface_TFPINTERFACE_RegAnyWhereDriver_qqr17System_AnsiStringt1
xor ecx, ecx
mov dl, 1
mov eax, dword [sym.imp.xmlrtl70.bpl__Xmldoc_TXMLDocument_]
call sub.xmlrtl70.bpl__Xmldoc_TXMLDocument__bctr_qqrp18Classes_TComponent
mov edx, eax
test edx, edx
je 0x66378f
sub edx, 0xffffff34
lea eax, [ebp - 0x10]
call sub.rtl70.bpl__System__IntfCopy_qqrr45System__DelphiInterface_t17System_IInterface_x45System__DelphiInterface_t17System_IInter
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Registry_TRegistry_]
call sub.rtl70.bpl__Registry_TRegistry__bctr_qqrv
mov dword [ebp - 0x2c], eax
mov dl, 1
mov eax, dword [sym.imp.rtl70.bpl__Classes_TStringList_]
call sub.rtl70.bpl__System_TObject__bctr_qqrv
mov dword [ebp - 0x38], eax
xor eax, eax
push ebp
push 0x663c43
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, 0x80000002
mov eax, dword [ebp - 0x2c]
call sub.rtl70.bpl__Registry_TRegistry_SetRootKey_qqrui
mov cl, 1
mov edx, 0x663d40
mov eax, dword [ebp - 0x2c]
call sub.rtl70.bpl__Registry_TRegistry_OpenKey_qqrx17System_AnsiStringo
lea ecx, [ebp - 0x30]
mov edx, 0x663d58
mov eax, dword [ebp - 0x2c]
call sub.rtl70.bpl__Registry_TRegistry_ReadString_qqrx17System_AnsiString
lea edx, [ebp - 0x194]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x194]
mov edx, 0x663d68
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x194]
lea ecx, [ebp - 0x190]
mov edx, 0x3f
call sub.rtl70.bpl__Sysutils_FindFirst_qqrx17System_AnsiStringir19Sysutils_TSearchRec
test eax, eax
jne 0x6638e9
lea eax, [ebp - 0x28]
push eax
lea eax, [ebp - 0x164]
push eax
call sub.kernel32.dll_FileTimeToLocalFileTime
lea eax, [ebp - 4]
push eax
lea eax, [ebp - 2]
push eax
lea eax, [ebp - 0x28]
push eax
call sub.kernel32.dll_FileTimeToDosDateTime
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__Sysutils_FileDateToDateTime_qqri
fstp qword [ebp - 0x20]
wait
push dword [ebp - 0x1c]
push dword [ebp - 0x20]
lea edx, [ebp - 0x198]
mov eax, 0x663d80
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
mov edx, dword [ebp - 0x198]
mov eax, dword [ebp - 0x30]
call sub.rtl70.bpl__System__LStrCmp_qqrv
je 0x6638c0
push dword [ebp - 0x1c]
push dword [ebp - 0x20]
lea edx, [ebp - 0x1a0]
mov eax, 0x663d80
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
mov ecx, dword [ebp - 0x1a0]
lea eax, [ebp - 0x19c]
mov edx, 0x663d98
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov edx, dword [ebp - 0x19c]
xor ecx, ecx
mov eax, 0x663e60
call sym.P_Interface.bpl__Publicutil_MessageBox_qqr17System_AnsiStringt1o
push dword [ebp - 0x1c]
push dword [ebp - 0x20]
lea edx, [ebp - 0x1a4]
mov eax, 0x663d80
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
mov ecx, dword [ebp - 0x1a4]
mov edx, 0x663d58
mov eax, dword [ebp - 0x2c]
call sub.rtl70.bpl__Registry_TRegistry_WriteString_qqrx17System_AnsiStringt1
lea edx, [ebp - 0x1a8]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
mov edx, dword [ebp - 0x1a8]
lea eax, [ebp - 0xc]
mov ecx, 0x663e78
call sub.rtl70.bpl__System__LStrCat3_qqrv
mov eax, dword [ebp - 0xc]
call sub.rtl70.bpl__Sysutils_FileExists_qqrx17System_AnsiString
test al, al
je 0x663c1d
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x68]
lea edx, [ebp - 0x1b0]
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov edx, dword [ebp - 0x1b0]
lea eax, [ebp - 0x1ac]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x1ac]
mov eax, 0x663e88
call sub.PCommonUtil.bpl__Ncutil_mypos_qqr17System_WideStringt1
test eax, eax
jle 0x6639a1
push 1
lea eax, [ebp - 0x1b4]
push eax
lea edx, [ebp - 0x1b8]
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x1c]
mov eax, dword [ebp - 0x1b8]
mov ecx, 0x663e98
mov edx, 0x663eac
call sub.PCommonUtil.bpl__Ncutil_ReplaceStr_qqr17System_AnsiStringt1t1o
mov edx, dword [ebp - 0x1b4]
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x2c]
mov edx, dword [ebp - 0xc]
mov eax, dword [ebp - 0x38]
mov ecx, dword [eax]
call dword [ecx + 0x74]
lea eax, [ebp - 0x1bc]
mov edx, dword [ebp - 0xc]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x1bc]
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x94]
mov dl, 1
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x4c]
mov edx, 0x663eb8
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x58]
lea edx, [ebp - 0x14]
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0x18]
xor edx, edx
mov eax, dword [ebp - 0x14]
call sym.P_Interface.bpl__Publicutil_readxml_qqr44System__DelphiInterface_t16Xmlintf_IXMLNode_17System_AnsiString
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_TreeName]
mov eax, dword [eax]
mov edx, dword [eax]
call dword [edx + 0x90]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_TreeName]
mov eax, dword [eax]
mov edx, dword [eax]
call dword [edx + 0x14]
mov esi, eax
dec esi
test esi, esi
jl 0x663b06
inc esi
xor ebx, ebx
lea eax, [ebp - 0x1c0]
push eax
lea ecx, [ebp - 0x1c8]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_TreeName]
mov eax, dword [eax]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0xc]
mov edx, dword [ebp - 0x1c8]
lea eax, [ebp - 0x1c4]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x1c4]
mov eax, 0x663ecc
call sub.PCommonUtil.bpl__Ncutil_mypos_qqr17System_WideStringt1
inc eax
push eax
lea ecx, [ebp - 0x1cc]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_TreeName]
mov eax, dword [eax]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x1cc]
xor ecx, ecx
pop edx
call sub.PCommonUtil.bpl__Ncutil_copystr_qqr17System_AnsiStringii
mov edx, dword [ebp - 0x1c0]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_TreeValue]
mov eax, dword [eax]
mov ecx, dword [eax]
call dword [ecx + 0x38]
lea eax, [ebp - 0x1d0]
push eax
lea ecx, [ebp - 0x1d8]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_TreeName]
mov eax, dword [eax]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0xc]
mov edx, dword [ebp - 0x1d8]
lea eax, [ebp - 0x1d4]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov edx, dword [ebp - 0x1d4]
mov eax, 0x663ecc
call sub.PCommonUtil.bpl__Ncutil_mypos_qqr17System_WideStringt1
dec eax
push eax
lea ecx, [ebp - 0x1dc]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_TreeName]
mov eax, dword [eax]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0xc]
mov eax, dword [ebp - 0x1dc]
mov edx, 1
pop ecx
call sub.rtl70.bpl__System__LStrCopy_qqrv
mov ecx, dword [ebp - 0x1d0]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_TreeName]
mov eax, dword [eax]
mov edx, ebx
mov edi, dword [eax]
call dword [edi + 0x20]
inc ebx
dec esi
jne 0x663a15
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_TreeName]
mov eax, dword [eax]
mov dl, 1
call sub.rtl70.bpl__Classes_TStringList_SetSorted_qqro
push 0
lea edx, [ebp - 0x1e0]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x1e0]
mov edx, 0x663ed8
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x1e0]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CreateDirectoryA
push 0
lea edx, [ebp - 0x1e4]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x1e4]
mov edx, 0x663eec
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x1e4]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CreateDirectoryA
push 0
lea edx, [ebp - 0x1e8]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x1e8]
mov edx, 0x663efc
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x1e8]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CreateDirectoryA
push 0
lea edx, [ebp - 0x1ec]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x1ec]
mov edx, 0x663f0c
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x1ec]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CreateDirectoryA
push 0
lea edx, [ebp - 0x1f0]
mov eax, dword [sym.P_Interface.bpl__Publicutil_GL_ExeName]
mov eax, dword [eax]
call sub.rtl70.bpl__Sysutils_ExtractFilePath_qqrx17System_AnsiString
lea eax, [ebp - 0x1f0]
mov edx, 0x663f18
call sub.rtl70.bpl__System__LStrCat_qqrv
mov eax, dword [ebp - 0x1f0]
call sub.rtl70.bpl__System__LStrToPChar_qqrx17System_AnsiString
push eax
call sub.kernel32.dll_CreateDirectoryA
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x663c4a
mov eax, dword [ebp - 0x38]
call sub.rtl70.bpl__System_TObject_Free_qqrv
lea eax, [ebp - 0x10]
call sub.rtl70.bpl__System__IntfClear_qqrr45System__DelphiInterface_t17System_IInterface_
mov eax, dword [ebp - 0x2c]
call sub.rtl70.bpl__System_TObject_Free_qqrv
ret