Сегодня хочу выложить на ваш суд компонент под названием Dynamic Skin Form. На мой взгляд, отличный компонент способный сделать из ваших простых серых программ, некие шедевры дизайнерской мысли. Не верите, смотрите на скриншот.

Короче если кто не понял, dynamic skin form - это компонент для поддержки скинов в вашей программе. Честно вам признаюсь что после установки с компонентом надо немного разобраться. Но я думаю для вас это не составит большого труда. В общем качаем, устанавливаем, разбираемся и Наслаждаемся !

Установка: тестировалось 7 версии delphi. Никаких проблем. Да еще хочу сказать пару слов об установке данного компонента. Распаковываем архив=> В Delphi 7 жмем на вкладку Component => Instal Packages => Давим на кнопку Add => Заходим в папку куда распаковали архив => выбираем соответствующий bpl файл. После этого рекомендую скопировать все файлы из архива в папку установки Delphi\Projects\Bpl\

Исходник программы для "склеивания", двух программ в одну. Делаеться это в основном для впаривания трояна (вируса), когда нужно отвлечь пользователя! Вообщем качаем и наслаждаемся )

Забавный исходник позволяющий рисовать на Canvas'e симетричные фигуры. Программа работает следующим образом: зажимаем левую кнопку мышки и например в правой части формы рисуем дугу... что произойдет дальше смотрите сами ). Лично мне исходник понравился, можно быстро рисовать различные узоры, а потом по полученному шаблону вышивать их например на варешках ;) В общем качаем хорошая вещь !

Решение следующее:

---

PHP - Код

echo "<pre>";

   // качаем страницу в переменную $buf

   $buf=implode("",file("http://www.ru/")); 

   // получем ссылки в массив

   preg_match_all("/<[Aa][ rnt]{1}[^>]*[Hh][Rr][Ee][Ff][^=]*=[ '"nrt]*([^ "'>rnt#]+)[^>]*>/",$buf,$url); 

   // выводим массив на экран

   while($i<count($url[1])) { echo $url[1][$i++]."n"; }

   echo "</pre>";