EnableExplicit Procedure.s FormatMessage(ErrorNumber.l) Protected *Buffer, len, result.s len = FormatMessage_(#FORMAT_MESSAGE_ALLOCATE_BUFFER|#FORMAT_MESSAGE_FROM_SYSTEM,0,ErrorNumber,0,@*Buffer,0,0) If len result = PeekS(*Buffer, len - 2) LocalFree_(*Buffer) ProcedureReturn result Else ProcedureReturn "Errorcode: " + Hex(ErrorNumber) EndIf EndProcedure MessageRequester("",FormatMessage(32),0)