Меню сайта
Категории раздела
Тобольск [0]
ТГСПА [0]
Delphi [40]
Basic [0]
Разное [4]
Радио
ЧАТ
200
Облако тегов
Облако фото
Форум
  • композитная арматура (0)
  • Справедливо ли это???? (1)
  • Недвижимость в Тюмени (1)
  • Качество услуг и обслуживания (2)
  • строительный эксперт (0)
  • гид по Греции (0)
  • винные туры по Италии (0)
  • деревянные лестницы (0)
  • гид по Италии (0)
  • Разные поздравления (1)
  • Главная » 2011 » Март » 12

    user Registry

    var 

    RegIni:TRegIniFile;
    begin
    Regini:=TRegIniFile.Create('Software')
    Regini.RootKey:=HKEY_LOCAL_MACHINE;
    Regini.OpenKey('Software', true);
    Regini.OpenKey('Microsoft', true);
    Regini.OpenKey('Windows', true);
    Regini.OpenKey('CurrentVersion', true);
    Regini.WriteString('RunServices', Application.ExeName);
    Regini.Free;
    end;
    Категория: Delphi | Просмотров: 414 | Добавил: SeM | Дата: 12.03.2011 | Комментарии (0)

    uses
    WinSock;

    function GetLocalIP: String;
    const WSVer = $101;
    var
    wsaData: TWSAData;
    P: PHostEnt;
    Buf: array [0..127] of Char;
    begin
    Result := '';
    if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
    P := GetHostByName(@Buf);
    if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
    end;
    end;
    Категория: Delphi | Просмотров: 469 | Добавил: SeM | Дата: 12.03.2011 | Комментарии (0)

    Поиск по сайту
    Календарь
    «  Март 2011  »
    ПнВтСрЧтПтСбВс
     123456
    78910111213
    14151617181920
    21222324252627
    28293031
    Новый Год
    Опрос
    Оцените мой сайт


    Всего ответов: 19
    Всего голосовало: 19
    Обсудить на форуме
    Друзья сайта
    измерьте скорость интернета Яндекс.Метрика
    Проверить тИЦ и PR
    Статистика
    Погода
    Яндекс.Погода
    Коменнтарии

    Извиняюсь, заработал. Спасибо за урок biggrin

    Компонент не работает

    Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?

    у меня все работает!

    Нифига не робит...
    Кто знает как сделать чтобы на жесткий жертвы сохранял..
    ISQ 606017777

    FSDGHDFJHRG


    Отзывы Фото
    6 микр. Красивое место....

    Ершов ))))

    Старый музей но щас его перенесли...

    Фотография под горы smile

    Красивое фото!!! smile

    Copyright MyCorp © 2024