Форум: "Система";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];

Вниз

Имя компьютера   Найти похожие ветки 

← →
Жук   (2003-03-19 10:39) [0]

Приведённая процедура иногда не вытаскивает имя компьютера. Почему ?
procedure TFPrinc.Whod;
var
Registry: TRegistry;
s:String;
begin
s:="";
Registry:=TRegistry.Create;
try
Registry.RootKey:=HKEY_LOCAL_MACHINE;
Registry.OpenKey
("\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName",False);
s:=Registry.ReadString("ComputerName");
finally
Registry.CloseKey;
Registry.Free;
end;
end;

---

← →
Jel   (2003-03-19 10:50) [1]

А с какими правами пробуешь запускать? Если не админ - не пустят.
В коде ошибок вроде нет.

---

← →
Слесарь Матерящийся   (2003-03-19 10:58) [2]

А чем плох GetComputerName() (Win32 API)?

---

← →
Жук   (2003-03-19 11:03) [3]

2 Jel
Не админ. Спасибо.

2 Слесарь Матерящийся
Ща перепишу с предложенной вами процедурой. Спасибо. :-)

---

← →
Жук   (2003-03-19 14:02) [4]

Заработало в таком виде :
procedure TFPrinc.Whod;
var
s:String;
Buffer:array [0..MAX_COMPUTERNAME_LENGTH+1] of Char;
nSize:DWORD;
begin
s:="";
nSize:=SizeOF(Buffer);
GetComputerName(@Buffer, nSize);
s:=StrPas(@Buffer);
end;
Только не понятно, почему ошибку не выдавало в первом варианте, когда прав не хватало на Registry.OpenKey...

---

← →
theodor_iv   (2003-03-19 21:53) [5]

Перед Registry.OpenKey нужно дописать строку
Registry.Access := KEY_READ;
тогда будет работать и без прав админа.

Хотя GetComputerName в данном случае правильнее.

---

← →
max2057   (2003-03-26 15:10) [6]

Удалено модератором
Примечание: Задай СВОЙ вопрос в отдельной ветке

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.05.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c