vk.com/club152685050 | vk.com/id446425943
Завершение программы
-Close;
-Application.Terminate;
vk.com/club152685050 | vk.com/id446425943
Контекстное меню
-разместить на форме PopupMenu и сформировать его пункты;
-выделить главную форму и в инспекторе объектов на вкладке Events дважды щелкнуть по строке с надписью OnMouseUp;
-в процедуре ввести следующий текст
var P:TPoint;
P:= GetClientOrigin;
if Button = mbRight then PopupMenu1.Popup(P.x+x, P.y+y);
12
vk.com/club152685050 | vk.com/id446425943
Добавление новой формы
-добавить к проекту новую форму;
-сформировать новую форму;
-при вызове новой формы указать режим отображения окна как обычного
Form2.Visible := True;
Form2.Show;
Важно чтобы в основном окне было прописано обращение к используемым процедурам;
например: uses prog1;
vk.com/club152685050 | vk.com/id446425943
Взаимодействие приложения
с внешними программами
Имеются следующие возможности взаимодействия:
-Непосредственный запуск внешней программы из приложения;
-Запуск внешней программы, связанной с некоторым документов;
-Обмен сообщениями с другими программами;
-Динамический обмен данными между приложениями.
vk.com/club152685050 | vk.com/id446425943
Взаимодействие приложения
с внешними программами
Для запуска внешних программ можно использовать две функции:
-WinExec;
-ShellExecute.
vk.com/club152685050 | vk.com/id446425943
Функция WinExec
function WinExec(CmdLine: PChar; CmdShow: integer):integer;
CmdLine – указатель на строку с нулевым символом в конце, содержащую имя исполняемого файла и, если необходимо, параметры командной строки.
vk.com/club152685050 | vk.com/id446425943
Функция WinExec
function WinExec(CmdLine: PChar; CmdShow: integer):integer;
CmdShow – определяет форму представления окна запускаемого приложения
Windows.
vk.com/club152685050 | vk.com/id446425943
Функция WinExec
Последовательность поиска исполняемого файла:
-в каталоге, из которого запущено приложение;
-в текущем каталоге;
-в системном каталоге Windows, имя которого возвращается функцией GetSystemDirectory;
-в каталоге Windows, имя которого возвращается функцией GetWindowsDirectory;
-в каталогах из списка в переменной окружения
Path.
vk.com/club152685050 | vk.com/id446425943
Функция WinExec
Достоинством функция является ее совместимость с ранними версиями Windows.
При работе с Win32 функция WinExec завершает работу, если вызванное приложение вызывает функцию GetMessage или заканчивается выделенный лимит времени.
vk.com/club152685050 | vk.com/id446425943
Функция ShellExecute
Позволяет не только выполнять любое приложение Windows, но и открывать файл документа, что означает выполнение связанного с ним приложения и загрузку в него этого документа.
Позволяет также распечатать указанный файл или открыть указанную папку.