как узнать имя компьтеры

← →
IOrist (2008-04-18 12:48) [0]

как узнать имя текущего компьтеры.

← →
Palladin © (2008-04-18 12:51) [1]

Получить - Get
Компьютер - Computer
Имя - Name

← →
Palladin © (2008-04-18 12:59) [2]

:) ам сори
*Взять - Get

← →
Ega23 © (2008-04-18 13:13) [3]

function GetCompName: string; var Name: array[0..79] of char; Len: DWORD; begin Len := 80; if GetComputerName(@Name, Len) then Result := Name else Result := ""; end;

← →
IOrist (2008-04-18 13:16) [4]

можете пояснить патаметры и тип который она возвращает? мне нужна в итоге строка, а не LongBool.

← →
IOrist (2008-04-18 13:17) [5]

сори

← →
Johnmen © (2008-04-18 13:18) [6]

Хм....Тебе пожуй, а ты только глотать будешь? Не противно?

← →
Anatoly Podgoretsky © (2008-04-18 13:25) [7]

> :) ам сори
> *Взять - Get

Словарь
Get = получать

← →
DrPass © (2008-04-18 13:34) [8]

Shit = "о, Господи, оно заработало!"

← →
Ega23 © (2008-04-18 13:36) [9]

> Shit = "о, Господи, оно заработало!"
>

Мне больше FUBAR нравится... :)

← →
tomkat (2008-04-18 15:24) [10]

Прочитать ветку реестра
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\

with TRegistry.Create do begin RootKey:=HKEY_LOCAL_MACHINE; OpenKey("SYSTEM\ControlSet001\Control\ComputerName\ComputerName\",true); Compname:=ReadString("ComputerName"); CloseKey; end;

← →
Anatoly Podgoretsky © (2008-04-18 15:49) [11]

> tomkat (18.04.2008 15:24:10) [10]

Нафиг, тем более читать именно ControlSet001

← →
Dennis I. Komarov © (2008-04-18 16:01) [12]

Удалено модератором

← →
tomkat (2008-04-18 16:15) [13]

Удалено модератором

← →
tomkat (2008-04-18 16:26) [16]

Удалено модератором

GetEnvironmentVariable("COMPUTERNAME");

А чем не устраивает ответ от Palladin © (18.04.08 12:51) [1] или просто альтернативу даешь. Если так, то я недавно, толи с этой функцие, толи с GetUserName столкнулся, что возвращает пустое значение, тоже пришлось брать через переменные окружения.

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