With much toil. :P
This,
InvokeEx CreateFont,9,0,0,0,600,0,0,0,DEFAULT_CHARSET, \
OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS, \
PROOF_QUALITY,DEFAULT_PITCH,"fixedsys"
mov hFont, rax
Becomes,
mov rcx, 9
mov rdx, 0x0
mov r8, 0x0
mov r9, 0x0
mov qword ptr [rsp+0x20], 0x258
mov qword ptr [rsp+0x28], 0x0
mov qword ptr [rsp+0x30], 0x0
mov qword ptr [rsp+0x38], 0x0
mov qword ptr [rsp+0x40], 0x1
mov qword ptr [rsp+0x48], 0x0
mov qword ptr [rsp+0x50], 0x0
mov qword ptr [rsp+0x58], 2
mov qword ptr [rsp+0x60], 0x0
mov rax, qword ptr [0x140003069]
mov qword ptr [rsp+0x68], rax
call qword ptr [CreateFontA]
mov qword ptr [rbp-0x50], rax
One more thing to get working, complex addressing mode at the right size.