Форум: "Сети";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
ВнизКак вывести локальное имя компьютера? Найти похожие ветки
← →
IBSN (2003-08-01 19:52) [0]Здравствуйте!
Как вывести локальное имя компьютера?
Пробовал:
GetHostByName
подскажите кодик...
← →
AlexRush (2003-08-01 20:16) [1]GetComputerName
← →
IBSN (2003-08-01 20:18) [2]А как его применять в коде???
← →
AlexRush (2003-08-01 20:38) [3]procedure TForm1.FormCreate(Sender: TObject);
var a:packed array[0..255] of char;
( @a[0],255) procedure TForm1.FormCreate(Sender: TObject);
var a:packed array[0..255] of char;
size:DWORD;
begin
ZeroMemory(@a[0],255);
size:=255;
GetComputerNameA(@a[0],size);
Edit1.Text:=string(Pchar(@a[0]));
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c