1. Do you speak English? Use the English version of the site! Link
    Скрыть объявление
Скрыть объявление
Здравствуй гость! После регистрации на ресурсе, ты сможешь скачивать материалы с форума и участвовать в его жизни! Для регистрации откройте соответствующую форму или нажмите на эту ссылку.

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

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

Метки:
  1. D.Evenjo

    D.Evenjo Юзер

    Авг 13 2016 в 18:09
    Регистрация:
    09.09.2015
    Сообщения:
    390
    Симпатии:
    139
    Код:
    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