| 1 | #include <WinAPI.au3> |
|---|
| 2 | |
|---|
| 3 | ;Global Const $__WINAPCONSTANT_FORMAT_MESSAGE_FROM_SYSTEM = 0x1000 |
|---|
| 4 | Global Const $__WINAPCONSTANT_FORMAT_MESSAGE_ALLOCATE_BUFFER = 0x100 |
|---|
| 5 | |
|---|
| 6 | Func _WinAPI_GetLastErrorMessageW() |
|---|
| 7 | Local Const $iFlags = BitOR($__WINAPCONSTANT_FORMAT_MESSAGE_ALLOCATE_BUFFER, $__WINAPCONSTANT_FORMAT_MESSAGE_FROM_SYSTEM) |
|---|
| 8 | Local $tBufferPtr = DllStructCreate("ptr") |
|---|
| 9 | |
|---|
| 10 | Local $aResult = DllCall("Kernel32.dll", "int", "FormatMessageW", _ |
|---|
| 11 | "dword", $iFlags, "ptr", 0, "dword", _WinAPI_GetLastError(), "dword", 0, _ |
|---|
| 12 | "ptr", DllStructGetPtr($tBufferPtr), "dword", 0, "ptr", 0) |
|---|
| 13 | If @error Then Return SetError(@error, 0, "") |
|---|
| 14 | |
|---|
| 15 | Local $charCount = $aResult[0], $Text = "" |
|---|
| 16 | Local $tBuffer, $pBuffer = DllStructGetData($tBufferPtr, 1) |
|---|
| 17 | If $pBuffer Then |
|---|
| 18 | If $charCount > 0 Then |
|---|
| 19 | $tBuffer = DllStructCreate("wchar[" & ($charCount+1) & "]", $pBuffer) |
|---|
| 20 | $Text = DllStructGetData($tBuffer, 1) |
|---|
| 21 | EndIf |
|---|
| 22 | _WinAPI_LocalFree($pBuffer) |
|---|
| 23 | EndIf |
|---|
| 24 | |
|---|
| 25 | Return $Text |
|---|
| 26 | EndFunc |
|---|
