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

← →
PVM (2008-01-11 23:47) [0]

Уважаемые мастера, подскажите, как получить в текстовые переменные имя компьютера и имя пользователя для WinXP ?

← →
Сергей М. © (2008-01-11 23:53) [1]

Get - Получить
Computer - компьютер
User - пользователь
Name - имя

Это ни на какие мысли не наводит ?)

← →
PVM (2008-01-11 23:55) [2]

Сергей М. © (11.01.08 23:53) [1]

Не легче было написать команду?

← →
Сергей М. © (2008-01-11 23:59) [3]

Какую такую "команду" ?
Если ты о функциях, то для особо недогадливых зовутся они Get[Computer|User]Name. Описание этих функций есть в стандартной справке.

← →
PVM (2008-01-12 00:04) [4]

Сергей М. © (11.01.08 23:59) [3]

Да, конечно "функцию".
К сожалению в стандартной справке Delphi6 у себя я не нахожу описания функций GetComputerName или GetUserName

← →
oxffff © (2008-01-12 00:05) [5]

> Сергей М. © (11.01.08 23:59) [3]

За компьютером может сидеть юзер и его имя может быть отлично от учетки пользователя я так предполагаю ОС Windows.

Наклейку на системном блоке с названием прочитать не проще и cпросить e пользователя КАК тебя зовут?

← →
oxffff © (2008-01-12 00:07) [6]

> PVM (12.01.08 00:04) [4]

GetUserName

The GetUserName function retrieves the name of the user associated with the current thread.

Use the GetUserNameEx function to retrieve the user name in a specified format. Additional information is provided by the IADsADSystemInfo interface.

BOOL GetUserName(
LPTSTR lpBuffer,
LPDWORD nSize
);

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.

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. Additional information is provided by the IADsADSystemInfo interface.

The behavior of this function can be affected if the local computer is a node in a cluster. For more information, see ResUtilGetEnvironmentWithNetName and UseNetworkName.

BOOL GetComputerName(
LPTSTR lpBuffer,
LPDWORD lpnSize
);

← →
DVM © (2008-01-12 00:08) [7]

> К сожалению в стандартной справке Delphi6 у себя я не нахожу
> описания функций GetComputerName или GetUserName

Не там смотришь. Справка по WinAPI

← →
PVM (2008-01-12 00:17) [8]

DVM © (12.01.08 00:08)

> Не там смотришь. Справка по WinAPI

А-а... Спасибо.

oxffff © (12.01.08 00:07)

Всё это очень познавательно и интересно. Но как начинающий, я понял, что например функция GetUserName возвращает Boolean. Это полбеды. А какие параметры я туда должен поставить? И что за типы данных такие LPTSTR и LPDWORD? Так откуда же возьмется имя этого самого юзера?

← →
Германн © (2008-01-12 00:21) [9]

> И что за типы данных такие LPTSTR и LPDWORD?

У как всё запущено. Надо читать учебники. Без знания основ в WinAPI лезть бесполезно.

> Так откуда же возьмется имя этого самого юзера?
>

Для справки:
LPTSTR - Long Pointer To STRing. PChar по нашему :)

← →
Германн © (2008-01-12 00:22) [10]

> я понял, что например функция GetUserName возвращает Boolean.
> Это полбеды.

Кстати это не "полбеды". Это - гарантия правильного понимания ответа.

← →
oxffff © (2008-01-12 00:22) [11]

var Name:array[0..127] of char;
Size:DWORD;
begin
Size:=sizeof(name);
GetUserName(@Name,Size);
showmessage(name);
Size:=sizeof(name);
GetComputerName(@Name,Size);
showmessage(name);
end;

← →
PVM (2008-01-12 00:27) [12]

> PVM (12.01.08 00:27) [12]

Спасибо не мне, а [3]

Удалено модератором
Примечание: спам

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