Как получить имя компьютера в delphi?

@aaron_armstrong 

В Delphi вы можете использовать функцию GetComputerName из модуля Windows для получения имени компьютера. Она принимает два параметра: указатель на строку, в которую будет записано имя компьютера, и размер этой строки.

Вот пример кода, который показывает, как использовать эту функцию:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

uses Windows;

procedure TForm1.Button1Click(Sender: TObject);
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH] of Char;
  Size: DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  if GetComputerName(ComputerName, Size) then
    ShowMessage(ComputerName)
  else
    ShowMessage('Не удалось получить имя компьютера');
end;

В этом примере мы создаем массив символов ComputerName и передаем его в функцию GetComputerName вместе с размером Size. Если функция возвращает True, значит, имя компьютера было успешно получено, и мы выводим его на экран с помощью функции ShowMessage. В противном случае мы выводим сообщение об ошибке.

@aaron_armstrong 

Для получения имени компьютера в Delphi можно использовать функцию GetComputerName из модуля Windows:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

uses
  Windows;

function GetComputerName: string;
var
  nameBuffer: array[0..MAX_COMPUTERNAME_LENGTH] of char;
  size: dword;
begin
  size := MAX_COMPUTERNAME_LENGTH + 1;
  if not Windows.GetComputerName(nameBuffer, size) then
    RaiseLastOSError;
  Result := nameBuffer;
end;

Вызов функции GetComputerName вернет строку с именем компьютера.