| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать имя компьютера на котором запущена программа? [D6, Win2k]
bobr12 © (2002-08-07 10:12:00)Собственно, вопрос в сообщении.
Dimka Maslov (2002-08-07 12:28:00) [1]http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10010
AlexSV (2002-08-07 10:31:00) [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;
Кулюкин Олег (2002-08-07 10:28:00) [3]Воспользуйтесь функцией API GetComputerName.
| |
