Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.07;
Скачать: CL | DM;

Вниз

Реестр   Найти похожие ветки 

 
Drv ©   (2001-12-02 20:05) [0]

Спасибо за ответ AlexKniga ,но это я и сам знаю
как это прочитать в переменную допустим X;
Очень прошу ответить!!!


 
bit   (2001-12-02 20:53) [1]

uses Windows...
...
var
X:PChar;
d:DWord;
begin
D:=MAX_COMPUTERNAME_LENGTH + 1;
GetComputerName( X, d );
Caption:=X;
end;
...

а вот имя компа берется из реестра:
uses Registry...
...
var
T:TRegistry;
X:string;
begin
T:=TRegistry.Create;
T.RootKey:=HKEY_LOCAL_MACHINE;
if T.OpenKey("\System\CurrentControlSet\Control\ComputerName\ComputerName",true) then
begin
X:=T.ReadString("ComputerName");
Caption:=X;
end;
...



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

Текущий архив: 2002.03.07;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
3-19073
чайничек
2002-02-07 17:27
2002.03.07
Может быть кто-нибудь знает как построена правовая система


3-19068
Bormanoid
2002-02-07 21:25
2002.03.07
Как отобразить список записей поля таблицы в combobox?


1-19174
lightix
2002-02-18 13:22
2002.03.07
Как сделать поиск подстроки в ListBox?


7-19368
sedoy
2001-11-29 18:16
2002.03.07
одинаковые номера HDD


14-19347
mart
2002-01-19 03:14
2002.03.07
Билль о правах личности.