Получение Имён Пк И Пользователя(одной Функцией)

[Lomanu4]

Функция

uses
  Windows;

function gName( iInput: Integer ): String;
var
  Size:Cardinal;
  cBuff: array[0..260] of Char;
begin
  Size := 260;
  ZeroMemory( @cBuff[0], Size );
  case iInput of
    1: GetComputerName(cBuff, Size);
    2: GetUserName(cBuff, Size);
  end;
  Result := cBuff;
end;

Пример

Label1.Caption := gName(1);  // Получение имени ПК
Label2.Caption := gName(2);  // Получение имени Пользователя