Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 630 • TDictionary Custom Sort 6 638 • Fast Watermark Sources 6 413 • 3D Designer 9 354 • Sik Screen Capture 6 744 • Patch Maker 7 131 • Айболит (remote control) 7 136 • ListBox Drag & Drop 5 998 • Доска для игры Реверси 97 582 • Графические эффекты 7 329 • Рисование по маске 6 615 • Перетаскивание изображений 5 487 • Canvas Drawing 5 864 • Рисование Луны 5 589 • Поворот изображения 5 096 • Рисование стержней 3 666 • Paint on Shape 2 895 • Генератор кроссвордов 3 795 • Головоломка Paletto 3 047 • Теорема Монжа об окружностях 3 858 • Пазл Numbrix 2 539 • Заборы и коммивояжеры 3 251 • Игра HIP 2 221 • Игра Go (Го) 2 153 • Симулятор лифта 2 532 • Программа укладки плитки 2 173 • Генератор лабиринта 2 670 • Проверка числового ввода 2 322 • HEX View 2 655 • Физический маятник 2 288

Нахождения собственного IP

Автор: delphi.mastak.ru

var
  WSAData: TWSAData;
  SockAddrIn: TSockAddrIn;
  Host: PHostEnt;
  // Эти переменные объявлены в Winsock.pas
begin
  if WSAStartup($101, WSAData) = 0 then
  begin
    Host := GetHostByName(@Localname[1]);
    if Host <> nil then
    begin
      SockAddrIn.sin_addr.S_addr := longint(plongint(Host^.h_addr_list^)^);
      LocalIP := inet_ntoa(SockAddrIn.sin_addr);
    end;
    WSACleanUp;
  end;
end;