Здравствуйте уважаемые подписчики рассылки "Интернет для Delphi программиста". Данная рассылка предназначена для всех кого интересует Delphi, здесь будут выкладываться ссылки на различные ресурсы интернета так или иначе связанные с Delphi: книги, исходники, программы... Изучайте Delphi один из лучших языков программирования!!!

ЗАДАТЬ ВОПРОС :

Правила рассылки: 
1. Не присылайте ответов на вопросы типа "да, нет".  
2. Если отвечаешь на вопрос - то отвечай подробно с примерами (желательно с исходником примера).
3. Тема вопросов - программирование на Delphi.
Внимание авторам: - Я не указываю ваши адреса из-за спама, но кто хочет, чтобы его email был - пишите, иначе только имя(ник).
Отправить вопрос

Новые вопросы.

Ответы.

procedure TForm1.Edit1Change(Sender: TObject);
var
  Rect : TRect;
  bm : TBitmap;
begin
   Windows.GetClientRect( Edit1.Handle, Rect );
   bm := TBitmap.Create;
   bm.Width := Rect.Right;
   bm.Height := Rect.Bottom;
   bm.Canvas.Font := Edit1.Font;
   Caption := IntToStr( bm.Canvas.TextWidth( Edit1.Text ) );
   bm.Free;
end;

var
 XL: TExcelApplication;
 ...

  (XL.ActiveWorkbook.Sheets[1] as _Worksheet).Activate(lcid);
  with XL.ActiveWorkbook do
      (Worksheets.Item[1] as _Worksheet).Delete(lcid);

Допустим, ты выводишь видео на Panel1, то есть
MediaPlayer1.Display := Panel1.
Тогда обрабатываешь Panel1.Resize (или Form1.Resize)

procedure TForm1.Panel1Resize(Sender: TObject);
begin
   MediaPlayer1.DisplayRect := Panel1.BoundsRect;
end;

uses
  ..., Registry, ShlObj, ComObj, ActiveX;

function TForm1.CreateShortcut(const CmdLine, Args, WorkDir, LinkFile,
  IconFile: string): IPersistFile;
var
  MyObject: IUnknown;
  MySLink: IShellLink;
  MyPFile: IPersistFile;
  WideFile: WideString;
begin
   MyObject := CreateComObject( CLSID_ShellLink );
   MySLink := MyObject as IShellLink;
   MyPFile := MyObject as IPersistFile;
   with MySLink do
   begin
      SetPath( PChar( CmdLine ) );
      SetIconLocation( PChar( IconFile ), 0 );
      SetArguments( PChar( Args ) );
      SetWorkingDirectory( PChar( WorkDir ) );
   end;
   WideFile := LinkFile;
   MyPFile.Save( PWChar( WideFile ), false );
   Result := MyPFile;
end;

// CmdLine - путь к файлу
// Args - параметры командной строки
// WorkDir - директория, в которой находится файл
// LinkFile - путь к папке, в которой будет создан ярлык
// IconFile - путь к файлу-иконке

function TForm1.GetSystemDir(Key: string): string;
var
  Reg: TRegistry;
begin
   Reg := TRegistry.Create;
   Reg.RootKey := HKEY_CURRENT_USER;
   Reg.OpenKey( 'SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false );
   Result := Reg.ReadString( Key ) + '\';
   Reg.CloseKey;
   Reg.Free;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   if FileOpenDialog.Execute then
   begin
      Edit1.Text := ExtractFileName( FileOpenDialog.FileName );
      Edit2.Text := FileOpenDialog.FileName;
      Edit3.Text := ExtractFilePath( FileOpenDialog.FileName );
   end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   if IconOpenDialog.Execute then
   begin
      Edit5.Text := IconOpenDialog.FileName;
      Image1.Picture.LoadFromFile( Edit5.Text );
   end;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
  i: integer;
begin
   for i := 1 to 5 do
      TEdit( FindComponent( 'Edit' + IntToStr( i ) ) ).Text := '';
   Image1.Picture := nil;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
var
  Error: boolean;
  s: string;
begin
   Error := false;
   
   // Проверяем наличие имени ярлыка
   if Edit1.Text = '' then
   begin
      MessageDlg( 'Укажите имя ярлыка.', mtWarning, [mbYes], 0 );
      Error := true;
   end;

   // Если имя ярлыка указано, проверяем существование данного файла
   if not Error then
      if Edit2.Text = '' then
      begin
         MessageDlg( 'Не указан путь к файлу.', mtWarning, [mbYes], 0 );
         Error := true;
      end
      else
         begin
            if not FileExists( Edit2.Text ) then
            begin
               MessageDlg( 'Указанный файл не существует.', mtWarning, [mbYes], 0 );
               Error := true;
            end;
         end;

   // Если указанный файл существует, создаем для него ярлык
   if not Error then
      case RadioGroup1.ItemIndex of
         // Ярлык на рабочем столе
         0: CreateShortcut( Edit2.Text, Edit4.Text, Edit3.Text, 
            GetSystemDir( 'Desktop' ) + Edit1.Text + '.lnk', Edit5.Text );
         // Ярлык на панели быстрого запуска
         1: begin
               s := 'Microsoft\Internet Explorer\Quick Launch\';
               CreateShortcut( Edit2.Text, Edit4.Text, Edit3.Text, 
               GetSystemDir( 'AppData' ) + s + Edit1.Text + '.lnk', Edit5.Text );
            end;
      end;
end;

UpEdit [D6] 
Компонент является наследником класса TEdit. У компонента добавилось событие OnChange, реагирующее на изменение содержимого поля Text. Добавилось свойство: TextAlign (выравнивает текст по левому краю, либо по правому краю, либо по центру). 

UpProgressBar [D6] 
Компонент является наследником класса TProgressBar. Добавлены два свойства: Color (позволяет изменять цвет фона компонента) и LineColor (изменяет цвет самой линии). 

UpTrackBar [D6] 
Компонент является наследником класса TTrackBar. Добавлено свойство SelRange, который позволяет избавиться от белого поля под ползунком, заменив его тонкой линией. Также в компонент добавлены мышиные события OnMouseWheel, OnMouseWheelDown, OnMouseWheelUp, OnMouseDown, OnMouseMove, OnMouseUp. 

UpStatusBar [D6] 
Компонент является наследником класса TStatusBar. UpStatusBar отличается от своего предка тем, что способен принимать на себя другие компоненты (быть контейнером вроде TPanel). 

UpSplitter [D6] 
Компонент является наследником класса TSplitter. В UpSplitter добавлено несколько событий, которые расширяют его возможности и дают больший контроль над этим компонентом: OnMouseDown, OnMouseMove, OnMouseUp, OnClick, OnDblClick. 

UpBevel [D6] 
Компонент является наследником класса TBevel. В UpBevel добавлены следующие свойства и события, которых он по непонятным причинам лишен изначально: OnClick, OnContextPopup, OnDblClick, OnDragDrop, OnDragOver, OnEndDock, OnEndDrag, OnMouseDown, OnMouseMove, OnMouseUp, OnStartDock, OnStartDrag, PopupMenu, DragCursor, DragKind, DragMode. 

UpListView [D6] 
Компонент является наследником класса TListView. Его основное назначение, выводить картинку в заголовке таблицы в режиме vsReport. В компоненте появилось четыре новых свойства и три новых события. Более подробно читайте в ReadMe.txt в архиве. К компоненту прилагается пример. 

JVDialogs 
Очень хороший компонент. В нем представлены практически все возможные в среде Windows диалоговые окна, которых нет в стандартной поставке Delphi, и в каждом из этих окон очень полно представлены все его свойства. 

psvDialogs 
Бибилиотека компонентов, основанная на недокументированных функциях Windows. В неё входит 18 дополнительных и улучшенных диалогов (MS Explorer "Упорядочить избранное", стандартный диалог Windows "О программе...", диалог свойств файла или другого объекта системы, диалог "Создать ярлык" и др.), а также несколько полезных функций. После установки они добавляются на вкладку Dialogs. 

Caption Button 1.5 
Этот компонент добавляет еще одну кнопочку в заголовке окна с любой, выбранной вами, картинкой. Прилагаемые примеры помогут быстро во всем разобраться. 

DsFancyButton 
Неплохая кнопка, у которой можно изменять форму.

ButtonComponents 1.0 
Неплохой набор из пяти кнопок, способный преобразить вашу программу.

JanButton 1.0 
Нет предела человеческой фантазии. Это набор из 14 кнопок разнообразных форм (круглые, треугольные, ромбовидные и т.д. и т.п.). Не знаю, станете ли вы использовать их в своих проектах, но посмотреть на это стоит! 

AVLabel Pack 
Набор из 9 Label'ов. От обычных до совмещенных с CheckBox'ом или ProgressBar'ом. Поддерживают различные стили, могут иметь прозрачный или градиентный фон и т.д. Компонент распространяется без исходников, а пример - простой exe-файл. 

THTMListBox 
Расширенный вариант Listbox, среди основных отличий которого:

• Listbox, который может содержать элементы с HTML форматированием, включая отступы и графику.
• Поиск, сортировка, доступ к тексту без HTML тэгов.
• Поддержка PictureContainer для добавления GIF, JPEG, BMP, ICO или WMF файлов в Listbox.
• Поддержка анимированных GIF.
• Прямая подсветка текста в listbox, а также выделение ошибок.
• Возможность использования хинтов для элементов, хинтов для ссылок.
• Возможность отображения мигающего текста.

BarMenu Component 
BarMenu Component это пакет для создания меню или всплывающего меню с перетеканием цветов (градиентом), как это сделано в меню "Пуск". Области градиента масштабируются динамически, и Вы получаете очень гладкий градиент с настраиваемыми цветами. Еще Вы можете накладывать рисунок на область градиента, или использовать его с градиентом. Область градиента можно дополнить вертикальной надписью. Вы можете добавить дополнительный рисунок (логотип), который можно позиционировать с точностью до 1 пикселя. Строки разделителя меню могут быть оттянуты как это сделано в officе 2000. Строка разделителя меню может иметь текст - как в ICQ. Еще Вы можете отслеживать события и рисовать строку меню сами, для большей гибкости. Компонент совместим с VCL так что Вы можете просто конвертировать существующее меню. С исходными текстами. 

FlatMenu 
Компонент, способный изменить вид стандартного меню. Кидаем но форму обычное MainMenu, добавляем необходимые пункты, добавляем FlatMenu. В свойстве AssignedMenu добавляем наше MainMenu и все готово. 

TsMenuManager 
Компонент для изменения вида стандартного меню. Есть возможность задать фон меню из *.bmp картинки или сделать его градиентным, настроить цвета и многое другое. Смотрите пример. 

RegMru 
Надстройка для меню, позволяющая создавать что-то вроде истории последних открытых файлов. Вся информация сохраняется в реестре, ветвь и место можно задать. Список файлов назначается указанному пункту меню. Более подробная информация есть в архиве. 

XPmenu v3.1 
XP Меню - это не визуальный компонент, который изменяет визуальные аспекты меню, инструментальных панелей и многих других средства управления, делая их стиль похожим на стиль MS Офиса XP. В архиве есть примеры. 

Text 3d 
Этот компонент реализует вывод на экран трёхмерного текста средствами OpenGL, которые в настоящее время поддерживаются всеми без исключения выпускаемыми видеокартами. Очень много настроек, описание которых вы найдете а архиве с компонентом. 

GLPanel 
"Бросив" панельку на форму, вы получите возможность что-нибудь крутить/двигать на ней. Она скорее будет полезна, как пример работы с OpenGL. Исходные тексты прилагаются. 

GLVisir 
GLVisir компонент отрисовывающий на экране анимированные или статические 3D сцены используя hardware или software OpenGL. Для инсталляции требуется компонент TColorPickButton (он есть в архиве). 

CollapsePanel 
Каждый знаком с панельками, которые сворачиваются и разворачиваются. В отличие от подобных "групп" в Windows XP, CollapsePanel имеют сравнительно простой внешний вид, но здорово украсят любую программу. 

TIAsemiPanel 
Этот компонент наследник TPanel с набором дополнительных свойств одно из которых полупрозрачность Компонент предоставляет следующие свойства:

1. Реальную каскадируемую полупрозрачность
2. Градиентную заливку с произвольно выбираемым углом
3. Три формы панели
4. Свободное вращение панели
5. Произвольный выбор материала панели с тремя способами заполнения им
6. Независимая регулировка ширины внутреннего и внешнего бевела
7. Расчет света/тени в реальном времени для произвольного угла поворота
8. 3 трехмерных стиля для заголовка панели, заголовок под любым углом в любом месте панели

TQProgressBar 
Это ни что иное, как ProgressBar. И хотя выглядит он очень симпатично, имеет множество настроек и, несомненно, заслуживает внимания к себе, разработчикам нужно еще немало поработать над ним (лично я внес в этот компонент некоторые дополнения, а если вам нужен оригинал, то вы найдете его на сайте разработчиков, его адрес есть в readme.txt). В архиве есть неплохой пример. 

Rar Progress 
Progress Bar как у WinRAR. Большие возможности по настройке цвета, может быть "двойным". После установки помещается на вкладку "Samples". 

TStatusBarPro 
StatusBar с расширенными возможностями. На него можно класть другие компоненты, каждой отдельной панели можно задать свой собственный цвет, вид бардюра, назначить PopupMenu, обрабатывать OnClick и OnDblClick. Есть возможность отрисовывать иконки из ListBox'а. В архиве есть пример. 

ToolBar2000 v2.1.2 
Замена стандартным тулбарам и менюшкам - очень удобная вещь. Перетаскиваемые тулбары, панели инструментов и popup-окна. Меню поддерживает скролинг, а также эффекты затемнения и развертывания, если это позволяет операционная система. Также имеется много других полезных вещей... В архиве есть очень хороший пример. 
Продукт freeware только для некоммерческого использования. 

PJCBView 
Если вам нужно обработать такое событие как "Изменение буфера обмена", то этот компонент способен значительно улучшить вам жизнь. Легок в использовании. 

TPuzzle 
Компонент TPuzzle позволяет писать игры-головоломки типа "Пятнашек".

От классической головоломки отличается тем что позволяет использовать в качестве игрового поля любую фотографию или рисунок в формате *.bmp или *.jpg и разбивать ее на любое количество кавадратиков. А также:

• Отображает сетку.
• устанавливает цвет сетки.
• отображает нумерацию кавадратиков.
• установка шрифта для нумерации.

Cards 
Эти три компонента помогут вам написать свои пасьянсы или другие карточные игры. В пакет входят 3 компонента:

• TCard - Игральная карта. Параметры: выделение, поворот, имитация стопки, ч/б картинка.
• TExpandedCard - Тоже игральная карта, но картинки берутся из внешнего файла формата bmp или jpg. Параметры: выделение, горизонтальное/вертикальное расположение, имитация стопки, ч/б картинка.
• TColoda - Невизуальный компонент. Формирует колоду (список значений масти и достоинства) в 32, 52 или 104 листа, тасует колоду.

ADTetrisGame 
Delphi компонент для создания игр типа Tetris. Особенности:

• Может использоваться как в WinAPI так и в VCL приложениях.
• Куча настроек.
• Простота создания собственных проектов (в архиве есть пример).
• Исходники снабжены комментариями.

LCD Screen 
Очень симпатичный на вид, и очень легкий по смыслу компонент - ЖК дисплей. Очень хорошо подходит для программ, в которых необходимо цифровое табло, или бегущая строка. Компонент поддерживает русские шрифты. 

Digit 
Этот компонент предназначенный для имитации жидкокристаллического индикатора. Вы можете устанавливать любую комбинацию палочек. Также есть возможность ввести какой-нибудь символ, например "3", и компонент сам установит нужную комбинацию палочек. Все цвета и стили, как горящих, так и не горящих палочек, можно менять. Можно наклонить символ. 

TIAeverLiquidIndicator 
Это Универсальный индикатор выглядящий как индикатор на жидких кристаллах.

1. 3 основных типа (ik7segment,ik5x7matrix,ik9segment)
2. Можно выбрать материал для фона и для цифр
3. Любое количество знаков от 1 до практической бесконечности
4. Может быть отражена любая строка (на английском, если вообще такое возможно для данного типа индикатора)
5. Свободное изменение размеров
6. Свободный выбор цвета для любой части индикатора
7. 7 предопределенных цветовых схем
8. 2 бордюра, внешний и внутренний 3 видов (bkUP,bkDown,bkNone)
9. 3 типа жирности написания символов
10. 3 типа прозрачности
11. Mouse Action - реакция индикатора на движения мыши
12. Индикатор может быть повернут на произвольный угол

Info 
Компонент для того, чтобы получать очень много информации о компьютере, системе и т.д. Выдает информацию о BIOS, процессоре, различных видах памяти, о модемах, дисках, свойствах пользователя и много много другой полезной информации. 

DCPCrypt 
Один из известных пакетов для шифровки и расшифровки данных. Содержит более 100 алгоритмов шифрования. 

TmxStorage v1.20 
Этот компонент может сохранять файлы внутри вашего приложения, поддерживает сжатие. Может извлекать файлы из исполняемого файла во время выполнения. Вы можете обращаться к сохраненным файлам непосредственно в памяти. 

TmxProtector v1.31 
Компонент для защиты ваших приложений. Поддерживает следующие варианты защиты: ограничение по времени, по количеству запусков, защиту с использованием пароля, регистрацию. Можно создать генератор ключей с использованием аппаратной поддержки. 

TmxOutlook v1.53 
Это панель, подобная той, что в MS Outlook. Можно создать любое количество вкладок. Имеет много настраиваемых параметров: фон, шрифты, иконки и т.д. Поддерживает различные стили. 

TmxCalendar v1.22 
Календарь с большим количеством настроек. Можно задать цвета для рабочих и выходных дней, выбрать начальный день (воскресенье или понедельник), установить формат даты и другие настройки. 

TmxCaptionBarButton v1.11 
Этот компонент создает в заголовке окно дополнительные кнопки. Их можно объединять в группы (как SpeedButton), назначать им PopupMenu, добавлять текст. Можно добавлять им различные действия, как пользовательские, так и стандартные (предопределенные). 

TmxTipDialog v2.12 
Компонент для создания диалога "Совет дня".

DanHint 
Если вам надоел стандартный вид подсказок, то этот компонент для вас. Подсказки сделаны в виде сносок, ну и конечно есть возможность изменять цветовую гамму. 

TsHintManager 
Отличный компонент для замены стандартных Hint'ов на более лучшие варианты (а вариантов действительно много). Можно задать прозрачность в процентах. Для установки компилируем и инсталлируем файл dHintsD6.dpk. 

CoolHints2k 
CoolHints2k содержит 6 разновидностей выплывающих подсказок (Hint'ов). Посмотрите примеры и Вы поймете что к чему. 

MultiHint 
MultiHint позволит сделать всплывающие подсказки в вашем приложении многострочными. Компонент очень прост в использовании. 

TPrintPreview 
Если в вашей программе имеется возможность печати на принтере, то данный набор компонент может оказаться для вас очень кстати. С его помощью можно легко и быстро создать предварительный просмотр перед выводом на печать. В архиве есть два примера. 

Glassy 
Компонента (наследник TPaintBox) отрисовывает себя как прозрачная часть формы (показывает что находится под формой) с настраиванием цветом 'стекла' и степенью прозрачности. Компонент неплохой, однако на слабых машинах это будет тормозить (особенно если на форму бросить несколько таких компонентов). 

AlphaEffects 
Это не компонент, а класс, который с помощью прозрачности создает клёвые эффекты, способные украсить ваше приложение. Класс включает в себя 17 готовых эффектов, и пример по их использованию (а пользоваться им проще простого), так что качайте, не пожалеете. 

MiniZip 
С помощью этого компонента можно очень просто работать с ZIP-архивами. Компонент распространяется с исходниками и примерами. При установке выберите файл ZipMcpt.pas. 

ZipMaster 
Еще один компонент для работы с ZIP-архивами. В комплекте есть несколько примеров, для работы некоторых необходимо установить компонент SortGrid ( он есть в архиве). 

TOrImage 
Компонент TOrImage - это стандартный TImage, с возможностью менять свойства рисунка, такие как: яркость, контраст, освещение, цветовая насыщенность и др. а так-же добавлять различные спец. эффекты (GrayScale, Invert, ColorNoise, MonoNoise, Posterize, Solorize, Emboss, Mosaic, SplitBlur, GaussianBlur, AntiAlias, Trace, Tile см. демо). Все это работает как во время разработки, так и при выполнении программы, по отдельности или все вместе. Во время разработки настройку свойств рисунка и эффектов можно проводить с помощью удобного редактора свойств или непосредственно в "Объект Инспекторе". TOrImage поддерживает любые зарегистрированные в Вашем Delphi графические форматы: *.jpg, *.bmp, *.gif, *.wmf, *.ico и др. (для регистрации новых граф. форматов необходимо добавить соответствующий модуль в список USES вашей программы, как это сделано в demoUnit1.pas). 

PicShow  
TPicShow - это элемент управления сменой изображений со 150 эффектами перехода, написанный на чистом Delphi. Основные возможности: программное управление сменой изображений; растягивание, центрирование изображений в клиентской области, размножение фонового изображения. TDBPicShow - версия TPicShow для загрузки изображений bitmap или jpeg из блоб-поля. С исходными текстами. 

ImagesScroll 
Компонент TImagesScroll предназначен для отображения и выбора изображений (образов) от TImageList компонента. Появление и цель этого компонента подобны особенности Windows, которую Вы видите при выборе значка для файла. В архиве есть пример. 

CPortLib 2.64 
Один из лучших компонентов для работы с COM-портом.

CoolTray 
Самый лучший, на мой вгляд, компонент, для созжания иконки приложения в системном трее и работы с ней. Имеет огромные возможности и кучу параметров. В комплект поставки, также, входит несколько примеров, которые позволят Вам с легкостью понять все секреты работы над иконкой, находящейся в системном трее Windows. 

TrayNotifyIcon 
Компонент для создания и управления иконками на панели задач. В архиве есть пример.

PlnClock 
Аналоговые часы. Полностью настраивается. С исходными текстами.

TIACircleHandle 
Этот компонент представляет собой ручку дискретного выбора диапазонов. Компонент предоставляет следующие свойства:

1. Два стиля
2. Два типа ручек
3. Свободный выбор диапазонов (произвольное их количество)
4. Произвольные материалы для фона и границ
5. Все параметры (длина и толщина рисок, стили позиции) свободно настраиваются
6. Каскадная полупрозрачность
7. 4 типа трехмерности для заголовка, меток рисок, меток
8. Inner/Outer bevel 3 типов и любой ширины и border для ручки и метки рисок
9. произвольные шрифты и цвета
10. Автоматический расчет композиции и определение размера компонента
11. 6 типов выравнивания для метки рисок
12. 4 типа выравнивания для заголовка
13. Не мерцает

TIAOscilloscopePanel 
Этот компонент представляет собой графическое представление экрана осциллографа с полной внутренней функциональностью осциллографа, вам остается только поставлять данные и наблюдать за ними контролируя представление данных при помощи настроек (типа как на осциллографе ручки, но через функции). Компонент предоставляет следующие свойства:

1. Произвольное количество каналов ввода данных Синхронизация по любому каналу
2. Произвольный масштаб по осям X Y
3. Синхронизация по переднему и заднему фронту Полярный график зависимости X от Y для любого количества каналов
4. Произвольный цвет луча для любого канала Чувствительность синхронизации настраивается Любой канал независимо блокируется
5. Независимые сдвиги лучей по осям X и Y (в том числе независимо для каждого канала...)
6. Интенсивность лучей настраивается (как на реальном приборе)
7. Произвольная сетка на экране (настраиваемая)
8. Произвольный фокусный прямоугольник
9. Произвольные по ширине Inner/Outer bevel и border Все графические навороты отключаемые
10. Произвольный выбор цвета для всего
11. Произвольный выбор материалов ( skins) для границ и экрана

TSizeControl v3.5 
Невизуальный компонент, позволяющий перемещать компоненты и изменять их размер в режиме RunTime (аналогично Delphi в режиме DesignTime). Есть пример. 

---

...собрались программисты на перекур. Сидят они и битые полчаса говорят о
компьютерах. Тут кто-то из них восклицает:
- Ребята, что мы всё о компьютерах да о компьютерах... Давайте лучше
поговорим о женщинах!
- Точно! Давайте! Вот я вчера такие гифы с бабами скачал!...

---

Афоризмы про компьютер

Куплю винчестер. Жёсткие диски не предлагать. 
Миллионы лет назад по Земле бегали ДОСозавры, но кто-то открыл форточку и они все замёрзли... 
Можно ли сообщение "программа выполнила недопустимую операцию - обратитесь к разработчику" считать официальным вызовом в США? 
Надпись на могиле аськера: "Он добавил мир в игнор-лист".
Насколько проще была бы жизнь, если бы она была в исходниках.
...Ну! И кто открывал бутылку о кнопку "F8"?! 
Нажмите "Yes"! Ещё! Format complete... 
Нажмите любую клавишу... Нет, нет, только не эту!.. 
Hам не заменят ДОС'а пpостоту заманчивые окны пополамов! 
Нас Reboot, а мы крепчаем.
"Windows shuting down..." Виндоус шутит, даун!
Компьютер создан для того, чтобы решать проблемы, которые до его появления пока еще не существовали.
Мастдай H. Ламерчук, эксперт по компьютерному маркетингу.
Ну все... Маздай компу!
Раз компьютер, два компьютер,- будет сеточка!

---

- У моего компа появился виpус.
- И что ты сделал?
- Укол.
- Куда?
- Под мышку...

---

Самый короткий вирус написан программистом из нашей фирмы - он занимает 0 байт, и даже автор не знает, что он делает.

---

Дружественные рассылки:

Все кто хочет изучить Delphi и реально научиться писать свои программы, ЦПИ "Эверест" поможет Вам.
Всё, что Вам нужно это компьютер и доступ к интернету - для получения уроков.

10 причин в пользу платного обучения в ЦПИ "Эверест"…

1. Когда Вы платите деньги- появляется дополнительный стимул против лени: надо учиться, ведь деньги уже уплачены….
2. Учась платно, получаете удобный для Вас график работы.
3. Весь необходимый справочный материал Вы получите в свое время и на русском языке.
4. Используя интернет в качестве бесплатной библиотеки, Вы получаете все ее минусы:

• трата времени на поиск необходимого материала (а это потерянные деньги и время). А у Вас есть лишние время и деньги?;
• отсутствие гарантии, что Вы "осилите" данный материал, ведь пишут его, в основном, не педагоги- профессионалы, а программисты- профессионалы, а они пишут для таких же, как они. А Вы программист- профессионал?
• отсутствие системности в скачиваемом материале (ведь человек, писавший для Вас материал, не знает, чем Вы владеете). А Вы обладаете системой знаний по Delphi?;

5. Стоимость обучения одного месяца в ЦПИ "Эверест" сравнима с ценой хорошей книги. Но часто ли Вам попадались книги, рассчитанные именно на Вас. Мы же работаем индивидуально.
6. Автор книги или магазин не несет никакой ответственности за то, поняли ли Вы материал или нет, мы же закрепляем за каждым курсантом преподавателя, курирующего Вас.
7. Освоив программирование в Delphi - Вы освоите:

• основы настоящего программирования- структурного и процедурного программирования ;
• систему работы с базами данных и SQL- запросами, а это одно из самых перспективных направлений в программировании;
• язык программирования ObjectPascal, что позволит Вам легко перейти, при желании, на С или Паскаль;
• работу с компьютерной графикой;
• при желании - основы низкоуровневого программирования ( Ассемблер).

8. А это значит, что …Мы предлагаем получить "высшее образование" - профессию программиста всего за 1 год и 144 доллара, любой ВУЗ попросит в 3 раза больше за один только семестр.
9. Вы получаете самый практический курс в сети, поскольку теория дается только тогда, когда она действительно необходима…
10. Учиться у нас легко и просто. Весь материал доступен и простым людям, не имеющим никогда дел с программированием….

По всем вопросам обращайтесь ко мне.

Если вы встретили в интернете интересный сайт или статью, да и вообще, что угодно связанное с Delphi, поделитесь ссылкой.
Если можете написать статью связанную с Delphi - присылайте с радостью выложу.
Давайте поможем друг другу!  Архив рассылки.

Предложения, критику и пожелания пишите на e-mail.