Как закрыть программу в delphi 7

Если картинки в постах не отображаются, зайдите в блог через прокси. РКН заблокировал поддомены blogger.com на которые загружались картинки.

воскресенье, 27 октября 2013 г.

Как закрыть приложение при помощи кнопки TButton или TSpeedButton

На данный момент тема «закрыть android приложение для Android с помощью кнопки(TButton или TSpeedButton)», очень актуальна. Я провёл тестирование некоторых способов и теперь подведу итог.

Upd (23.04.14). Проверено на Delphi XE6

Способы закрытия приложения:

1. Halt(0); — Работае т
2. Form1.Close; — Не работает
3. Application.Terminate; — Не работает
4. MainActivity.finish; — Работает

uses FMX.Platform.Android; procedure TForm1.Button4Click(Sender: TObject); begin MainActivity.finish; end;

Источник: delphifmandroid.blogspot.com

Сворачивать форму в панель задач при закрытии в Delphi 7

На Delphi Studio вы можете найти и скачать исходники, примеры, компоненты, книги, учебники, статьи по Delphi и Pascal

Delphi Studio » Примеры на Delphi » Примеры на Delphi Система » Как программно закрыть другую программу. Пример на Delphi

Как программно закрыть другую программу. Пример на Delphi

Delphin | 23-04-2010, 06:09 | Примеры на Delphi » Примеры на Delphi Система

Привожу пример на Delphi как можно программно закрыть другую программу

procedure TForm1.Button1Click(Sender: TObject);
begin
PostMessage(FindWindow(Nil, ‘Имя программы’), WM_QUIT, 0, 0);
end;

1342 |

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии в данной новости.

Лучшее на Delphi Studio

Лучшие книги по Delphi

• Книга Delphi 2010 Handbook with Source Code — Книга Delphi 2010 Handbook with Source Code посвящена CodeGear Delphi 2010
• Книга Программирование в Delphi глазами хакера. Фленов — В книге вы найдете множество нестандартных приемов программирования на языке Delphi, его недокументированные функции и возможности. Вы узнаете, как создавать маленькие шуточные программы. Большая часть книги посвящена программированию сетей
• Книга Delphi в шутку и всерьез что умеют хакеры М.Флёнов — Электронная книга о профессиональных приемах программирования в Delphi. В легкой и доступной форме с использованием большого количества профессиональных примеров рассмотрены вопросы корректного написания кода, оптимизации программ, работы с системным окружением, создания сетевых приложений
• Книга Библия Delphi Михаил Фленов (2-е издание) + CD — Книга посвящена программированию на языке Delphi от самых основ до примеров построения конкретных приложений. Подробно описывается логика выполнения каждого участка кода, чтобы читатель смог использовать эти знания при решении собственных задач. Книга содержит большое количество примеров практического программирования
• Книга О чем не пишут в книгах по Delphi + CD Григорьев А.Б — Рассмотрены малоосвещенные вопросы программирования в Delphi. Описаны методы интеграции VCL и API. Показаны внутренние механизмы VCL и приведены примеры вмешательства в эти механизмы. Рассмотрено использование сокетов в Delphi: различные режимы их работы, особенности для протоколов TCP и UDP
• Книга Delphi 7 Учебный курс С.Бобровский — Электронная книга является руководством по программированию в среде Delplii 7. Описывается весь процесс разработки программы: от конструирования диалогового окна до организации справочной системы и создания установочного CD-ROM
• Книга Delphi Быстрый Старт — В книге описываются интерфейс системы визуального программирования Delphi на основе 6-й версии, состав и характеристика элементов проекта приложения, приемы программирования на языке Object Pascal
• Книга Indy in Depth. Глубины Indy — Книга Indy in Depth Глубины Indy будет интересно для тех, кто интересуется хакингом, вирусописанием, а значит и для тех, кто занимается защитой сетей, программ, информации. Эта книга не только по Indy, она про Интернет, про протоколы, термины, методы работы, а к Indy относятся только примеры
• Книга OpenGL — Графика в проектах Delphi + CD. М.В.Краснов — Книга посвящена использованию стандартной графической библиотеки OpenGL в проектах Delphi. Начиная с самой минимальной программы, последовательно и подробно рассматриваются все основные принципы программирования компьютерной графики: двухмерные итрехмерные построения, анимация, работа с текстурой, визуальные эффекты
• Книга Delphi 7 для профессионалов. Марко Кэнту — Книга, которую должен прочитать каждый, кто хочет стать профессиональным программистом на Delphi. Книга не предназначена для начинающих. Требуются хорошие знания Delphi. Предназначена для тех, кто хочет стать именно профессиональным программистом

Как закрывать программу на ESC в Delphi

Источник: delphistudio.ru

Как закрыть программу в delphi 7

по горизону, с какими.

> она должна делать в OnCreate набор действий а потом отваливаться

Ну так и напиши все прямо в *.dpr

Run мне нравится, но уничтожение происходит до него.

> Если не доходит до Application.Run, то никакого OnCreate
> не случится. События начинают обрабатываться после Application.Run

OnCreate — это немного другое, в смысле, что не обработчик сообщения.

> не обработчик сообщения

> > OnCreate вызывается из
> > TCustomForm.Create или из TCustomForm.AfterConstruction

> только если свойство OldCreateOrder истинно. По умолчанию
> оно ложно.

Важно лишь то, что выполняется OnCreate непосредственно
в/сразу после Create. И, значит, до Application.Run.

> > выполняется OnCreate непосредственно в/сразу после Create

> где именно? просто интересно.

Сразу после (если AfterConstruction).
На это, правда, косвенно, указывает:

Since the DL register indicates whether the constructor or destructor is the outermost in the call stack, you must restore the value of DL before exiting so that BeforeDestruction or AfterConstruction can be called properly.

Ну, а, по поводу затруднений с исходном вопросе, то там, видимо,
рассматривалось Close, т.е., зависимое от сообщения.

← →
Baltika-31 ( 2005-11-01 20:00 ) [15]

Один из вариантов — поднять Exception в Form.OnCreate:

в файле проекта:

uses
Forms,
SysUtils,
Unit1 in «Unit1.pas» ;

type
TDummy=class
class procedure AppException(Sender: TObject; E: Exception);
end;
class procedure TDummy.AppException(Sender: TObject; E: Exception);
begin
Application.Terminate;
end;

begin
Application.Initialize;
Application.OnException := TDummy.AppException;
Application.CreateForm(TForm1, Form1);
Application.OnException := nil;
Application.Run;
end.

procedure TForm1.FormCreate(Sender: TObject);
begin
raise Exception.Create(«Error»);
end;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;

var
Form1: TForm1;

procedure TForm1.FormCreate(Sender: TObject);
begin
if (ParamCount > 0) and SameText(ParamStr(1), «STOP») then begin
Application.ShowMainForm := false;
Application.Terminate;
end;
end;

Источник: delphimaster.net