PDA

View Full Version : اجراي يك فايل در برنامه



nedata
یک شنبه 08 شهریور 1394, 18:44 عصر
سلام
من ميخوام يك فايل exe را از داخل برنامه بتونم اجرا كنم و به طور جداگانه اجرا نشه
نكته: سورس فايل exe را ندارم
ممنون از كمكتون

pbm_soy
یک شنبه 08 شهریور 1394, 23:31 عصر
منظورتون از اجرای جداگانه چی هست؟
میتوانید یک فایل اجرایی را از داخل برنامه اجرا کنید

یوسف زالی
دوشنبه 09 شهریور 1394, 09:48 صبح
سلام.
بعد از اجرا اون رو setparent کنید.

nedata
چهارشنبه 11 شهریور 1394, 17:08 عصر
سلام
ممنون از توجهتون
يك فايل exe دارم كه از طريق rc فايلها اجرا مي كنم اما بعد از اينكه اجرا ميشه توي پوشه باقي ميمونه و قابليت اجرا به صورت جداگانه داره
ميشه يه مثال از اينكه چطوري setparent كنم برام بزنيد
اين هم نمونه كد خودم
procedure TForm1.FormCreate(Sender: TObject);begin
RS := TResourceStream.Create(HInstance, 'newspaper', RT_RCDATA);
try


vExeFile := ExtractFilePath(ParamStr(0)) + 'SRC\tmp.dll.exe';
FileSetAttr(vExeFile,faNormal);


ShellExecute(Self.Handle, 'open', PChar(vExeFile), nil, nil, SW_SHOWNORMAL);
finally
RS.Free;
Application.Terminate;


end;
end;