ПРОГРАММ: 654 | СТАТЕЙ: 125 | КОДОВ: 3434   

    главная        новости        программы        библиотека        коды        рейтинг       форум   

Афоризм
В центральноафриканских джунглях существует жестокий закон самого слабого и неумелого охотника отправляют учиться в Кишинёв.
 
Поиск


 
Рассылка
| Soft-Ежедневник - обзор программ прямо к Вам на e-mail
 
 
Полезное!
 
7 лучших
  Компания "Прогресс Инжиниринг": огромный каталог оборудования для сторительства по низким
  Love-okey бесплатные знакомства
  Ткани оптом (Иваново) для пошива постельного белья
  Работа в Польше.Работа в Евросоюзе.Рабочая виза в Евросоюз.
  Продаю лапшерезку Bekker BK-5200
  
  
 
  Библиотека > программирование > Delphiдобавить статью
Уменьшаем размер EXE в 40 раз, или Вся правда о консольных приложениях Delphi

"Пустая" форма весит около 355 КБ, и этот начальный размер увеличивается с каждой новой версией Delphi...
 
delphid.dax.ru
winsov.ru
10-05-2004
Версия для печати
печать

"Пустая" форма весит около 355 КБ, и этот начальный размер увеличивается с каждой новой версией Delphi. "Пустая" программа, написанная с использованием библиотеки KOL, уменьшающей размер исполняемого файла, - 32 КБ. "Чистое" консольное приложение имеет размер 8 КБ, поскольку отображается как процесс и, соответственно, не имеет сложных взаимодействий с Windows-окнами. То есть можно сделать так, чтобы по Ctrl%2BAlt%2BDel консоль не было видно :).

Итак, в меню Delphi выберите File>New>Other и в появившемся окне среди прочего найдите пункт Console Application. Возникнет следующая заготовка:

program Project1; //название проекта

{$APPTYPE CONSOLE} //директива, указывающая на наличие консоли

uses SysUtils; //подключенные модули

begin //начало процесса
{ TODO -oUser -cConsole Main : Insert code here } //комментарий от Borland
end. //конец процесса

Ага. Это "пустое" консольное приложение. Нажмите F9, чтобы запустить его. Что вы увидели? Черное окошко вроде Сеанса MS-DOS возникло и сразу исчезло. Куда оно делось? Всё дело в том, что консольное приложение - это процесс, который, как и всё на свете, когда-нибудь закончится :). Начало процесса - ключевое слово begin, а конец - end. Поскольку между ними отсутствуют какие-либо другие команды, то end (прекращение процесса) исполняется сразу после начала, и консоль исчезает. Чтобы такого не было, надо "занять" приложение каким-нибудь циклом, желательно вечным ;). Вот так:

begin
repeat
//это наш вечный цикл
until 1=0;
end.

Обратите внимание на команду until. Наш цикл будет исполнятся до тех пор, пока 1 не станет равен 0. Угадайте сами, когда это случится :). Другой вариант:

begin
while true do begin
//вставляйте ваш код здесь
end;
end.

И еще вариант:

Label MyLabel; //"метка"

begin
MyLabel:
//ваш код здесь
goto MyLabel;
end.

В общем, вариантов сколько угодно. Главное, что консоль не будет закрываться. А теперь надо реализовать чтение и запись на полотно консоли, как это сделано в (не)старом (не)добром MS-DOS. Помогут нам в этом процедуры из модуля System.pas. Синтаксис:

WriteLn(ЧТО_ЗАПИСЫВАЕМ) //вывод данных в консоль
ReadLn(ЧТО_ЧИТАЕМ) //чтение данных из консоли
Почему же модуль System.pas не продекларирован в разделе uses? Это базовый модуль Delphi, который всегда подключен "по умолчанию". А теперь добавьте к исходному коду:

WriteLn("Hello World!");

Соответствующая строка ("Hello World!") будет выведена на консоль. Если эта команда будет помещена в вечный цикл (как его создать - см. выше), то строка "Hello World!" тоже будет добавляться бесконечное число раз. Чтобы это исправить, нужно написать:

Begin
While true do begin
Writeln("Hello World!");
Readln;
End;
End.
Как вы уже поняли, команда WriteLn записывает, а ReadLn - читает. При этом команда, стоящая после ReadLn, выполнится, только когда юзер нажмет клавишу Enter. Если же вы собираетесь читать конкретную строку, которую ввел юзер, то нужно указать переменную, из которой будет осуществляться чтение:

var S: String; //наша переменная

begin
while true do begin
Writeln("Enter your name"%2B#10);
Readln(S);
Writeln(#10%2B"Your name is "%2BS);
end;
end.
Здесь "№10" обозначает конец абзаца, переход курсора на следующую строку (клавиша Enter). А вот пример, где программа закрывается по команде юзера:

var s: String; 

begin
while true do begin
Readln(S); //что ввел юзер?
//Юзер мог ввести команду и прописными буквами,
//и строчными. Преобразуем буквы в прописные
//командой UpperCase.
If UpperCase(s)="EXIT" then begin
//переспросим еще раз
Writeln("Do you really want to exit? [y/n]");
//читаем ответ юзера
Readln(s);
if UpperCase(s)="Y" then exit; //выходим
end;
end;
end.

Вот так. Сюда можно вставить какой угодно код, только подключив, если требуется, необходимые модули. Теперь еще раз откомпилируйте проект и нажмите Project>Information for "ProjectName". Размер EXE будет около 40 килобайт, но только потому, что модуль SysUtils.pas в разделе Uses весит так много. А если вы замените этот модуль на Windows.pas, то программа будет занимать, как я и обещал, ВОСЕМЬ :) кило на вашем харде :). 

Конечно, при условии, что вы будете пользоваться только модулем Windows, который содержит большинство команд, необходимых в повседневности. Если вы не собираетесь вступать в консольные переговоры с юзером и пользоваться процедурами WriteLn и ReadLn, то и консоль не нужна. Удалите директиву {$APPTYPE CONSOLE}, чтобы черное MS-DOS"овское окошко не появлялось.
Но если это окошко вам очень нужно и вы собираетесь вести диалог с пользователем, то не пытайтесь указывать русские буквы в команде WriteLn: консоль отобразит их в другой кодировке. Чтобы это исправить, напечатайте исходный (русский) текст в Блокноте и поставьте шрифт Terminal. Результат будет в кодировке DOS, как его и надо указывать в процедуре WriteLn.
Очистить полотно консоли от текста можно так:

program Project1;

{$APPTYPE CONSOLE}

uses Windows;

var
buffer: TConsoleScreenBufferInfo; //буфер
i: integer;
begin
WriteLn("Press <Enter> to clear screen");
ReadLn;
GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),buffer);
for i:=0 to buffer.dwSize.y do writeln;
Writeln("Screen is cleared :)");
Readln;
end.

Вот и всё. Как собрать что-нибудь посерьезнее, чем обхаянное крутыми программистами приложение типа "Hello World", мы расскажем вам в следующей серии.




Комментарии
Оставить комментарий
страница 1 | 2 | >

Misrolzfrild | 19-02-19 19:39
Нападающий санкт-петербургского СКА Никита Гусев в домашнем матче против финского "Йокерита", который завершился со счетом 5:2, установил рекорд Континентальной хоккейной лиги <a href=http://tiscompany.com/communication/forum/user/1193/>http://tiscompany.com/communication/forum/user/1193/</a> по количеству результативных передач за один регулярный сезон.

Точный пас в первом периоде для героя олимпийского финала стал 61-м в 59-м матче текущего сезона <a href=http://basket26.ru/forum/user/63712/>http://basket26.ru/forum/user/63712/</a> . В третьей двадцатиминутке Гусев еще забросил шайбу, практически сняв все вопросы о победителе встречи.

"Ничего особенного не чувствую. Я уже набрал столько, просто <a href=http://www.dtpochevidets.ru/forum/user/609751/>http://www.dtpochevidets.ru/forum/user/609751/</a> мне одну передачу не записали - где-то игр пятнадцать назад. Я не переживал, уже знал, что давно побил этот рекорд, и потому играл спокойно, - приводит слова хоккеиста официальный сайт СКА. - Думаю, что праздника по поводу рекорда не будет. Была очередная победная игра, и я буду стремиться в следующих матчах сыграть как можно лучше".

Предыдущее достижение принадлежало нападающему Александру Радулову, в сезоне-2010/11 <a href=http://shop.olmamedia.ru/forum/user/49651/>http://shop.olmamedia.ru/forum/user/49651/</a> , выступая за уфимский "Салават Юлаев", он отдал 60 передач в 54 встречах.


Ermasojex | 19-02-19 03:46
Casino Вулкан Клуб сегодня завоевал доверие у достаточно количества игроков. Много азартных посетителей заходят на casino-r.org, чтобы поиграть и отдохнуть. Достаточно многим нравится портал Casino R по причине его дизайна, забавных параметров. Играть сегодня в клубе Вулкан очень легко и интересно.

Если вы хотите не только получить комфорт от игры, но и попробовать заработать огромные деньги, Вулкан Клуб несомненно для Вас! Вы можете вести игру в <a href=https://casino-r.org/online-casino-vulcan>казино Вулкан</a> , где: Beetle Mania Deluxe, Hulk, Just Jewels Deluxe и другие слоты. Сейчас многие ведут игру бесплатно в виртуальные игры на порталах казино. Если вы стремитесь играть в самой известной сети игровых клубов, Вулкан Клуб понравится вам всем.

Тут вы сможете принимать участие в турнирах, получать плюшки и следить за индивидуальным выигрышем.
Многих участников интересуют только <a href=https://casino-r.org/provider-evoplay>evoplay</a> на финансы. Популярные игроки также часто посещают ресурс. Пользователи играют в игровые автоматы казино Х как на денежные средства, так и бесплатно. Много возможностей ожидает игроков, которые делают большие депозиты. Если вы приняли решение вести игру на денежные средства, вам надо пройти регистрационный процесс. После регистрации вы можете положить деньги на баланс. Сделать это можно через любой платежный сервис.

Положить финансы на счет вы можете через Visa или MasterCard. У вас также есть возможность использовать дру


DanielAffem | 12-02-19 03:21
Компания ПК "Полимерстрой18" знаменитая как лидер на рынке в отрасли изготовления товаров из композитных материалов. В организации производится огромный ассортимент товаров из полимер песчаных изделий и полимер-резиновых материалов. Детальную справку о <a href=https://18ps.ru/catalog/transportirovka/trubchatyy-tsepnoy-transporter.html>трубчатый цепной конвейер</a> и любых товарах вы можете получить в нашем интернет-магазине.

На 18ps.ru вы можете ознакомиться с функциями компании. Если вас интересует автоматизированная линия по производству, в фирме ПК "Полимерстрой18" вы можете изучить целый цикл по производству. Технологии, которые используются в фирме считаются одними из самых лучших на рынке. Оборудование, которое применяется в организации является новым. Вы можете с умом применять производственные линии и получать дивиденды. Невероятно много известных компаний в России сотрудничают с ПК "Полимерстрой18".

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

Важно подчеркнуть, что в компании вы можете агломератор купить по низкой стоимости. Если вас заинтересовало недорогое оборудование на короткий период, вы можете агломератор купить бу. Он будет в несколько раз стоить меньше нового, а по качеству от


Rakisluteks | 05-02-19 09:27
Если вы предпочитаете играть в рулетку, вам надо рассмотреть автоматы, где вы можете вести игру с минимальным депозитом. Сегодня в online клубах вы можете вести игру в разные слоты и <a href=http://casino-r.net/online-casino>игровые интернет казино</a> .

Автоматы на деньги предоставляют возможность не только расслабиться, но и круто провести время. Азартные игры начали прогрессировать не так давно. Однако, женщины всегда любили играть в них, как правило для того, чтобы получить доход. Почувствовать себя королём среди других людей также желает каждый.

Портал casino-r.net является одним из ведущих провайдеров на рынке РФ гемблинга. Онлайн casino невероятно популярно. Вы можете играть на нём даже с виртуальных платформ, с Android или PC. На портале вы можете просмотреть http://casino-r.net/online-casino рейтинг онлайн казино и очень много разных статей. Вы также можете прочитать досконально сведения о том, как переводятся денежные активы, как пользоваться промокодами, и многое другое.

Вы можете вести игру в online ресурсе casino-r.net на слотах Вулкан. Среди слотов этого известного бренда реально увидеть следующие: Vulkan Олимп, Vulkan Гранд, Вулкан Prestige, Вулкан Platinum, Русский Вулкан и другие. Мужчины со всего мира любят играть в казино без денег.

Особенно это касается новичков. Если парень раньше не играл на деньги в казино, перед ним стоит фобия. Хотя, вы можете вести игру в демоверсии на русском языке. Для этого вам не потребуется регистрация. Игро


MaryndoGer | 03-02-19 06:40
Сегодня у старых мужчин возникают трудности с мужским здоровьем. У разных людей в возрасте после 40 лет появляются проблемы с мужской простатой. Лечение аденомы простаты – процесс сложный и для большинства неприятный. Если у вас появилась аденома простаты после операции, вам срочно необходима помощь специалистов. Полезную справку про <a href=https://adenomaprostate.com/ru/articles/7>хронический простатиты у мужчин признаки</a> можно прочитать у нас на сайте.

На adenomaprostate.com вы можете найти актуальную информацию, которая может заинтересовать каждого мужчину. Необходимо отметить то, что саму болезнь тяжко вылечить. Чтобы у парня не возникло осложнений, которые могут принести вред организму, оптимально проходить каждый год терапию. На ресурсе вы можете найти перечень обзоров, которые помогут вам избавиться от позывов и урегулировать трудности с простатитом. В наши дни очень актуальны массажи. Их необходимо делать правильно. Информацию о том, как делать массаж вы можете просмотреть на портале.

Ныне ресурс adenomaprostate.com очень востребован также у больных парней. Если у вас есть проблемы с простатой, вам надо наблюдаться у доктора. Также необходимо знать, какой рацион питания должен быть. Эта вся справка доступна на ресурсе. В обзорах про <a href=https://adenomaprostate.com/ru/prostata-predstatelnaya-zheleza>простатит боль</a> детализировано расписано количество жиров, белков, углеводов, которые должен потреблять организм человека в сутки. По американским м


Derbokbinee | 30-01-19 19:36
Оформить онлайн займ на карту - легко и просто на интернет сайте ВСЕ-ЗАЙМЫ-ТУТ.РФ

Финансовые активы могут понадобиться в долг спонтанно. Сегодня практически не найти тех, кто не брал средств в долг. По этой причине большое количество заемщиков сталкивались с обманом. Если вы не стремитесь попасть в ловушку, вам надо получать займы на проверенных сайтах. Многие задаются вопросом о том, где же выбрать такой портал. Крутое решение – найти ресурс, который размещает проверенные МФО. Одним из таких есть все-займы-тут.рф, на котором вы можете выбрать сервис, где вы сможете получить денежные активы быстро.

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

Если вам нужен <a href=http://все-займы-тут.рф/>займ на карту</a>, вы хотите получить денежные средства на банковскую карту СберБанка, принять средства на Visa или MasterCard, сделать это теперь просто. На сайте вы можете найти проверенные компании, которые работают мало того, что круглосуточно, так еще и предоставляют большинству заемщиков финансы. Отказ по статистике относительно маленький.

Мгновенные онлайн займы на карту без отказов и проверок

Когда мужчине срочно нужны денежные средства, он идёт в банк. Сейчас в банках необходимо предоставить перечень докум


Damgukceams | 08-01-19 18:03
In our world, there is a very heavy financial situation. Everyday folk who work in different jobs earned coins. But not all guys in the USA can afford to spend cash on various purchases. If you haven’t a lot of money, but you need to make a purchase, you may use long-term credits. If you desire to use online loans, you need to get <a href=https://webmoneyloans.com/bad-credit-loans/bcl-tn>bad credit loans in Tennessee</a> here.

At webmoneyloans.com a lot of people use online credits. Most men from the USA choose to get money online because it is very comfortable. Even you have bad credit loans, you desire to return them, you can use webmoneyloans services. This organization is very popular now and you can receive payday loans. Young guys prefer to use various types of credit. If you don’t know how to ask your relatives to lend money to you, the best way to use online services at the link.

If you don’t want to get bad credit loans in New York, you should ask specialists about the various product on a website. Most of financial products will suit you. Actually, easy bad credit loans in Arkansas you can also use. But we don't commend to do it, because you can have fast coins online. Necessary to say, that on link you can use payday loans online easy and safe. All monetary services are providing very quickly.

Commonly, a lot of firms provide short term bad credit loans in UT. You can use service online in Alaska or Indiana. Guys from different states may take onlin


Iosivkflemo | 30-12-18 22:25
Надёжную обувь всегда сложно подобрать. Связано это изначально с тем, что качественные кроссовки дорого стоят, а подобрать что-то оригинальное по низкой цене всегда тяжко. Если вы не уверены, в каком магазине купить кроссовки, предлагаем рассмотреть шанс заказа кроссовок в интернет-магазинах.

Интернет-магазин брендовых кроссовок Asics Sneakers-Top.ru

Сегодня крутые кроссы вы можете найти на <a href=https://sneakers-top.ru/>купить кроссовки найк в интернет магазине</a> где есть большое количество кроссовок разных размеров и цветов. Интернет-магазин есть дисконтным, поэтому цены в нём низкие. На портале есть много кроссовок для мужчин и женщин. Вы можете найти отзывы клиентов, которые приобретали разные модели Nike и Puma.

Если вас интересует какая-то определенная модель, вы можете позвонить по телефону 8-(800)-111-22-33, где вам всё подскажут. На ресурсе находится большое количество кроссовок разных моделей. Вы можете найти в компании кроссовки для бега или стандартные варианты.

На сайте <a href=https://sneakers-top.ru/fila-prod>дисконт интернет-магазин кроссовок fila</a> находится возможность купить кроссы разных брендов. Вы можете также зарегистрироваться и дать одобрение на рассылку. Благодаря этому вы сможете узнавать первым о всех акциях ресурса.

Заказать брендовые мужские кроссовки в МО

Сейчас купить оригинальные кроссовки в Москве не так уж и просто. Нужно ехать в ТЦ, где цены очень сильно высокие. Чтобы не переплачивать в фирменных мага


CanvokUnums | 20-12-18 21:53
Если вы приняли решение получить быстрый займ, вам следует определиться с компанией, где оптимально взять займ онлайн. Сегодня не все организации оформляют быстрые займы. Если вы хотите получить быстрые займы, вам необходимо просмотреть каталог организаций, которые предоставляют займы на выгодных условиях.

На все-займы-тут.рф находится каталог МФО, которые предоставляют быстрые займы клиентам. На сайте можно найти разные организации, прочитать отклики и определиться с параметрами займа. Много организаций предоставляют деньги на нормальных условиях. Получить займ вы можете в наши дни с паспортом.

Для того, чтобы человек мог получить микрозайм необходимо выбрать МФО, изучить условия займа. Каждый мужчина попадал в ситуацию, когда финансы могут потребоваться очень срочно. Близкие люди не всегда могут помочь в финансовом плане. Из-за этого необходимо изучить шанс взять online займ на карту.

Если вы желаете получить для себя <a href=http://все-займы-тут.рф/>займы срочно на карту без отказа онлайн</a> , вам необходимо выбрать условия. Если вы добросовестный заемщик, средства будут переведены вам в сжатые сроки. Получить средства вы можете в рублях на конкретный срок. Нужно подчеркнуть, что сервис гарантирует максимальную конфиденциальность. На ресурсе собраны МФО, которые всегда идут клиентам навстречу. Новые клиенты также не будут ощущать какого-то дискомфорта. Лояльные условия кредитования также доступны для многих клиентов.

У вас присутствует вероятность полу


Nafomaler | 19-12-18 06:30
Настоящая обувь в Москве стоит дорого. Если вы стремитесь купить кроссовки в столице, вам следует изучить различные варианты в интернет-магазинах. В наши дни в интернете очень удобно приобретать крутые товары, в том числе и кроссовки.

На justnike.ru вы можете купить кроссовки разных фирм, а также <a href=http://justnike.ru/2167-adidas-zx-750>Купить мужские кроссовки Adidas ZX 750 Men ( Sky Bkue /White) в интернет-магазине в Москве</a> и разные варианты от Asics, Adidas, New Balance. Безумно огромный выбор зимних кроссовок идёт от производителей Reebok и Nike. Вы сможете найти для себя кроссовки больших размеров. Следует подчеркнуть, что дисконт интернет-магазин кроссовок очень большой. У интернет-магазина есть склад. Вы можете сделать резерв на какие-то конкретные кроссовки. Нужно позвонить по телефону +7(495)642-26-83, после чего с вами свяжется менеджер и проконсультирует.

В организации JUSTNIKE вы подберете мужские кроссы разных размеров. На justnike.ru вы можете найти женские кроссовки на лето или весну. Если вы стремитесь купить кроссы на подарок, в интернет-магазине этого сайта очень большой выбор. Сейчас кроссовки легко покупать через интернет. Сделать заказ вы можете прямо на ресурсе. Если кроссовки, которые вы подберете будут стоить дорого, доставка от компании будет бесплатная. Менеджеры доставляют все товары безумно быстро.

В настоящем году очень популярны кроссы таких производителей, как: Timberland, Balenciaga, Fila. Обувь от этих производителей у

Имя:
E-mail:
Сообщение:


Число:

   очистить

популярные статьи по теменовые статьи
Создание видео из фотографий в программе "ФотоШОУ"
Разное / Обработка фото и видео
Больница для компьютера
железо / Система
Чем так популярны социальные сети?
Разное / разное
Синхронизация данных с сотового телефона на ПК
железо / Мобильные устройства
Куплю хостинг
web - разработка / Хостинг

Опрос
На что Вы обращаете внимание в первую очередь при покупке товара в интернет-магазине?  
 
Комментарии и оценку пользователей
Наличие нескольких фотографий
Подробное и качественное описание
Условия доставки
Возможность покупки в кредит
 
Самое свежее  
 ПРОГРАММЫ

ICQ 8.0.5990
ICQ 8.0.5990

Mozilla Firefox 18.0.2
Mozilla Firefox 18.0.2

ArtMoney 7.40.4
ArtMoney 7.40.4

 НОВОСТИ

Хакерская атака на Google из Китая
Хакерская атака на Google из Китая

Мы победили! Олимпиада 2014 пройдет в Сочи
Мы победили! Олимпиада 2014 пройдет в Сочи

 БИБЛИОТЕКА

Создание видео из фотографий в программе "ФотоШОУ"
Создание видео из фотографий в программе "ФотоШОУ"

Больница для компьютера

 
Рекомендую!



Rambler's Top100

Copyright © 2004-2019 MostInfo.net  | связь с админом
При использовании материалов сайта ссылка на MostInfo обязательна.