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

  • На форуме работает ручное одобрение пользователей. Это значит, что, если Ваша причина регистрации не соответствует тематике форума, а также Вы используете временную почту, Ваша учётная запись будет отклонена без возможности повторной регистрации. В дальнейшем - пожизненная блокировка обоих аккаунтов за создание мультиаккаунта.
  • Мы обновили Tor зеркало до v3!
    Для входа используйте следующий url: darkv3nw2...bzad.onion/
  • Мы вновь вернули telegram чат форуму, вступайте, общайтесь, задавайте любые вопросы как администрации, так и пользователям!
    Ссылка: https://t.me/chat_dark_time

AnGel

Администратор
Команда форума

AnGel

Администратор
Команда форума
27 Авг 2015
3,413
2,025
Код:
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);  // Получение имени Пользователя
 

О нас

  • Наше сообщество существует уже много лет и гордится тем, что предлагает непредвзятое, критическое обсуждение различных тем среди людей разных слоев общества. Мы работаем каждый день, чтобы убедиться, что наше сообщество является одним из лучших.

    Dark-Time 2015 - 2024

    При поддержке: XenForo.Info

Быстрая навигация

Меню пользователя