user name

  1. D.Evenjo

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

    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...
Сверху