скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Миниатюрное 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.






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook