Создание консольных приложений

Советы » DOS и Консоль » Создание консольных приложений

Создание консольных приложений. (Об этом в советах немножко есть, но очень не конкретно)

Как уже отмечалось в совете [000092] (да и в Хелпе) в консольных приложениях в Delphi можно использовать в принципе весь дельфийский арсенал. Правда и работать они будут лишь под Windows. (Кстати этот способ можно применить для модернизации программ на Паскале под Windows).

Этот код был использован для вывода результатов работы программы проверки (неважно чего) чтобы не приходилось смотреть файл с результатами. Главная проблема была в том, что консоль (если запуск был из Windows) оставалась висеть позади формы до её закрытия. Вреда конечно никакого, но не приятно. Если же запуск из Нортона или т.п., то всё идёт нормально.

program

MyProgram; {$APPTYPE CONSOLE} uses

Windows, Forms, Dialogs, SysUtils, StdCtrls, Controls; // и (или) т.п. ... var

... SH, SW: integer; MainForm: TForm; // если нужна форма Memo: TMemo; // могут быть также любые другие визуальные компоненты ... // здесь могут быть процедуры и функции, т.е вс? как в обычном Паскале begin

... // здесь какой-то код { а здесь, перед выводом формы, есть два пути:} { так} // Отцепиться от консоли, т.е она просто исчезнет (в случае запуска из Windows) // и останется только форма FreeConsole; { или так} // Handle:= GetForegroundWindow; // Получить Handle консоли // ShowWindow(Handle, SW_HIDE); // Спрятать консоль // а в конце, перед завершением // ShowWindow(Handle, SW_SHOW); // Показать консоль { для помещения формы в центр экрана} SH := Screen.Height; SW := Screen.Width; MainForm := TForm.Create(nil

); with

MainForm do

try

BorderStyle := bsSizeable; Height := 390; Width := 390; Left := (SW - Width) div

2; Top := (SH - Height) div

2; Caption := 'Моя программа'; // здесь могут быть и другие компоненты Memo := TMemo.Create(MainForm); with

Memo do

begin

Parent := MainForm; Align := alClient; BorderStyle := bsNone; Font.Name := 'Courier New Cyr'; Font.Size := 9; ScrollBars := ssVertical; Lines.LoadFromFile('MyProgram.txt'); end

; ShowModal; finally

Free; end

; { или можно вывести сообщение, например в случае неудачи (или наоборот)} with

CreateMessageDialog('Текст сообщения', mtInformation, [mbOk]) do

try

Caption := 'Заголовок'; ShowModal; finally

Free; end

; ... // это для второго пути, иначе она так и останется висеть св?рнутой // ShowWindow(Handle, SW_SHOW); // Показать консоль end

.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com