Форум: "Система";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
ВнизРеестр Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c