Получаем PC и User Name

[craft1n]

Label1.Caption := gName(1); // Get the computer name.
Label2.Caption := gName(2); // Get the user name

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); // Get the computer name.
Label2.Caption := gName(2); // Get the user name

Взято с [Ссылки могут видеть только зарегистрированные и активированные пользователи]