Форум: "Сети";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];
ВнизIP адрес удаленной машины? Найти похожие ветки
← →
aleshap (2005-05-12 11:38) [0]Добрый день!
Такой специфический вопрос.
Каким образом программно определить 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;
← →
aleshap (2005-05-12 14:18) [1]Что никто не сталкивался?????
← →
VMcL © (2005-05-12 16:01) [2]WTSQuerySessionInformation
?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 1.451 c