Как узнать имя компьютера?
Материал из 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