Проконсультируйте по GetUserName()

[yngwie]

Всем привет есть маленький вопрос. Вот пример:

//Узнать имя текущего рользователя

    char buff[100];
    DWORD dw=100;
    GetUserName(buff, &dw);

в последней строке этого кода, второй параметр мы указываем как адрес переменной dw. Мне не очень понятно почему именно адрес,
мы что не можем размер переменной buf указать просто как константное число 100 ?

[Баламут]

Стандартная ситуация при использовании WinAPI. При первом вызове в dw пишешь 0 и на выходе в ЭТОЙ ЖЕ переменной получаешь необходимый размер буфера. Только потом выделяешь необходимую память и вызываешь функцию второй раз. Ну или можно указать максимальный размер буфера. В данном случае, если мне не изменяет память, он равен 15 (могу ошибаться).

[yngwie]

не очень понял напиши пожалуйста примерчик

[Баламут]

Только извини, я на Делфи. Не хочу ставить си. И поскольку пользую Д2009, потому и pWideChar.

procedure TForm1.Button1Click(Sender: TObject);
var
  p: pointer;
  dw: CARDINAL;
begin
  p := nil;
  dw := 0;
  if not GetUserName(p, dw) then begin
    GetMem(p, dw);
    if GetUserName(p, dw) then Label1.Caption := PWideChar(p);
  end;
FreeMem(p);
end;