| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как узнать имя компьтеры
IOrist © (2008-04-18 12:48:00)как узнать имя текущего компьтеры.
Anatoly Podgoretsky (2008-04-18 16:43:00) [1]А чем не устраивает ответ от Palladin © (18.04.08 12:51) [1] или просто альтернативу даешь. Если так, то я недавно, толи с этой функцие, толи с GetUserName столкнулся, что возвращает пустое значение, тоже пришлось брать через переменные окружения.
Игорь Шевченко (2008-04-18 16:32:00) [2]GetEnvironmentVariable('COMPUTERNAME');
{RASkov} (2008-04-18 16:31:00) [3]Удалено модератором
tomkat (2008-04-18 16:26:00) [4]Удалено модератором
{RASkov} (2008-04-18 16:17:00) [5]Удалено модератором
Dennis I. Komarov (2008-04-18 16:16:00) [6]Удалено модератором
tomkat (2008-04-18 16:15:00) [7]Удалено модератором
Dennis I. Komarov (2008-04-18 16:01:00) [8]Удалено модератором
Anatoly Podgoretsky (2008-04-18 15:49:00) [9]> tomkat (18.04.2008 15:24:10) [10]
Нафиг, тем более читать именно ControlSet001
tomkat (2008-04-18 15:24:00) [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;
Ega23 (2008-04-18 13:36:00) [11]
> Shit = "о, Господи, оно заработало!"
>
Мне больше FUBAR нравится... :)
DrPass (2008-04-18 13:34:00) [12]Shit = "о, Господи, оно заработало!"
Anatoly Podgoretsky (2008-04-18 13:25:00) [13]
> :) ам сори
> *Взять - Get
Словарь
Get = получать
Johnmen (2008-04-18 13:18:00) [14]Хм....Тебе пожуй, а ты только глотать будешь? Не противно?
IOrist (2008-04-18 13:17:00) [15]сори
IOrist (2008-04-18 13:16:00) [16]можете пояснить патаметры и тип который она возвращает? мне нужна в итоге строка, а не LongBool.
Ega23 (2008-04-18 13:13:00) [17]
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;
Palladin (2008-04-18 12:59:00) [18]:) ам сори
*Взять - Get
Palladin (2008-04-18 12:51:00) [19]Получить - Get
Компьютер - Computer
Имя - Name
| |
