Код:
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); // Получение имени Пользователя