Вывод очередного мешка с деньгами

ЗА январь и февраль заработал на маинлинке всего 222 рубля. То есть примерно по 100 рублей в месяц. Раньше в этой системе было три сайта, данный сайт и 2 псевдо сайта


Как я заделывал стык между ванной и стеной

Много лет назад, когда въехали в советскую квартиру стык между ванной и стеной был залит цементом и закрашен краской (обычной). Но поскольку краска со временем


Cломались колонки sven 250

На колонках sven 250, после 2 лет использование сломался регулятор громкости. ОН как бы работает иногда, но часто колонка трещит, или вообще звук пропадает, пока на


Сломался стробоскоп – тахометр мультитроникс с2

После года эксплуатации сломался мой стробоскоп мультитроникс с2. Просто перестал включаться, не горел индикатор, не светилась лампа. Сломался после окончание


Как запустить несколько презентаций подряд

Иногда нужно запустить несколько презентаций подряд на одном компьютере, что бы они крутились бесконечно. Можно пойти двумя путями 1: это склеить все презентации


Функция для удаления папки с файлами

Что бы удалить папку  с файлами можно воспользоваться данной функцией   function DelDir (dir: string): Boolean; var fos: TSHFileOpStruct; begin ZeroMemory (@fos, SizeOf (fos)); with fos do begin wFunc  := FO_DELETE; fFlags :=


Создать ярлык на Delphi

Что бы создать  ярлык на делфи достаточно вызвать следующую процедур. procedure CreateLink (const PathObj, PathLink, Desc, Param: string); var IObject: IUnknown; SLink: IShellLink; PFile: IPersistFile; begin IObject := CreateComObject