GetLastError()数字_转换为_文字

1、具体参数 可参看 http://blog.csdn.net/hongweigg/article/details/6821536 或 其它文章 或 MSDN

2、VC6 测试代码：

#include <stdio.h>

#include <windows.h>

void main()

{

    LPTSTR lpMsgBuf;

    //DWORD nErrno = GetLastError();

    DWORD nErrno = ;

    FormatMessage(

        FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,

        NULL,

        nErrno,

        MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),

        (LPTSTR)&lpMsgBuf,

        ,

        NULL);

    MessageBox(NULL, (LPCTSTR)lpMsgBuf, TEXT("NamedPipe Error"), MB_OK | MB_ICONINFORMATION );

    LocalFree(lpMsgBuf);

}

3、Delphi7 测试代码:

//#define MAKELANGID(p, s)       ((((WORD  )(s)) << 10) | (WORD  )(p))

function MAKELANGID(_p, _s :word) :DWORD;

begin

  Result := (_s shl ) or (_p);

end;

//#define LANG_NEUTRAL                     0x00

//#define SUBLANG_DEFAULT                  0x01    // user default

{$O-}

function ErrorNo2Str(_dwErrNo :DWORD):string;

const

  LANG_NEUTRAL = $;

  SUBLANG_DEFAULT = $;

var pcMsgBuf :PChar;

    buf :array[..] of Char;

begin

//function FormatMessage(

//  dwFlags: DWORD;

//  lpSource: Pointer;

//  dwMessageId: DWORD;

//  dwLanguageId: DWORD;

//  lpBuffer: PChar;

//  nSize: DWORD;

//  Arguments: Pointer): DWORD; stdcall;

//{$EXTERNALSYM FormatMessage}

{

  Windows.FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_IGNORE_INSERTS,

    0,

    _dwErrNo,

    MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),

    pcMsgBuf,

    0,

    nil);

    Result := pcMsgBuf;

    LocalFree(DWORD(pcMsgBuf));

}

// *** 使用上面的参数方式(OS帮我们申请字符串缓冲区空间)，始终不对...连断点都下不了...于是，使用下面的方式... ***

  ZeroMemory(@buf[], Length(buf));

  Windows.FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_IGNORE_INSERTS,

    ,

    _dwErrNo,

    MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),

    buf,

    Length(buf),

    nil);

  Result := buf;

end;

{$O+}

procedure TForm1.Button1Click(Sender: TObject);

var dwErrNo :DWORD;

    str :string;

begin

  dwErrNo := ;

  str := ErrorNo2Str(dwErrNo);

  Memo1.Lines.Add(str);

end;

4、

5、