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

[Bokul]

Можна ли узнать имя компьютера через стандартны функции
и процедуры Паскале, если да, то как?

[Bokul]

я все-таки нашел какой функцией можна узнать имя компа .
В Dos Unit есть одна функция getenv(string) которая возвращает
содержымое заданой переменой среды. Одна с етих переменных
ето computername, ну а если написать

Код

write(getenv('computername'))

то получим Full Computer Name

используя ету функцию, а также EnvStr(Index: Integer): string и
EnvCount: Integer можна также найти другую инфу о компе

Например, с помощью етого кода

Код

uses dos;
var i:integer;
begin
for i:=1 to envcount do
writeln(envstr);
end.

я нашел ето

COMSPEC=C:\WINDOWS\SYSTEM32\COMMAND.COM
ALLUSERSPROFILE=C:\DOCUME~1\ALLUSE~1
APPDATA=C:\DOCUME~1\Bohdan\APPLIC~1
CLIENTNAME=Console
COMMONPROGRAMFILES=C:\PROGRA~1\COMMON~1
COMPUTERNAME=BOHDAN
FP_NO_HOST_CHECK=NO
HOMEDRIVE=C:
HOMEPATH=\Documents and Settings\Bohdan
LOGONSERVER=\\BOHDAN
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
PATH=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\PROGRA~1\ATITEC~1\ATICON~1;C:\PROGRA~1\ATITEC~1\ATI.ACE\
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 6 Model 8 Stepping 1, AuthenticAMD
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=0801
PROGRAMFILES=C:\PROGRA~1
PROMPT=$P$G
SESSIONNAME=Console
SYSTEMDRIVE=C:
SYSTEMROOT=C:\WINDOWS
TEMP=C:\WINDOW

Сообщение отредактировано: Bokul - 29.12.2005 21:28