Элементарная программа
Традиционным введением в новый язык программирования или операционную среду является программа, выводящая сообщение "Hello, Word!", написанная на данном языке или для данной опера- ционной среды. Это программа содержит количество программного ко- да, достаточное для вывода на экран строки "Hello, Word!".
Конечно, в Windows нужно сделать значительно больше. Вам нужно вывести окно, записать в него текст и сделать так, чтобы окно взаимодействовало с "окружающим миром", по крайней мере вы должны иметь возможность закрыть окно и выйти. Если вы будете де- лать все это с самых основ, то даже для выполнения этих элемен- тарных задач потребуется очень большой объем кода. Например, программа GENERIC.PAS, содержащаяся на дистрибутивных дисках, вы- полняя такие элементарные действия, занимает более 100 строк.
Это связано с тем, что предъявляет к прикладной программе ряд требований, которые та должна удовлетворять перед тем, как она сможет работать в Windows. Даже простейшая программа требует большого объема исходного кода. К счастью, программы, написанные с использованием ObjectWindows, автоматически удовлетворяют этим требованиям (включая создание и вывод на экран основного окна и сохранение для приложения описателя окна). Таким образом, прог- рамма "Hello, Word!" сокращается всего до 16 строк.
program HelloApp;
uses WObjects;
type THelloWord = object(TApplication) procedure InitMainWindow; virtual; end;
procedure THelloWord.InitMainWindow; begin MainWindow := New(PWindow, Init(nil, 'Hello, Borland Pascal')); end;
var HelloWord: THelloWord;
begin HelloWord.Init('HelloWord'); HelloWord.Run; HelloWord.Done; end.
