2

Как в Delphi запустить приложения, допустим, калькулятор в форму приложения, в нете искал, но есть только под С, а надо делфи. Знает ли кто-нибудь как сделать?

2 ответа 2

1

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

ща сам визио ставлю посматреть хочу

Зачем? Чтобы просмотреть исходник, достаточно блокнота.

Вот исходный код, в котором всё и происходит:

void PictureBox1Click(object sender, EventArgs e) //обработка клика по форме
    {
        System.Diagnostics.Process bob = new System.Diagnostics.Process();
                bob.StartInfo.UseShellExecute = true;
                bob.StartInfo.Arguments += " /K TITLE Command Prompt";
                bob.StartInfo.FileName = "CMD"; //имя программы
                bob.Start(); //запускаем программу
        this.timer1.Enabled = true; //запускаем таймер
    }

    void Timer1Tick(object sender, EventArgs e) //обработка тика таймера
    {
        System.IntPtr winParent;
        System.IntPtr x;
        System.IntPtr winHandle = Usr32.FindWin("ConsoleWindowClass", "Command Prompt"); //находим окно, которое запустили
        if(winHandle != System.IntPtr.Zero)
        {
            winParent = Usr32.GetParent(winHandle);
            x = Usr32.SetParent(winHandle, this.pictureBox1.Handle); //присваиваем форме приложения в качестве родителя форму нашей программы
            x = Usr32.SetWindowPos(winHandle, 1, 10, 10, 500, 300, 0); //устанавливаем новую позицию этой формы, которая уже считается дочерней
            this.timer1.Enabled = false; //вырубаем таймер
        }

Сейчас попробую переписать на Delphi... Вот, получилось очень просто и компактно:

procedure TForm1.FormClick(Sender: TObject); //при клике на форме
var h:hwnd;     //указатель на окно
begin
//запускаем стандартную "командную строку"
  ShellExecute(form1.Handle,'open','cmd.exe',nil,'c:\\windows\system32\',SW_SHOW);
  sleep(10); //ждём, пока окно не появится
  //находим окно по заголовку
  h:=findwindow(nil, 'c:\\windows\system32\cmd.exe');
  //если нашли, присваиваем ему статус дочернего от нашего окошка
  if h<>0 then windows.SetParent(h,form1.Handle);
end;

Для ShellExecute (shell32.dll) нужно подключить модуль ShellAPI, а вот функции findwindow и setparent объявлены в модуле windows (win32.dll и user32.dll). Скачать мой пример Кстати, прикольно получилось: на C написано до фига кода, а на Delphi - всего-то пара строчек, а результат тот же, может быть, даже лучше. :D

7
  • Приложение запускается не в форме, а в своем окне(((
    – evgeniy
    29 сен 2011 в 22:29
  • Значит, слишком маленькая пауза. Можно в sleep написать, например, 100 миллисекунд, или вообще 1000. Видно, у тебя программа cmd.exe запускается слишком медленно, и findwindow срабатывает раньше времени, следовательно, не обнаруживает окно... Ладно, можно попробовать так, как сделано в примере на C - запускать таймер, и уже он будет обнаруживать окно. Вот, исправление: в процедуру клика по форме вставляем код активации таймера, строчки "h:=f..." и "if h..." переносим в обработчик таймера, и добавляем в него выключение, если h<>0... Вот новая ссылка: rghost.ru/23666461
    – TimKruz
    30 сен 2011 в 14:48
  • Для большей наглядности, вот немного другой пример. Вводишь путь программы и её заголовок в поля - приложение запускается и переносится в окно. Только вместо shellexecute используется winexec, кстати, он описан в модуле windows, поэтому не нужно подключать дополнительных модулей. Скачать: rghost.ru/23670601
    – TimKruz
    30 сен 2011 в 15:19
  • ...Только нужно потом убивать открытые приложения, а то их процессы (без окон) будут всё время висеть в системе...
    – TimKruz
    30 сен 2011 в 15:42
  • Воооо то что хотел)) теперь осталось разобраться как оно работает.... А как теперь изменять свойства формы в форме)))?
    – evgeniy
    30 сен 2011 в 21:31
0

Вот эта фраза совсем непонятна:

калькулятор в форму приложения

А запуск внешнего приложения из программы на Delphi - при помощи ShellExecute ();

6
  • Вот, допустим, есть прога написанная на делфи, там есть кнопка, её жмешь и приложение запускается в форме делфи.
    – evgeniy
    29 сен 2011 в 18:28
  • Не встречал, да и зачем?
    – SoftR
    29 сен 2011 в 18:45
  • Да вот встретил и интересно стало)
    – evgeniy
    29 сен 2011 в 18:50
  • Если не сложно киньте линк на пример на С посмотрю, возможно и delphi прикрутим, хотя пока практического применения данному сабжу не вижу.
    – SoftR
    29 сен 2011 в 18:55
  • Линка нет но вот один пример на сайте одном видел ща сам визио ставлю посматреть хочу narod.yandex.ru/disk/26793186001/picBoxApp.7z
    – evgeniy
    29 сен 2011 в 19:02

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.