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

Тема в разделе Delphi, создана пользователем 7.UP, 18 июн 2016.

Войдите для ответа
  1. 7.UP Заблокирован

    7.UP
    Статус:
    Вне сети
    Сообщения:
    68
    Симпатии:
    20
    Регистрация:
    06.11.15
    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
     
    18 июн 2016 #1
  2. RaynBowDash Местный

    RaynBowDash
    Статус:
    Вне сети
    Сообщения:
    113
    Симпатии:
    10
    Регистрация:
    09.06.16
    что ето такое ?
    Чет не понимаю
     
    18 июн 2016 #2
  3. 7.UP Заблокирован

    7.UP
    Статус:
    Вне сети
    Сообщения:
    68
    Симпатии:
    20
    Регистрация:
    06.11.15
    http://prntscr.com/bi19x4
     
    18 июн 2016 #3
Top