ログインユーザの取得

---

お世話になります。
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;

編集    削除

---

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

WindowsXP SP2
Delphi7

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

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。