Cerebrum,
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include "lm.h"
#include "tchar.h"
#pragma comment(lib, "netapi32.lib")
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
DWORD dwLoginLen = 256UL;
TCHAR tUserLogin[256] = {0};
if (::GetUserName(tUserLogin, &dwLoginLen))
{
BYTE* pbUserInfo = NULL;
if (::NetUserGetInfo(NULL, tUserLogin, 10UL, &pbUserInfo) == NERR_Success)
{
auto pUserInfo = reinterpret_cast<PUSER_INFO_10>(pbUserInfo);
::MessageBox(NULL, pUserInfo->usri10_full_name, pUserInfo->usri10_name, MB_ICONINFORMATION);
::NetApiBufferFree(pbUserInfo);
}
}
}
//---------------------------------------------------------------------------
ошибки
Build
[C++ Error] Unit1.cpp(30): E2034 Cannot convert 'char *' to 'const wchar_t *'
[C++ Error] Unit1.cpp(30): E2342 Type mismatch in parameter 'username' (wanted 'const wchar_t *', got 'char *')
[C++ Error] Unit1.cpp(32): E2034 Cannot convert '_USER_INFO_10 *' to 'int'
[C++ Error] Unit1.cpp(34): E2288 Pointer to structure required on left side of -> or ->*
[C++ Error] Unit1.cpp(34): E2288 Pointer to structure required on left side of -> or ->*
[C++ Warning] Unit1.cpp(36): W8004 'pUserInfo' is assigned a value that is never used
