<?xml version="1.0" encoding="windows-1251"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<atom:link href="https://softik.0pk.me/export.php?type=rss" rel="self" type="application/rss+xml" />
		<title>Знатоки Делфи 7</title>
		<link>https://softik.0pk.me/</link>
		<description>Знатоки Делфи 7</description>
		<language>ru-ru</language>
		<lastBuildDate>Wed, 03 Apr 2024 10:00:22 +0300</lastBuildDate>
		<generator>MyBB/mybb.ru</generator>
		<item>
			<title>Улучшение качества текстов: практические советы</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=59#p59</link>
			<description>&lt;p&gt;Привет! Я начал использовать этот сервис для создания контента, который приносит пользу. Если ты хочешь делать свои тексты более ценными для аудитории, этот инструмент - для тебя! Регистрация проста и займет всего несколько минут. &lt;a href=&quot;https://bizally.online&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://bizally.online&lt;/a&gt;?name=forum&lt;/p&gt;</description>
			<author>mybb@mybb.ru (typlwwpkam)</author>
			<pubDate>Wed, 03 Apr 2024 10:00:22 +0300</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=59#p59</guid>
		</item>
		<item>
			<title>Борьба с однообразным контентом. Что делать?</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=58#p58</link>
			<description>&lt;p&gt;Как увеличить видимость вашего бизнеса в Интернете? Решение – использовать Bizally для создания привлекательного и качественного контента. Наш сервис поможет вам не только привлечь, но и удержать целевую аудиторию. Превратите ваши идеи в реальность и поднимите свой бизнес на новый уровень! Bizally – инновационный инструмент, предназначенный для облегчения рабочего процесса для тех, кто занимается созданием контента различных жанров: будь то блоги, рекламные материалы, книги, описания продуктов и услуг для веб-сайтов или онлайн-магазинов, привлекательные предложения для получения лидов, списки для проверки, сценарии для электронных писем и социальных сетей, включая визуальные элементы. В арсенале Bizally - широкий спектр маркетинговых инструментов, включая, к примеру, возможность автоматизированного создания уникальных комментариев под постами, что в свою очередь способствует наиболее эффективному продвижению. Бесплатная регистрация и пробный период по ссылке: &lt;a href=&quot;https://bizally.online&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://bizally.online&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (typlwwpkam)</author>
			<pubDate>Mon, 18 Mar 2024 08:14:40 +0300</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=58#p58</guid>
		</item>
		<item>
			<title>Услуги клининга Москва и МО</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=57#p57</link>
			<description>&lt;p&gt;Профессиональные услуги клининга: уборка после ремонта, генеральная, поддерживающая, химчистка мягкой мебели, удаление жировых отложений на кухне парогенератором, мытье окон + альпинист и многое другое. Мы также предлагаем ЭКО-чистку детских игрушек, колясок, комнат и различных предметов.&amp;#160; Заказ по тел. +7 915 204 1047 Наш канал: t.me/wwcleaning Москва и Московская область Услуги клининга офиса, квартиры: грязь, пыль, разводы, зеркала, плитка, цемент, краска, светильники, люстры, свч, холодильник, духовка, плита, варочная панель, вытяжка, розетки, выключатели, керамика, смесители, скотч, мусор, шкафы, сантехника, плинтуса, фартук, столешница, стирка, глажка, пятна, загрязнения, диван, кровать &amp;#9989;Уборка квартиры после ремонта &amp;#9989;Уборка после ремонта цена&amp;#160; &amp;#9989;Уборка после ремонта москва&amp;#160; &amp;#9989;Уборка квартиры после ремонта цена&amp;#160; &amp;#9989;Уборка помещений после ремонта&amp;#160; &amp;#9989;Услуги клининга цены&amp;#160; &amp;#9989;Клининг компания услуги&amp;#160; &amp;#9989;Услуги клининга офиса&amp;#160; &amp;#9989;Химчистка мягкой мебели москва&amp;#160; &amp;#9989;Химчистка мягкой мебели +на дому&amp;#160; &amp;#9989;Химчистка мягкой мебели +и ковров&amp;#160; &amp;#9989;Мытье окон +в москве&amp;#160; &amp;#9989;Мытье окон без разводов&amp;#160; &amp;#9989;Клининг компания услуги&amp;#160; &amp;#9989;ЭКО чистка детских кресел&amp;#160; &amp;#9989;Экологическая очистка детских комнат&amp;#160; &amp;#9989;Услуги клининга квартир&amp;#160; Заказ по тел. +7 915 204 1047 Наш канал: &lt;a href=&quot;https://t.me/wwcleaning&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://t.me/wwcleaning&lt;/a&gt;&amp;#160; &amp;#160;Вотсап: &lt;a href=&quot;https://wa.me/79152041047&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://wa.me/79152041047&lt;/a&gt;&amp;#160; Перейти: &lt;a href=&quot;https://u.to/IFkKIA&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://u.to/IFkKIA&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (typlwwpkam)</author>
			<pubDate>Tue, 24 Oct 2023 07:24:17 +0300</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=57#p57</guid>
		</item>
		<item>
			<title>Услуги клининга Москва и МО</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=56#p56</link>
			<description>&lt;p&gt;Профессиональные услуги клининга: уборка после ремонта, генеральная, поддерживающая, химчистка мягкой мебели, удаление жировых отложений на кухне парогенератором, мытье окон + альпинист и многое другое. Мы также предлагаем ЭКО-чистку детских игрушек, колясок, комнат и различных предметов.&amp;#160; Заказ по тел. +7 915 204 1047 Наш канал: t.me/wwcleaning Москва и Московская область Услуги клининга офиса, квартиры: грязь, пыль, разводы, зеркала, плитка, цемент, краска, светильники, люстры, свч, холодильник, духовка, плита, варочная панель, вытяжка, розетки, выключатели, керамика, смесители, скотч, мусор, шкафы, сантехника, плинтуса, фартук, столешница, стирка, глажка, пятна, загрязнения, диван, кровать &amp;#9989;Уборка квартиры после ремонта &amp;#9989;Уборка после ремонта цена&amp;#160; &amp;#9989;Уборка после ремонта москва&amp;#160; &amp;#9989;Уборка квартиры после ремонта цена&amp;#160; &amp;#9989;Уборка помещений после ремонта&amp;#160; &amp;#9989;Услуги клининга цены&amp;#160; &amp;#9989;Клининг компания услуги&amp;#160; &amp;#9989;Услуги клининга офиса&amp;#160; &amp;#9989;Химчистка мягкой мебели москва&amp;#160; &amp;#9989;Химчистка мягкой мебели +на дому&amp;#160; &amp;#9989;Химчистка мягкой мебели +и ковров&amp;#160; &amp;#9989;Мытье окон +в москве&amp;#160; &amp;#9989;Мытье окон без разводов&amp;#160; &amp;#9989;Клининг компания услуги&amp;#160; &amp;#9989;ЭКО чистка детских кресел&amp;#160; &amp;#9989;Экологическая очистка детских комнат&amp;#160; &amp;#9989;Услуги клининга квартир&amp;#160; Заказ по тел. +7 915 204 1047 Наш канал: &lt;a href=&quot;https://t.me/wwcleaning&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://t.me/wwcleaning&lt;/a&gt;&amp;#160; &amp;#160;Вотсап: &lt;a href=&quot;https://wa.me/79152041047&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://wa.me/79152041047&lt;/a&gt;&amp;#160; Перейти: &lt;a href=&quot;https://is.gd/zYQTzR&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://is.gd/zYQTzR&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (typlwwpkam)</author>
			<pubDate>Fri, 20 Oct 2023 23:55:49 +0300</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=56#p56</guid>
		</item>
		<item>
			<title>Топовые мобильные прокси фермы MobileProxy.ru</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=55#p55</link>
			<description>&lt;p&gt;&lt;a href=&quot;https://postimages.org/&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;https://i.postimg.cc/Y2VrXMMs/topgoods.jpg&quot; alt=&quot;https://i.postimg.cc/Y2VrXMMs/topgoods.jpg&quot; /&gt;&lt;/a&gt; Внимание, владельцы бизнеса! Представляем вам уникальное решение для оптимизации вашего интернет-присутствия - топовые мобильные прокси фермы от Mobileproxy.ru! &amp;#9989; Наше оборудование это передовое устройство, которое позволяет вам выходить в интернет сразу с нескольких IP-адресов из одного места. &amp;#9989; Однако важно отметить, что наша техника не обеспечивает анонимность и она не предназначена для обхода блокировок, выход в сеть осуществляется с использованием купленных вами сим-карт. &amp;#9989; Теперь самое интересное! Приобретая оборудование от Mobileproxy.ru с использованием промокода s455, вы получаете невероятную скидку в размере 5000 рублей! Это отличная возможность сэкономить и воспользоваться передовыми технологиями для вашего бизнеса. &amp;#9989; Наши мобильные прокси фермы откроют перед вами широкие возможности. Вы сможете одновременно управлять несколькими аккаунтами, заниматься продвижением сайтов, сдавать прокси ферму в аренду, собирать данные с разных источников одновременно и многое другое где нужно одновременно несколько подключений к сети и периодическая смена ip адреса. С Mobileproxy.ru ваш бизнес будет оперативным, эффективным и успешным! &amp;#9989; Не упустите возможность улучшить свое интернет-присутствие и сэкономить деньги! Посетите наш веб-сайт &lt;a href=&quot;https://mobileproxy.ru/,&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://mobileproxy.ru/,&lt;/a&gt; выберите подходящее оборудование, введите промокод s455 при оформлении заказа и получите скидку в размере 5000 рублей! &amp;#9989; Mobileproxy.ru - ваш надежный партнер для успешного интернет-бизнеса! Перейти:&amp;#160; &lt;a href=&quot;https://is.gd/XeVnmR&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://is.gd/XeVnmR&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (typlwwpkam)</author>
			<pubDate>Mon, 03 Jul 2023 03:24:28 +0300</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=55#p55</guid>
		</item>
		<item>
			<title>Топовые мобильные прокси фермы MobileProxy.ru</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=54#p54</link>
			<description>&lt;p&gt;&lt;a href=&quot;https://postimages.org/&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;&lt;img class=&quot;postimg&quot; loading=&quot;lazy&quot; src=&quot;https://i.postimg.cc/Y2VrXMMs/topgoods.jpg&quot; alt=&quot;https://i.postimg.cc/Y2VrXMMs/topgoods.jpg&quot; /&gt;&lt;/a&gt; Внимание, владельцы бизнеса! Представляем вам уникальное решение для оптимизации вашего интернет-присутствия - топовые мобильные прокси фермы от Mobileproxy.ru! &amp;#9989; Наше оборудование это передовое устройство, которое позволяет вам выходить в интернет сразу с нескольких IP-адресов из одного места. &amp;#9989; Однако важно отметить, что наша техника не обеспечивает анонимность и она не предназначена для обхода блокировок, выход в сеть осуществляется с использованием купленных вами сим-карт. &amp;#9989; Теперь самое интересное! Приобретая оборудование от Mobileproxy.ru с использованием промокода s455, вы получаете невероятную скидку в размере 5000 рублей! Это отличная возможность сэкономить и воспользоваться передовыми технологиями для вашего бизнеса. &amp;#9989; Наши мобильные прокси фермы откроют перед вами широкие возможности. Вы сможете одновременно управлять несколькими аккаунтами, заниматься продвижением сайтов, сдавать прокси ферму в аренду, собирать данные с разных источников одновременно и многое другое где нужно одновременно несколько подключений к сети и периодическая смена ip адреса. С Mobileproxy.ru ваш бизнес будет оперативным, эффективным и успешным! &amp;#9989; Не упустите возможность улучшить свое интернет-присутствие и сэкономить деньги! Посетите наш веб-сайт &amp;lt;a href=&amp;quot;https://mobileproxy.ru/&amp;quot;&amp;gt;MobileProxy.ru&amp;lt;/a&amp;gt;, выберите подходящее оборудование, введите промокод s455 при оформлении заказа и получите скидку в размере 5000 рублей! &amp;#9989; Mobileproxy.ru - ваш надежный партнер для успешного интернет-бизнеса!&lt;/p&gt;</description>
			<author>mybb@mybb.ru (typlwwpkam)</author>
			<pubDate>Fri, 30 Jun 2023 17:16:12 +0300</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=54#p54</guid>
		</item>
		<item>
			<title>Секреты рулетки 2023г</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=53#p53</link>
			<description>&lt;p&gt;Новинка 2023г!&amp;#160; &amp;#160;&lt;a href=&quot;http://rouletka.top/&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://rouletka.top/&lt;/a&gt;&amp;#160; Отныне выиграть много и быстро для тебя станет легко. Перейди по ссылке и введи свои данные в форму подписки: &lt;a href=&quot;https://is.gd/i5L5KE&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://is.gd/i5L5KE&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (typlwwpkam)</author>
			<pubDate>Fri, 14 Apr 2023 11:28:11 +0300</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=53#p53</guid>
		</item>
		<item>
			<title>Ремонт компьютеров,ноутбуков по России</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=52#p52</link>
			<description>&lt;p&gt;Компьютеры, ноутбуки - техника современная и не застрахована от поломок. К такому типу техники нужен своевременный и комплексный подход, который могут обеспечить наши компетентные мастера. Самостоятельно починить компьютер сможет 5 человек из 100, а поломки происходят у каждого второго! Мы предоставляем услуги высокого качества по ремонту и исправлению проблем компьютерной техники более чем в 60 городах по РФ. Так же наши филиалы представлены в Республике Беларусь. Заявки обрабатываются нашими сотрудниками и не перепродаются в сторонние компании. Перейти:&amp;#160; &lt;a href=&quot;https://rempc-v-mo.ru/?t=33705&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://rempc-v-mo.ru/?t=33705&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (typlwwpkam)</author>
			<pubDate>Fri, 17 Mar 2023 06:46:45 +0300</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=52#p52</guid>
		</item>
		<item>
			<title>Ремонт компьютеров,ноутбуков по России</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=51#p51</link>
			<description>&lt;p&gt;Компьютеры, ноутбуки - техника современная и не застрахована от поломок. К такому типу техники нужен своевременный и комплексный подход, который могут обеспечить наши компетентные мастера. Самостоятельно починить компьютер сможет 5 человек из 100, а поломки происходят у каждого второго! Мы предоставляем услуги высокого качества по ремонту и исправлению проблем компьютерной техники более чем в 60 городах по РФ. Так же наши филиалы представлены в Республике Беларусь. Заявки обрабатываются нашими сотрудниками и не перепродаются в сторонние компании. Перейти:&amp;#160; &lt;a href=&quot;https://rempc-v-mo.ru/?t=33705&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://rempc-v-mo.ru/?t=33705&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (typlwwpkam)</author>
			<pubDate>Fri, 17 Mar 2023 03:39:53 +0300</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=51#p51</guid>
		</item>
		<item>
			<title>&amp;#127873; Нужна машина, квартира, хочешь взять ипотеку?</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=50#p50</link>
			<description>&lt;p&gt;&amp;#9989; Просыпаешься утром, тебе сообщение в телефоне или в телеграмме: Здравствуйте! Я хочу сделать Вам подарок 100000 руб. Дайте пожалуйста Ваши реквизиты. Хорошо даю, получаю деньги, подтверждаю и Благодарю! Через 30 минут опять сообщение от другого человека: Здравствуйте! Я хочу сделать Вам подарок 100000 руб. Отлично! Опять получаю и Благодарю! &amp;#9989; И дело даже не в деньгах. Совершенно незнакомый человек, добровольно и с удовольствием дарит тебе подарок!!! &amp;#127873; Просто смотри отзывы &lt;a href=&quot;https://t.me/DariPoluchayInfo&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://t.me/DariPoluchayInfo&lt;/a&gt; или как получают&amp;#160; подарки &lt;a href=&quot;https://t.me/ActivDariPoluchay&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://t.me/ActivDariPoluchay&lt;/a&gt; Подробнее &amp;#128071;&amp;#127995;&amp;#128071;&amp;#127995;&amp;#128071;&amp;#127995;&amp;#128071;&amp;#127995;&amp;#128071;&amp;#127995; &lt;a href=&quot;https://t.me/dari_Valeri_bot&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;https://t.me/dari_Valeri_bot&lt;/a&gt;&lt;/p&gt;</description>
			<author>mybb@mybb.ru (typlwwpkam)</author>
			<pubDate>Tue, 03 Jan 2023 11:55:32 +0300</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=50#p50</guid>
		</item>
		<item>
			<title>работа с файлами</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=49#p49</link>
			<description>&lt;p&gt;помогите пожалуйста, как определить сколько символов находится в файле? чтобы в дальнейшем с этими символами можно было работать?&lt;br /&gt;заранее спасибо)&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 16.5em&quot;&gt;&lt;pre&gt;var
str:TStringList;
dlina:string;
begin
str := TStringList.Create;
str.LoadFromFile(&#039;C:\01.txt&#039;);
dlina := IntToStr(Length(str.Text)-2);
str.Free;
end;&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Mon, 16 Jul 2012 11:38:59 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=49#p49</guid>
		</item>
		<item>
			<title>Не могу скопировать компонент</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=48#p48</link>
			<description>&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 22.5em&quot;&gt;&lt;pre&gt;   Clipboard.Open;
      Clipboard.SetComponent(frmMain.Tarakan0);
      NewTarakan:=Clipboard.GetComponent(frmMain, frmMain) as TImage;
      Clipboard.Clear;
   Clipboard.Close;

   with NewTarakan do
   begin
      Name:=&#039;Tarakan&#039;+IntToStr(frmMain.Tag);
      Left:=0; Top:=Random(407);
      Show;
   end;
   frmMain.Tag:=frmMain.Tag+1;&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;Этот код должен копировать изображение Tarakan0 в Tarakan&amp;lt;frmMain.Tag&amp;gt;. Код работает, но только первый раз, на второй раз ошибка. Как ее устранить?&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;br /&gt;Ошибка не связана случаем с попыткой присвоения существующего имени в Name?)&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Mon, 16 Jul 2012 11:35:37 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=48#p48</guid>
		</item>
		<item>
			<title>узнать дату установки ОС на компьютере</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=47#p47</link>
			<description>&lt;p&gt;Собственно вопрос мой звучит также как и название темы&amp;#160; как же средствами делфи узнать дату установки виндовс или сколько дней она уже в работе?&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;br /&gt;1)&lt;/p&gt;&lt;div class=&quot;quote-box quote-main&quot;&gt;&lt;blockquote&gt;&lt;p&gt;В Реестре Windows (см. Что такое Реестр Windows?) дата установки операционной системы хранится в шестнадцатеричном виде в разделе &lt;br /&gt; [HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion] в REG_DWORD-параметре InstallDate, например, 45e19ed9 (1172414169), в скобках указано десятичное число.&lt;br /&gt; Параметр InstallDate показывает количество секунд, прошедших с 1 января 1970 г. до момента установки операционной системы.&lt;/p&gt;&lt;/blockquote&gt;&lt;/div&gt;&lt;p&gt;cmd -&amp;gt; systeminfo&amp;gt;temp.tmp дальше парсить temp.tmp&lt;br /&gt;2) из библиотеки Abbrevia, модуль AbUtils.pas&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;{ date and time stuff }
const
  Date1900 {: LongInt} = $0001AC05;  {Julian day count for 01/01/1900 -- TDateTime Start Date}
  Date1970 {: LongInt} = $00020FE4;  {Julian day count for 01/01/1970 -- Unix Start Date}
  Unix0Date: TDateTime = 25568;      {Date1970 - Date1900}

  SecondsInDay    = 86400;  {Number of seconds in a day}
  SecondsInHour   =  3600;  {Number of seconds in an hour}
  SecondsInMinute =    60;  {Number of seconds in a minute}
  HoursInDay      =    24;  {Number of hours in a day}
  MinutesInHour   =    60;  {Number of minutes in an hour}
  MinutesInDay    =  1440;  {Number of minutes in a day}

  function AbUnixTimeToDateTime(UnixTime : LongInt) : TDateTime;
  function AbDateTimeToUnixTime(DateTime : TDateTime) : LongInt;

function AbUnixTimeToDateTime(UnixTime : LongInt) : TDateTime;
{ convert unix date to Delphi TDateTime }
var
  Hrs, Mins, Secs : Word;
  TodaysSecs : LongInt;
begin
  TodaysSecs := UnixTime mod SecondsInDay;
  Hrs := TodaysSecs div SecondsInHour;
  TodaysSecs := TodaysSecs - (Hrs * SecondsInHour);
  Mins := TodaysSecs div SecondsInMinute;
  Secs := TodaysSecs - (Mins * SecondsInMinute);

  Result := Unix0Date + (UnixTime div SecondsInDay) +
    EncodeTime(Hrs, Mins, Secs, 0);
end;
{ -------------------------------------------------------------------------- }
function AbDateTimeToUnixTime(DateTime : TDateTime) : LongInt;
{ convert Delphi TDateTime to unix date }
var
  Hrs, Mins, Secs, MSecs : Word;
  Dt, Tm : TDateTime;
begin
  Dt := Trunc(DateTime);
  Tm := DateTime - Dt;
  if Dt &amp;lt; Unix0Date then
    Result := 0
  else
    Result := Trunc(Dt - Unix0Date) * SecondsInDay;

  DecodeTime(Tm, Hrs, Mins, Secs, MSecs);
  Result := Result + (Hrs * SecondsInHour) + (Mins * SecondsInMinute) + Secs;
end;&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Mon, 16 Jul 2012 11:32:05 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=47#p47</guid>
		</item>
		<item>
			<title>Функции для сравнение строк</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=46#p46</link>
			<description>&lt;p&gt;Какие есть функции, для сравнивания строк?&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;Модуль StrUtils. &lt;br /&gt;CompareStr есть и там и в SysUtils&lt;/p&gt;
						&lt;p&gt;Или простое сравнивание с учетом регистра : &lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 6em&quot;&gt;&lt;pre&gt;if S = &#039;test&#039; then
if S &amp;lt;&amp;gt; S2 then&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Mon, 16 Jul 2012 11:28:40 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=46#p46</guid>
		</item>
		<item>
			<title>Постоянная работа программы</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=45#p45</link>
			<description>&lt;p&gt;Пишу программу, которая в цикле через определенный интервал времени проводить некоторые действия в интернете(например, публикация сообщений на сайте). Можно ли как-то сделать так, чтобы программа работала и при выключенном компьютере?&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;Можно. Покупаешь дедик, стираешь дельфи, ставишь похапе или подобную хурму типа питона и на него переписываешь свою программу. Заливаешь на сервер. В кроне прописываешь правила когда ее стартовать. Все, выключаешь комп, спишь спокойно. Либо бери VDS/VPS с ОС Win сервера.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Mon, 16 Jul 2012 11:26:41 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=45#p45</guid>
		</item>
		<item>
			<title>Не создается форма</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=44#p44</link>
			<description>&lt;p&gt;Привет=)&lt;br /&gt; посмотрите пожалуйста пример...&lt;br /&gt; там не работает создание форм &lt;br /&gt; Файл txt с описанием проблемы внутри&lt;br /&gt;&lt;a href=&quot;http://qps.ru/AIBqL&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;3.rar&lt;/a&gt;&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 9em&quot;&gt;&lt;pre&gt; f2:=TForm.Create(scrollbox);
  f2.Parent:=scrollbox;
//они все лежат друг на друге (видно только саму верхнюю)
  f2.Align:=altop; // располагаем по порядку сверху вниз&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;div class=&quot;quote-box quote-main&quot;&gt;&lt;blockquote&gt;&lt;p&gt;Далее выбираем второго ученика и тоже нажимаем на кнопку - и вот, на ScrollBox уже две формы и т.д. &lt;br /&gt; Хотелось бы чтоб на ScrollBox были все ученики, т.е. более 10 форм.&lt;/p&gt;&lt;/blockquote&gt;&lt;/div&gt;&lt;p&gt;Или все таки надо чтобы появились сразу все (за одно нажатие кнопки) формы (ученики).&lt;/p&gt;&lt;div class=&quot;quote-box quote-main&quot;&gt;&lt;blockquote&gt;&lt;p&gt;f2.label2.Caption:=cbb1.Items[cbb1.ItemIndex];&lt;/p&gt;&lt;/blockquote&gt;&lt;/div&gt;&lt;p&gt;добавить это:&lt;/p&gt;&lt;div class=&quot;quote-box quote-main&quot;&gt;&lt;blockquote&gt;&lt;p&gt;f2.Visible := True;&lt;/p&gt;&lt;/blockquote&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Mon, 16 Jul 2012 11:22:06 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=44#p44</guid>
		</item>
		<item>
			<title>Проблема с динамическим массивом...</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=43#p43</link>
			<description>&lt;p&gt;есть у кого соображения как сделать чтоб с выделенными жирным и подчеркнутым строчками работал данный код...&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;unit Unit1;

interface

uses
  Windows, Forms, MMSystem, Classes, Controls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  const
  sps	= 8000;	// samples per second
  freq1	= 1000;	 	// signal frequency (Hz)
  freq2	= 1000;	 	// signal frequency (Hz)
  freq3	= 1000;	 	// signal frequency (Hz)
  time1	= 1000;    // time of signal (ms)
  time2	= 1000;    // time of signal (ms)
  time3	= 1000;    // time of signal (ms)
  Volume1 = 32767;
  Volume2 = 32767;
  Volume3 = 32767;

type
  int16 = smallint;

var
  Form1: TForm1;
  hdr: array[0..2] of WAVEHDR;
  //second: array[0..2, 0..sps-1] of int16;	// full second
  second: array of array of int16;	// full second
implementation

{$R *.dfm}
procedure prepareSine();
var
  i, nSamples: Integer;
  angle, delta: double;
begin
  nSamples := sps * time1 div 1000;	// signal length in samples
  //
  angle := 0;
  delta := (freq1 / sps) * 2 * Pi;	// how much in one sample
  //
  for i := 0 to nSamples - 1 do begin
    //
    second[0, i] := random(Volume1*2-Volume1);//round(sin(angle) * Volume1);
    angle := angle + delta;
  end;

  nSamples := sps * time2 div 1000;	// signal length in samples
  //
  angle := 0;
  delta := (freq2 / sps) * 2 * Pi;	// how much in one sample
  //
  for i := 0 to nSamples - 1 do begin
    //
    second[1, i] := round(sin(angle) * Volume2);
    angle := angle + delta;
  end;

  nSamples := sps * time3 div 1000;	// signal length in samples
  //
  angle := 0;
  delta := (freq3 / sps) * 2 * Pi;	// how much in one sample
  //
  for i := 0 to nSamples - 1 do begin
    //
    second[2, i] := round(sin(angle) * Volume3);
    angle := angle + delta;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  wout: hWaveOut;
  fmt: tWAVEFORMATEX;
begin
  SetLength(second, 3, sps);
  prepareSine();
  //
  With fmt do
  Begin
    wFormatTag := WAVE_FORMAT_PCM;
    nChannels := 1;
    nSamplesPerSec := SPS;
    wBitsPerSample := 16;
    nBlockAlign := nChannels*wBitsPerSample div 8;
    nAvgBytesPerSec := nSamplesPerSec*nBlockAlign;
    cbSize := 0;
  End;
  //
  WaveOutOpen(@wout, cardinal(-1), @fmt, 0, 0, 0);
  if (0 &amp;lt;&amp;gt; wout) then
  begin
    //
    for i := 0 to 2 do
    begin
      //
      fillChar(hdr[i], sizeof(hdr[i]), #0);
      hdr[i].lpData := @second[i];
      hdr[i].dwBufferLength := sizeof(second[i]);
      //
      waveOutPrepareHeader(wout, @hdr[i], sizeof(hdr[i]));
      WaveOutWrite(wout, @hdr[i], sizeof(hdr[i]));
    end;
    //
    //Sleep(3100);	// sleep for 3 seconds
    //
    waveOutUnprepareHeader(wout, @hdr, sizeof(TWAVEHDR));
    WaveOutClose(wout);
  end;
end;

end.&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;Указателем на элемент динамического массива должен быть первый элемент и функция SizeOf не применима к вложенным в массив последовательностям. Ее надо тоже заменить. Например, как ниже показано.&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 35em&quot;&gt;&lt;pre&gt;var
  hdr: WAVEHDR;

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: integer;
  wout: hWaveOut;
  fmt: tWAVEFORMATEX;
begin
  SetLength(second, 3, sps);
  prepareSine();

  with fmt do Begin
    wFormatTag := WAVE_FORMAT_PCM;
    nChannels := 1;
    nSamplesPerSec := SPS;
    wBitsPerSample := 16;
    nBlockAlign := nChannels*wBitsPerSample div 8;
    nAvgBytesPerSec := nSamplesPerSec*nBlockAlign;
    cbSize := 0;
  end;

  WaveOutOpen(@wout, cardinal(-1), @fmt, 0, 0, 0);
  if (0 &amp;lt;&amp;gt; wout) then begin
    for I := 0 to 2 do begin
      hdr.lpData := @second[i][0];
      hdr.dwBufferLength := sps;

      waveOutPrepareHeader(wout, @hdr, sizeof(hdr));
      WaveOutWrite(wout, @hdr, sizeof(hdr));
      Sleep(2100);	
    end;

    waveOutUnprepareHeader(wout, @hdr, sizeof(TWAVEHDR));
    VirtualFree(@second,0,MEM_RELEASE);
    WaveOutClose(wout);
  end;
  second := nil;
end;&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;&lt;p&gt;Так работает.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Mon, 16 Jul 2012 11:16:48 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=43#p43</guid>
		</item>
		<item>
			<title>как определить, обновилось ли чужое окно</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=42#p42</link>
			<description>&lt;p&gt;сабж.&lt;br /&gt; Есть программа, к ней подгружается длл. Из нее надо определить, обновилась ли форма, если да - то выполнить код..&lt;/p&gt;
						&lt;p&gt; есть какая нибудь функция?&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;br /&gt;перехват WM_PAINT устройте.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Mon, 16 Jul 2012 11:14:19 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=42#p42</guid>
		</item>
		<item>
			<title>Blacklist</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=41#p41</link>
			<description>&lt;p&gt;Поскольку наш форум все же содержит Куплю-Продажу то необходим и личный список кидал, мошенников и прочих темных личностей.&lt;br /&gt;В эту тему добавляются только контакты и суть проблемы. Логи переписки и т.д. не нужны.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Mon, 16 Jul 2012 11:10:58 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=41#p41</guid>
		</item>
		<item>
			<title>изменение названий кнопок</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=40#p40</link>
			<description>&lt;p&gt;подскажите, пожалуйста, как сделать так чтобы при помещении компонентов на форму имена кнопок не изменялись автоматически? например чтобы было button1, а не btn1 или memo, а не mmo.&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;понаставили дополнений к IDE терь удивляетесь, настраивать то кто должен?&lt;br /&gt; CnWizards это, ищите в панели меню он должен был се создать отдельный пункт.&lt;br /&gt;Cn-Pack-&amp;gt;Префикс-мастер.&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Tue, 10 Jul 2012 10:36:03 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=40#p40</guid>
		</item>
		<item>
			<title>Использование двух TreeView</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=39#p39</link>
			<description>&lt;p&gt;Всем доброго дня! &lt;br /&gt;Суть проблемы в следующем: &lt;br /&gt;Имеются два TreeView аналогичные по структуре (но не по содержимому), как сделать так чтобы при выделении узла или элемента в одном из них указатель на втором переходил на тот-же узел (элемент) с раскрытием узла если это необходимо. &lt;br /&gt;Решения не нашел в форумах.&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 9em&quot;&gt;&lt;pre&gt;procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  TreeView2.Selected:=TreeView2.Items[TreeView1.Selected.AbsoluteIndex];
end;&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Tue, 10 Jul 2012 10:34:20 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=39#p39</guid>
		</item>
		<item>
			<title>ребят ответьте на пару вопросов</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=38#p38</link>
			<description>&lt;p&gt;1) как можно зарегистрировать глобальные клавиши и менять их в время работы программы.&lt;br /&gt;2)как зарегать все звуковые файлы за моим приложением.&lt;br /&gt;3)как изменить иконку звуковых файлов?&lt;br /&gt; зарание спасибо всем!!&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;1) &lt;a href=&quot;http://www.ru-coding.com/pas_4.php&quot; rel=&quot;nofollow&quot; target=&quot;_blank&quot;&gt;http://www.ru-coding.com/pas_4.php&lt;/a&gt;&lt;br /&gt;2) Ассоциация файлов&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Tue, 10 Jul 2012 10:32:06 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=38#p38</guid>
		</item>
		<item>
			<title>реализация 8-bit музыки в программе</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=37#p37</link>
			<description>&lt;p&gt;Хотел узнать может кто делал или знает как реализовать 8 битовую мелодию (пример кейгены у них тоже играет 8 бит музыка) !&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;Библиотеки minifmod, ufmod. Саму &amp;quot;музыку из кряков&amp;quot; пишут в трекерах&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Tue, 10 Jul 2012 10:28:56 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=37#p37</guid>
		</item>
		<item>
			<title>Как добавить кнопки showmessage?</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=36#p36</link>
			<description>&lt;p&gt;Как сообщению показываемого функцией Showmessage добавить кнопки (Да, Нет в моем случае)?&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;/p&gt;&lt;div class=&quot;code-box&quot;&gt;&lt;strong class=&quot;legend&quot;&gt;Код:&lt;/strong&gt;&lt;div class=&quot;blockcode&quot;&gt;&lt;div class=&quot;scrollbox&quot; style=&quot;height: 4.5em&quot;&gt;&lt;pre&gt;MessageDlg(&#039;Are you sure?&#039;, mtConfirmation, [mbYes, mbNo, mbCancel], 0);&lt;/pre&gt;&lt;/div&gt;&lt;/div&gt;&lt;/div&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Tue, 10 Jul 2012 10:25:18 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=36#p36</guid>
		</item>
		<item>
			<title>Завис программы при попытки воспроизвести анимацию</title>
			<link>https://softik.0pk.me/viewtopic.php?pid=35#p35</link>
			<description>&lt;p&gt;Завис программы при попытки воспроизвести анимацию.&lt;br /&gt; Помогите пожалуйста, что делать?&lt;br /&gt; Установил GifImage. Загрузил Gif анимацию. В выборе - отображается. первый раз поставил - тоже отображается. А дальше стопается. и при открытии программы виснет вся программа.&lt;/p&gt;
						&lt;p&gt;&lt;span style=&quot;color: blue&quot;&gt;Решение:&lt;/span&gt;&lt;/p&gt;
						&lt;p&gt;Rxgif ест такой компонент&lt;/p&gt;</description>
			<author>mybb@mybb.ru (Zod)</author>
			<pubDate>Tue, 10 Jul 2012 10:23:45 +0400</pubDate>
			<guid>https://softik.0pk.me/viewtopic.php?pid=35#p35</guid>
		</item>
	</channel>
</rss>
