ログイン中のユーザー名を取得する方法
38	GetLoginUserName	動作確認	Delphi2007	更新日	2008/01/18(金)

ログイン中のユーザー名を取得する関数です。

────────────────────
//uses SysUtilsを追加
function GetNetUser : Ansistring;
var
  dwI : DWord;
begin
  dwI := MAX_PATH;
  SetLength (Result, dwI + 1);
  if WNetGetUser (Nil, PChar (Result), dwI) = NO_ERROR then
    SetLength (Result, StrLen (PChar (Result)))
  else
    SetLength (Result, 0)
end;
────────────────────

参考────────────────────
http://www.delphifaq.com/faq/f108.shtml