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

Вниз

Как узнать имя компьютера на котором запущена программа?   Найти похожие ветки 

← →
bobr12   (2002-08-07 10:12) [0]

Собственно, вопрос в сообщении.

---

← →
Кулюкин Олег   (2002-08-07 10:28) [1]

Воспользуйтесь функцией API GetComputerName.

---

← →
AlexSV   (2002-08-07 10:31) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
buf: array[0..MAX_COMPUTERNAME_LENGTH] of Char;
pbuf: PChar;
sbuf: Cardinal;
begin
pbuf := buf;
sbuf := MAX_COMPUTERNAME_LENGTH + 1;
GetComputerName(pbuf, sbuf);
Edit1.Text := buf;
end;

---

← →
Dimka Maslov   (2002-08-07 12:28) [3]

http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10010

---

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

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

Наверх

Память: 0.44 MB
Время: 0.005 c