ip-адрес при подключении через модем
Подскажите, пожалуйста, как определить ip-адрес другого компа при подключении к нему (или он к тебе) через модем (при подключении виндовыми средствами). Я уже облазил весь реестр, все виндовые сервисы, RAS API... Возможно, что его нельзя определить, это запрещено в целях безопасности, но ведь в XP можно его узнать руками, посмотрев св-ва подключения. Может, можно ip выковырять из этого диалога свойств?
Originally posted by kipelovets
[COLOR=darkblue][FONT=courier new]
type
TRasProjection = Integer;
THRasConn = Longint;
TRasPppIp = TRasPppIpA;
TRasPppIpA = record
dwSize: Longint;
dwError: Longint;
szIpAddress: Array[0..RAS_MaxIpAddress] of AnsiChar;
szServerIpAddress: Array[0..RAS_MaxIpAddress] of AnsiChar;
end;
function RasGetProjectionInfoA(hConn: THRasConn; rasproj: TRasProjection;
lpProjection: Pointer; var lpcb: Longint): Longint; stdcall;
external 'rasapi32.dll' name 'RasGetProjectionInfoA';
function GetRemotePppIp(RasHandle: THRasConn): string;
var IpAddr: TRasPppIp;
CB: longint;
begin
Result := '';
IpAddr.dwSize := SizeOf(IpAddr);
CB := 255;
if RasGetProjectionInfo(RasHandle,RASP_PppIp,@IpAddr, CB) = 0 then
Result := IpAddr.szIpAddress
end;[/FONT]
[/COLOR]
[COLOR=darkblue][FONT=courier new]
type
TRasProjection = Integer;
THRasConn = Longint;
TRasPppIp = TRasPppIpA;
TRasPppIpA = record
dwSize: Longint;
dwError: Longint;
szIpAddress: Array[0..RAS_MaxIpAddress] of AnsiChar;
szServerIpAddress: Array[0..RAS_MaxIpAddress] of AnsiChar;
end;
function RasGetProjectionInfoA(hConn: THRasConn; rasproj: TRasProjection;
lpProjection: Pointer; var lpcb: Longint): Longint; stdcall;
external 'rasapi32.dll' name 'RasGetProjectionInfoA';
function GetRemotePppIp(RasHandle: THRasConn): string;
var IpAddr: TRasPppIp;
CB: longint;
begin
Result := '';
IpAddr.dwSize := SizeOf(IpAddr);
CB := 255;
if RasGetProjectionInfo(RasHandle,RASP_PppIp,@IpAddr, CB) = 0 then
Result := IpAddr.szIpAddress
end;[/FONT]
[/COLOR]
спасибо