+- Sinisterly (https://sinister.li)
+-- Forum: Coding (https://sinister.li/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.li/Forum-Visual-Basic-NET-Framework)
+--- Thread: [[vb6] ThisExe unicode (/Thread-vb6-ThisExe-unicode)
[[vb6] ThisExe unicode - sylar - 08-24-2012
I modded ansi version to unicode / App.Path & "\" & App.EXEName & ".exe" replace
Code:
Function NewThisExe() As String
Dim iBuff(519) As Byte
Call Invoke("kernel32", "GetModuleFileNameW", 0, VarPtr(iBuff(0)), 519)
NewThisExe = iBuff
End Function