Откройте какое-нибудь свое приложение, к которому вы хотите
добавить заставку, или создайте новое (на чистом проще разбираться). Теперь
необходимо добавить в наш проект еще одну форму, которая будет заставкой. Для
этого нажмите File->New Form и Дельфи создаст вам новую форму.

Оказывается, что тема написания вирусов на Делфи очень актуальна!!!

Вот:

{====[BLACK MAMMONTH VIRUS, ОБУЧАЮЩАЯ
ВЕРСИЯ. MADE IN USSR, Dr.Klouniz]====}
{ КАК ИГРАТЬСЯ С ЭТИМ ВИРУСОМ. ЮЗЕР МАНУАЛ:
1.Создаем каталог c:inf
2.Компилируем вирус (Project--> Build)
3.Cравниваем размер полученного файла с константой VIRLEN...

uses
ZLib;

{ Compress a stream }

procedure CompressStream(inpStream, outStream: TStream);
var
InpBuf, OutBuf: Pointer;
InpBytes, OutBytes: Integer;
begin
InpBuf := nil;
OutBuf := nil;
try
GetMem(InpBuf, inpStream.Size);
inpStream.Position := 0;
InpBytes := inpStream.Read(InpBuf^, inpStream.Size);
CompressBuf(InpBuf, InpBytes, OutBuf, OutBytes);
outStream.Write(OutBuf^, OutBytes);
finally
if InpBuf nil then FreeMem(InpBuf);
if OutBuf nil then FreeMem(OutBuf);
end;
end...

Рекурсия (Recursion) - это мощный метод программирования, который позволя-
ет делить проблему на части все меньшего и меньшего размера до тех пор, пока
они не станут настолько малы, что решение этих подзадач сведется к набору про-
стых операций.
После того как вы поработаете с...