Форум: "Система";
Текущий архив: 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.011 c