1. Убедительно прошу ознакомиться с правилами публикации программного обеспечения. Помимо VT нужен еще Hybrid Analysis. Подробнее описано в правилах ресурса, пункт 1.19.2.
    Скрыть объявление
  2. На форуме стала доступна баннерная реклама. Все подробности в теме: Реклама на форуме [баннеры]
    Скрыть объявление
  3. Do you speak English? Use the English version of the site! Link
    Скрыть объявление
  4. Нет желания и времени зарабатывать репутацию? Покупка группы "Пользователь" решит часть проблем, а "VIP" - все. Подробнее по ссылке.
    Скрыть объявление
Скрыть объявление
Здравствуй гость! После регистрации на ресурсе, ты сможешь скачивать материалы с форума и участвовать в его жизни! Для регистрации откройте соответствующую форму или нажмите на эту ссылку.

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

Тема в разделе "Статьи", создана пользователем D.Evenjo, 23.09.2015.

Метки:
  1. D.Evenjo

    D.Evenjo Юзер

    Июнь 11 2017 в 16:41
    Регистрация:
    09.09.2015
    Сообщения:
    389
    Симпатии:
    141
    Антипатии:
    0
    Код:
    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
     
Похожие темы
  1. bilka00
    Ответов:
    0
    Просмотров:
    447
  2. X-Vlad
    Ответов:
    0
    Просмотров:
    482
  3. bilka00
    Ответов:
    2
    Просмотров:
    432
  4. AnGel
    Ответов:
    7
    Просмотров:
    425
  5. AcroniS
    Ответов:
    1
    Просмотров:
    314
Загрузка...