Новые пользователи
Активные пользователи
[ Новые сообщения · Участники· Правила форума · Поиск · RSS ]
Страница 1 из 11
Архив - только для чтения
Форум » Программирование на Delphi » Готовые решения » Как узнать имя компьютера? (Учимся работать с Windows API)
Как узнать имя компьютера?
PWorkДата: Пятница, 02.02.2018, 00:26 | Сообщение # 1
Группа: Администраторы
Сообщений: 15
Статус: Offline

Код
function GetCompName:string;
var
  Size:DWORD;
begin
  Size:=300;
  SetLength(Result, Size); // Выделили память под строку
  Win32Check(GetComputerName(PChar(Result), Size)); // теперь в Size будет число фактических символов
  SetLength(Result, Size); // Обрезали строку
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetCompName);
end;
Форум » Программирование на Delphi » Готовые решения » Как узнать имя компьютера? (Учимся работать с Windows API)
Страница 1 из 11
Поиск:
X

Внимание!

Ваш браузер уязвим для рекламы. Установите AdBlock Plus! https://adblockPlus.org

uCoz