Проблемы с кодировкой

[Ericnex]

Есть функция, получающая данные из ActiveDirectory

 procedure GetUserNameEx(NameFormat: DWORD;
lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
external 'secur32.dll' Name 'GetUserNameExA';
function LoggedOnUserNameEx(fFormat: DWORD): string;
 var
 UserName: array[0..250] of char;
 Size: DWORD;
 begin
  Size := 250;
  GetUserNameEx(fFormat, @UserName, @Size);
  Result := UserName;
  //showmessage(Result);
 end;

Далее идет вызов процедуры:

procedure TForm1.Button1Click(Sender: TObject);
var
fulstr:string;
begin
fulstr:= LoggedOnUserNameEx(6);
Edit1.Text:=fulstr;
end;
end.

При вызове процедуры на форме в Edit получаем иероглифы (на рис.).

В чем может быть проблема?

[Аватар]

Делфи юникодный? В Д7 норм. Может так:

external 'secur32.dll' Name 'GetUserNameExW';

И фио с 3, а не 6

[Ericnex]

Да, спасибо все работает