Как узнать имя компьютера?

Материал из DRKB

Как узнать имя компьютера?[править | править код]

function ReadComputerName(): string;
var
  i: DWORD; 
  p: PChar;
begin
  i := 255;
  GetMem(p, i);
  GetComputerName(p, i);
  Result := String(p);
  FreeMem(p);
end;


Author: Vit
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01715



{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение локального имени компьютера

Зависимости: Winsock

Copyright:   Gua
Дата:        23 июля 2002 г.
***************************************************** }

function GetLocalName: string;
var
  WSAData: TWSAData;
  Namebuf: array[0..255] of char;
begin
  WSAStartup($101, WSAData);
  GetHostname(namebuf, sizeof(namebuf));
  Result := NameBuf;
  WSACleanup;
end;


Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 01716



Чтобы узнать имя, идентифицирующее компьютер в сети, на котором запущена Ваша программа, можно воспользоваться следующей функцией:


uses Windows;

function GetComputerNetName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;


Source: Взято из http://forum.sources.ru
ID: 03298


Вариант для Linux

uses Libc;

function GetPCName: string;
var
  Name: PChar;
  Len: Cardinal;
begin
  Len := 255;
  GetMem(Name, Len);
  try
    GetHostName(Name, Len);
    Result := String(Name);
  finally
    FreeMem(Name);
  end;
end;


Author: Vit
ID: 04628