LookupAccountNameの使い方？

解決

マシャ 2003-09-13 01:23:36 No: 4800

GetUserName,GetComputerName等はうまく使えますが、
LookupAccountNameに関しましては構文の段階でうまくいきません
引数の使い方など詳しく教えていただきたいと思っています。
お願いします。
procedure TForm1.Button1Click(Sender: TObject);
var
LoginName : array [0..127] of char;
Buf : DWORD;
begin
Buf := 128;
GetUserName(LoginName, Buf);
Edit1.Text := LoginName;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
LoginName : array [0..127] of char;
Buff : DWORD;
begin
Buff := 128;
GetComputerName(LoginName, Buff);
Edit1.Text := LoginName;
end;

にしの 2003-09-13 01:50:08 No: 4801

手抜きですが、こんな感じです。

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: array[0..256] of char;
  buf2: array[0..256] of char;
  dwLen: DWORD;
  dwLen2: DWORD;
  Sid: PCHAR;
  SidLen: DWORD;
  use: SID_NAME_USE;
begin
  dwLen := 255;
  GetUserName(buf, dwLen);

  Sid := nil;
  SidLen := 0;
  dwLen2 := 255;

  LookupAccountName(
    nil,
    buf,
    Sid,
    SidLen,
    buf2,
    dwLen2,
    use
  );
  Sid := GetMemory(SidLen);
  LookupAccountName(
    nil,
    buf,
    Sid,
    SidLen,
    buf2,
    dwLen2,
    use
  );
  Edit1.Text := buf;
  Edit2.Text := buf2;

end;

マシャ 2003-09-13 02:03:07 No: 4802

ありがとうございました。
うまくいきました。

マシャ 2003-09-13 02:03:50 No: 4803

解決チェック忘れました