Как в Delphi запустить приложения, допустим, калькулятор в форму приложения, в нете искал, но есть только под С, а надо делфи. Знает ли кто-нибудь как сделать?
2 ответа
Как я понимаю из примера, главная форма запущенного приложения становится дочерней от формы запускающей программы и помещается в её главное окно. Видно, что при запуске программы её форма появляется как обычно, и только потом смещается в окно запустившей её программы. По-видимому, используются стандартные функции библиотек 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
-
-
Значит, слишком маленькая пауза. Можно в sleep написать, например, 100 миллисекунд, или вообще 1000. Видно, у тебя программа cmd.exe запускается слишком медленно, и findwindow срабатывает раньше времени, следовательно, не обнаруживает окно... Ладно, можно попробовать так, как сделано в примере на C - запускать таймер, и уже он будет обнаруживать окно. Вот, исправление: в процедуру клика по форме вставляем код активации таймера, строчки "h:=f..." и "if h..." переносим в обработчик таймера, и добавляем в него выключение, если h<>0... Вот новая ссылка: rghost.ru/23666461– TimKruz30 сен 2011 в 14:48
-
Для большей наглядности, вот немного другой пример. Вводишь путь программы и её заголовок в поля - приложение запускается и переносится в окно. Только вместо shellexecute используется winexec, кстати, он описан в модуле windows, поэтому не нужно подключать дополнительных модулей. Скачать: rghost.ru/23670601– TimKruz30 сен 2011 в 15:19
-
...Только нужно потом убивать открытые приложения, а то их процессы (без окон) будут всё время висеть в системе...– TimKruz30 сен 2011 в 15:42
-
Воооо то что хотел)) теперь осталось разобраться как оно работает.... А как теперь изменять свойства формы в форме)))?– evgeniy30 сен 2011 в 21:31
Вот эта фраза совсем непонятна:
калькулятор в форму приложения
А запуск внешнего приложения из программы на Delphi - при помощи ShellExecute ();
-
Вот, допустим, есть прога написанная на делфи, там есть кнопка, её жмешь и приложение запускается в форме делфи.– evgeniy29 сен 2011 в 18:28
-
-
-
Если не сложно киньте линк на пример на С посмотрю, возможно и delphi прикрутим, хотя пока практического применения данному сабжу не вижу.– SoftR29 сен 2011 в 18:55
-
Линка нет но вот один пример на сайте одном видел ща сам визио ставлю посматреть хочу narod.yandex.ru/disk/26793186001/picBoxApp.7z– evgeniy29 сен 2011 в 19:02