Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить имя компа и имя юзера? [D6, XP]

PVM © (2008-01-11 23:47:00)
Уважаемые мастера, подскажите, как получить в текстовые переменные имя компьютера и имя пользователя для WinXP ?

timeout (2008-01-29 21:39:00) [1]
Удалено модератором
Примечание: спам

oxffff (2008-01-12 11:39:00) [2]

> Германн © (12.01.08 00:43) [14]

Я считаю, что если функция
возвращает boolean - это совсем нехорошо, жди беды.

Германн (2008-01-12 00:43:00) [3]

> oxffff © (12.01.08 00:22) [11]

Ты тоже считаешь, что если "функция возвращает Boolean", то это "полбеды"?

oxffff (2008-01-12 00:32:00) [4]

> PVM (12.01.08 00:27) [12]

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

PVM (2008-01-12 00:27:00) [5]
Германн ©
oxffff ©

Большое спасибо!

Германн (2008-01-12 00:22:00) [6]

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

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

oxffff (2008-01-12 00:22:00) [7]
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;

Германн (2008-01-12 00:21:00) [8]

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

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

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

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

PVM (2008-01-12 00:17:00) [9]
DVM © (12.01.08 00:08)

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

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

oxffff © (12.01.08 00:07)

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

DVM (2008-01-12 00:08:00) [10]

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

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

oxffff (2008-01-12 00:07:00) [11]

> 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
);

oxffff (2008-01-12 00:05:00) [12]

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

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

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

PVM (2008-01-12 00:04:00) [13]
Сергей М. © (11.01.08 23:59) [3]

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

Сергей М. (2008-01-11 23:59:00) [14]
Какую такую "команду" ?
Если ты о функциях, то для особо недогадливых зовутся они Get[Computer|User]Name. Описание этих функций есть в стандартной справке.

PVM (2008-01-11 23:55:00) [15]
Сергей М. © (11.01.08 23:53) [1]

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

Сергей М. (2008-01-11 23:53:00) [16]
Get - Получить
Computer - компьютер
User - пользователь
Name - имя

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »