function NetUserGetInfo, не правильно отображает данные

[MStorm]

{$EXTERNALSYM USER_INFO_0}
type USER_INFO_0 = record
usri0_name:PWChar;

end;
{$EXTERNALSYM PUSER_INFO_0}
type PUSER_INFO_0 = ^USER_INFO_0;
function NetUserGetInfo(servername,username: LPCWSTR;level:DWORD;u:PByte):DWORD; stdcall;
external 'netapi32.dll';
{$EXTERNALSYM NetUserGetInfo}

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
const
NERR_UserNotFound = 2221;
var us: USER_INFO_0;
str: widestring;
wid: string;
mem: dword;
begin
str := Form1.Edit1.Text;
mem := NetUserGetInfo(nil,PWCHAR(str),0,@u s);
str:= us.usri0_name;
wid:= str;
if(wid = NULL) then
NetApiBufferFree(Pbyte(wid));
if(mem = NULL) then
NetApiBufferFree(Pbyte(mem));
if mem = NERR_UserNotFound then ShowMessage('Òàêîãî ïîëüçîâàòåëÿ íåò!')
else Memo1.Lines.Add(IntToStr(mem));
Memo1.Lines.Add(wid);
end;


При нажатии на Button2 в Memo1 появляется ???ray, что сделать чтобы имя появлялось без закарлючек перед ним?! Помогите кто может

[rpy3uH]

в твоём случае должно быть так:

procedure TForm1.Button2Click(Sender: TObject);
const
    NERR_UserNotFound = 2221;
var 
    us: PUSER_INFO_0;//<-----
   ....
begin
....
    mem := NetUserGetInfo(nil,PWCHAR(str),0,@us);

четвёртым параметром должен быть не указатель на запись, а указатель на указатель на запись, а память для записи выделит сама функция.