![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
IP адрес удаленной машины? [D7, Win2k, WinXP]
aleshap © (2005-05-12 11:38:00)Добрый день!
Такой специфический вопрос.
Каким образом программно определить IP или имя компьютера подключенного к удаленному "Рабочему столу", т.е. мое приложение запускается на сервере на удаленном рабочем столе, необходимо узнать, с какой машины (ip-адрес) произошло соединение с сервером?
Все стандартные функции определения имя компьютера(ip-адреса) выдают информацию лишь только о сервере.
procedure TForm1.Button1Click(Sender: TObject);
Var szName : Array[0..100] of Char;
Name : String;
n:Cardinal;
begin
n:=100;
GetComputerName(szName,n);
name:=StrPas(szName);
Label1.Caption:=Name;
n:=100;
GetUserName(szName,n);
name:=StrPas(szName);
Label2.Caption:=Name;
end;
VMcL (2005-05-12 16:01:00) [1]WTSQuerySessionInformation
?
aleshap (2005-05-12 14:18:00) [2]Что никто не сталкивался?????