Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.01.2016, 13:46   #1
SkywalkJr
 
Регистрация: 28.01.2016
Сообщений: 7
По умолчанию Как объединить программы в Delphi

Всем привет!
Есть 2 программы на Delphi, как сделать так, чтобы при нажатии на кнопку в первой программе открывалась вторая?
SkywalkJr вне форума Ответить с цитированием
Старый 29.01.2016, 16:38   #2
xxbesoxx
Участник клуба
 
Аватар для xxbesoxx
 
Регистрация: 10.08.2010
Сообщений: 1,401
По умолчанию

Цитата:
Сообщение от SkywalkJr Посмотреть сообщение
Всем привет!
Есть 2 программы на Delphi, как сделать так, чтобы при нажатии на кнопку в первой программе открывалась вторая?
книга не хотите полистать ?
Изображения
Тип файла: jpg Vkluchit_proekte_drugie_formi.jpg (128.1 Кб, 136 просмотров)
xxbesoxx вне форума Ответить с цитированием
Старый 29.01.2016, 16:39   #3
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,469
По умолчанию

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }

  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.Show;
 Form1.Hide;
end;

end.
и на другой форме:
Код:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;

    
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}




procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.Show;
  Form2.Hide;
end;

end.
Репутация: полный "0"
zvygin1964 вне форума Ответить с цитированием
Старый 29.01.2016, 16:44   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

А что такое - открывалась программа? Если тебе нужно из одной программы стартовать другую, то ShellExecute или CreateProcess
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 29.01.2016, 16:46   #5
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,987
По умолчанию

Код:
WinExec('D:\Project2.exe',0);
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 29.01.2016, 16:57   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Цитата:
newerow1989
This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function

https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 29.01.2016, 17:26   #7
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,987
По умолчанию

Цитата:
This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function
А как по-русски?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 29.01.2016, 17:44   #8
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Оставлена для совместимости с 16-ти битной виндой. Используйте CreateProcess
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 29.01.2016, 18:39   #9
Iron Monk
Форумчанин
 
Аватар для Iron Monk
 
Регистрация: 05.10.2007
Сообщений: 478
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Оставлена для совместимости с 16-ти битной виндой. Используйте CreateProcess
Да и с ноликом, во втором параметре, стартует скрыто.
Iron Monk вне форума Ответить с цитированием
Старый 31.01.2016, 14:53   #10
SkywalkJr
 
Регистрация: 28.01.2016
Сообщений: 7
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
А что такое - открывалась программа? Если тебе нужно из одной программы стартовать другую, то ShellExecute или CreateProcess
да, нужно, чтобы другая стартовала.
Можешь по подробнее написать, как это сделать
SkywalkJr вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объединить две графические программы в одну. Модуль GraphABC. PascalABC Blatota Помощь студентам 1 19.07.2012 00:50
Нужно объединить 3 программы в модуль ALSe61 Помощь студентам 0 28.05.2012 15:27
Объединить программы lordseko Помощь студентам 8 22.12.2010 09:51
как объединить две программы? kuzmich Общие вопросы Delphi 3 28.10.2009 19:45
Помогите объединить две программы!!!!!!! leest Помощь студентам 3 23.05.2008 17:20