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

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
8-60763
FlashmanX
2002-04-15 12:53
2002.08.19
Чтение wave-файла в массив


7-60878
kool
2002-06-06 18:42
2002.08.19
Как быстро прочитать рисунок с экрана?


3-60482
AccsProgr
2002-07-28 13:10
2002.08.19
Как программно поменять 2 записи местами (Custom сортировка)


4-60915
Burmistroff
2002-06-15 15:24
2002.08.19
Получение Broadcast сообщений


1-60599
Lampo4ka
2002-08-08 10:08
2002.08.19
Xo4у DelphiX......