delphi 获取当前Windows 中使用的用户

function GetSessionUser: String;

Var

  vLength  : DWORD;

  vUser: Array[0..MAX_PATH - 1] Of Char;

begin

  vLength := MAX_PATH;

  GetUserName(vUser, vLength);

  Result := vUser;

end;

//另外提供一个获取当前计算机名

function GetPCName: string;

var

  Buffer: array[0..MAX_COMPUTERNAME_LENGTH] of Char;

  Size: Cardinal;

begin

  FillChar(Buffer,Sizeof(Buffer),0);

  Size:= Sizeof(Buffer);

  if GetComputerName(Buffer,Size) then

    Result:= String(PChar(@Buffer))

  else

    Result:= '';

end;