+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أنفذ برنامج اخر في نافذة برنامجي؟ (/showthread.php?tid=2439)
كيف أنفذ برنامج اخر في نافذة برنامجي؟ - strongwilled - 23-09-2010
هل ممكن تشغيل برنامج اخر في برنامجي؟
مثلا لو افتح برنامج الاله الحاسبه من برنامجي عن طريق الضغط على زر
نكتب هذا الكود
كود :
WinExec('C:\Windows\Calc.exe' ,Sw_Show) ;لكن كيف انفذ برنامج الاله الحاسبه في في نافذة(الفورم) لبرنامجي
بحيث اكون قادر على العمل فيه من داخل برنامجي في نفس النافذه
كيف أنفذ برنامج اخر في نافذة برنامجي؟ - kachwahed - 23-09-2010
السلام عليكم ورحمة الله وبركاته
strongwilled أهلا ومرحبا بك في المنتدى
نأمل أن تكون قد اطعلت على القوانين:
http://www.delphi4arab.net/forum/misc.php?do=showrules
مبدئيا يمكنك استخدام المكون TOleContainer. مرفق مع معظم إصدارات دلفي
بالزر الأيمن عليه اختر Add Object ثم اختر الملف...
أو شيء مثل:
كود :
OleContainer1.CreateObjectFromFile('c:\WINDOWS\system32\calc.exe', True);إذا أوضحت الذي تريد القيام به، قد نجد حلا أفضل.
بالتوفيق.
كيف أنفذ برنامج اخر في نافذة برنامجي؟ - TF6M - 23-09-2010
السلام عليكم
- Handle مقبض واجهة البرنامج الأساسية .
- TrgWindow إسم الواجهة الأب التي نريد أن ينفذ برنامجنا في حدود إطارها !
كود :
SetParent(Handle,FindWindow(Pchar(TrgWindow),Nil));بالتوفيق,,
كيف أنفذ برنامج اخر في نافذة برنامجي؟ - kachwahed - 23-09-2010
إقتباس :- Handle مقبض واجهة البرنامج الأساسية .بطريقة أخرى:
- TrgWindow إسم الواجهة الأب التي نريد أن ينفذ برنامجنا في حدود إطارها !
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
if WinExec('c:\windows\system32\calc.exe', SW_NORMAL) > 31 then
Windows.SetParent(FindWindow('SciCalc', nil), Handle)
end;
كيف أنفذ برنامج اخر في نافذة برنامجي؟ - strongwilled - 28-09-2010
شكرا أخي الكريم kachwahed على التنبيه وان شاء الله أكون حريصا في المرات القادمة
احب أوضح شي أنا مبتدءا في البرمجة
في الحقيقة لا املك معلومات كثيرة عن Handle و TOleContainer
امثال بالصورة التالية
![[صورة: images-5235d6ecc1.jpg]](http://up6.up-images.com/up//uploads/images/images-5235d6ecc1.jpg)