Миниатюрное Delphi-приложение

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Миниатюрное Delphi-приложение

Автор: Dr. Bob

Американские новости: "28-го февраля в Сиэтле произошло землетрясение силой в 6.8 балла". Рядовой американец: "Это Билл Гейтс уронил свой кошелек".

Следующая программа генерирует .EXE-файл размером менее чем 2Кб (1176 байт с моей специальной конфигурацией)...

{$A+,B-,D-,F-,G+,I-,K-,L-,N-,P-,Q-,R-,S-,T-,V-,W-,X+,Y-}
{$M 32768,0}
uses WinTypes, WinProcs;
begin
  MessageBox(GetActiveWindow, 'Вася, это ты?', 'Dr.Bob',
    MB_ICONINFORMATION OR MB_OK)
end.