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

← →
Muhan © (2004-12-11 18:01) [0]

Спасибо заранее.

← →
begin...end © (2004-12-11 18:02) [1]

GetComputerName (API)

← →
Muhan © (2004-12-11 18:11) [2]

подробнее пожалуйста насчет переменных ...как их описать... и как применить..и где что будет храниться

← →
Fay © (2004-12-11 18:16) [3]

GetComputerName
The GetComputerName function retrieves the NetBIOS name of the local computer. This name is established at system startup, when the system reads it from the registry.

If the local computer is a node in a cluster, GetComputerName returns the name of the cluster virtual server.

Windows 2000/XP: GetComputerName retrieves only the NetBIOS name of the local computer. To retrieve the DNS host name, DNS domain name, or the fully qualified DNS name, call the GetComputerNameEx function.

Windows 2000/XP: Additional information is provided by the IADsADSystemInfo interface.

BOOL GetComputerName(
LPTSTR lpBuffer, // computer name
LPDWORD lpnSize // size of name buffer
);
Parameters
lpBuffer
[out] Pointer to a buffer that receives a null-terminated string containing the computer name or the cluster virtual server name. The buffer size should be large enough to contain MAX_COMPUTERNAME_LENGTH + 1 characters.
lpnSize
[in/out] On input, specifies the size, in TCHARs, of the buffer. On output, receives the number of TCHARs copied to the destination buffer, not including the terminating null character.
If the buffer is too small, the function fails and GetLastError returns ERROR_BUFFER_OVERFLOW. The lpnSize parameter specifies the size of the buffer required, including the terminating null character.

Windows 95/98/Me: GetComputerName fails if the input size is less than MAX_COMPUTERNAME_LENGTH + 1.

Return Values
If the function succeeds, the return value is a nonzero value.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

← →
Muhan © (2004-12-11 18:27) [4]

у меня в английском проблемы...можно просто дать ответ?

← →
Fay © (2004-12-11 18:36) [5]

> у меня в английском проблемы...можно просто дать ответ
var b : array[0..MAX_COMPUTERNAME_LENGTH] of Char; n : DWORD; begin GetComputerName(b, n);

← →
Muhan © (2004-12-11 18:36) [6]

спасибо

← →
Leonid Troyanovsky © (2004-12-11 18:47) [7]

> Fay © (11.12.04 18:36) [5]
> begin
> GetComputerName(b, n);

lpnSize
[in/out] On input, specifies the size, in TCHARs, of the buffer.

--
С уважением, LVT.

> Fay © (11.12.04 18:50) [8]
> Это уже очень сложно 8)

n := SizeOf(b);
Win32Check(GetComputerName(b, n));

--
С уважением, LVT.

Я уж было подумал,что опять "процедура GetComputerName требует буфер хранения этого имени а ему это не интересно! ".
З.Ы.Взято из орешника

Как программно узнать имя компа? Найти похожие ветки