Получаем и изменяем имя локального компьютера.

Сегодня я решил немного осветить проблемы с администрированием локального компьютера. А именно: получение имени компьютера и его изменение.

Стоит сразу отметить, что изменение таким параметров требует права администратора, поэтому при тестировании кода, не забываем запускать программу от имени администратора.


В получении имени компьютера на поможет вот эта функция:

function GetPCName: string;
var
  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  Windows.GetComputerName(@buffer, Size);
  Result := StrPas(buffer);
end;

Она возращает текущее имя.

Чтобы его изменить, нам надо описать следующую функцию:

function SetPCName(AName: string): Boolean;
var
  PCName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  StrPCopy(PCName, AName);
  Result := Windows.SetComputerName(PCName);
end;

В случае успешного изменения функция возвратит значение true, в противном случае - false.

Вот таким нехитрым способом решается данная проблема. Если же у вас возникли вопросы, то не стесняйтесь - задавайте в комментариях:)


Удачи!