ログインユーザの取得

中谷忍 2008-10-16 01:15:12 No: 32224

お世話になります。
XPで、ログインユーザ名を取得したいのですが、
下記ロジックでは、どうしてもコンピュータ名が取得されてしまいましす。
何か良い方法があれば、ご教授お願いいたします。

procedure TForm1.Button1Click(Sender: TObject);
var
  pUserName: array[0..64] of Char;
  dwSize: DWORD;
begin
  ZeroMemory(@pUserName, SizeOf(pUserName));
  dwSize := sizeof(pUserName);
  GetUserName(pUserName, dwSize);
  ShowMessage( string(pUserName) );
end;

お？ 2008-10-16 01:54:34 No: 32225

私の環境では正常に動きます。

WindowsXP SP2
Delphi7

あと参考に、
http://lupin.client.jp/delphi/#26