ورود

View Full Version : سوال: اجرای برنامه دلفی در برنامه دیگر دلفی



sajioo
چهارشنبه 06 اردیبهشت 1391, 18:58 عصر
با سلام
دوستان عزیز فرض کنید برنامه ی داریم که یک فرم داره .
حالا من قبلا یک برنامه دلفی طراحی کردم ، می خوام اون برنامه رو از طریق این فرم نشون بدم.
یعنی مثلا مثل این باشه که برنامه جدید مثل یک دسکتاپ عمل کنه.
میشه این کار را انجام داد؟

lord_viper
چهارشنبه 06 اردیبهشت 1391, 20:18 عصر
میتونین پرنت پنجره برنامه مورد نظر رو فورم برنامه ای که به عنوان دسکتاپ هست بکنین تا درون اون قرار بگیره

sajioo
پنج شنبه 07 اردیبهشت 1391, 09:58 صبح
منظورتون رو نفهمیدم .
میشه واضح تر توضیح بدید؟:اشتباه:

Mask
پنج شنبه 07 اردیبهشت 1391, 11:11 صبح
میتونی اینچوری پرنت برنامت رو بزاری یه برنامه دیگه.

var
Rec: TShellExecuteInfo;
const
AVerb = 'open';
AParams = '';
AFileName = 'calc.exe';
ADir = '';
begin
FillChar(Rec, SizeOf(Rec), #0);
Rec.cbSize := SizeOf(Rec);
Rec.fMask := SEE_MASK_NOCLOSEPROCESS;
Rec.lpVerb := PChar( AVerb );
Rec.lpFile := PChar( AfileName );
Rec.lpParameters := PChar( AParams );
Rec.lpDirectory := PChar( Adir );
Rec.nShow := SW_HIDE;

ShellExecuteEx(@Rec);
WaitForInputIdle(Rec.hProcess, 5000);

fHandle := Windows.FindWindow( 'CalcFrame', nil );
Windows.SetParent( fHandle, Handle );

Resize;
ShowWindow(fHandle, SW_SHOW);

sajioo
یک شنبه 28 خرداد 1391, 11:41 صبح
fHandle چیه؟
ارور میده!:متفکر: