This repository is a mirror!

        stc
        pop     esi ecx
        return
endp


proc StrCompFilename, .hName1, .hName2
.file1 rb 1024
.file2 rb 1024
.name  dd ?
begin
        pushad

        lea     esi, [.file1]
        lea     edi, [.file2]
        stdcall GetFullPathNameUtf8, [.hName1]
        mov     [.hName1], eax

        stdcall StrPtr, [.hName1]
        lea     edx, [.name]
        stdcall StrPtr, eax
        mov     esi, eax
        invoke GetFullPathNameA, eax, 1024, esi, edx
        cmp    eax, 1023
        mov     ecx, [esi+string.len]
        ja     .not_equal
        test   eax, eax
        jz     .not_equal

        stdcall GetFullPathNameUtf8, [.hName2]
        mov     ebx, eax
        mov     [.hName2], eax

        stdcall StrPtr, [.hName2]
        lea     edx, [.name]
        stdcall StrPtr, eax
        mov     edi, eax
        invoke GetFullPathNameA, eax, 1024, edi, edx
        cmp    eax, 1023
        ja     .not_equal
        test   eax, eax
        jz     .not_equal

        cmp     eax, ebx
        cmp     ecx, [edi+string.len]
        jne     .not_equal

        mov     ecx, ebx
        jecxz   .equal

.loop:
        mov     al, [esi]
        mov     ah, [edi]
        lea     esi, [esi+1]
        lea     edi, [edi+1]