‘Локальная сеть’ Category
-
Delphi: Как узнать свой IP
0Февраль 1, 2012 by admin
В Uses прописываем модуль WinSock function GetLocalIP:string; var WSVer:integer; wsaData: TWSAData; P: PHostEnt; Buf: array [0..127] of Char; begin WSVer:=$101; if WSAStartup(WSVer, wsaData) = 0 then begin if GetHostName(@Buf, 128) = 0 then begin
keep readingCategory Delphi, Интернет, Локальная сеть | Tags: