دمج و تشغيل برنامج في ملف تنفيذي

[mittoo6]

السلام عليكم اخواني
اود صنع برنامج مثل الدي في الصورة
بحيث عند الضغط على الزر يفتح لي اللودر*برنامج يستعمل في تحديث الاجهزة*
اي دمج هدا اللودر في برنامجي

[STRELiTZIA]

و عليكم السلام و رحمة الله

بحيث عند الضغط على الزر يفتح لي اللودر*برنامج يستعمل في تحديث الاجهزة*

طريقة العمل :
1- دمج الملف يدويا في ريسورس البرنامج الحامل : Dropper
2- استعمال : TResourceStream و TFileStream لاستئصال الملف المدمج.
3- استعمال : WinExec او ShellExecute لتشغيل البرنامج المدمج.

المنتدى تعليمي، يعني نقوم بالتوجيه و انت تقوم بالعمل و ليس العكس :close_tema:

بالتوفيق ان شاء الله

[mittoo6]

بارك الله فيك اخي
انا لم افهم الطريقة
اود منكم شرح ولو بصور متحركة كيف ادمج ملف فقط
وانا لااود ان تبرمجو لي البرنامج الدي في الصورة
ان شاء الله انني لم احرجكم

[STRELiTZIA]

شرح ولو بصور متحركة كيف ادمج ملف فقط

الطريقة البرمجية تم ذكرها في المشاركة السابقة، عليك انت ان تجتهد
المنتدى تعليمي، يعني نقوم بالتوجيه و انت تقوم بالعمل و ليس العكس :close_tema:

[darkman]

هل إستفدت يا أخي خاليد أو لا .........أخوك الحبشة
مع العلم أنني أبحث عن شرح بعض الكود سورسات التي قد تفيدنا وتفيد هذا المنتدى الغالي

[mourad39]

أهلا أخي خالد
تفضل إليك مثال على كيفية دمج ملف صوتي و يمكن دمج أي ملف أي ليس شرطا أن يكون ملف صوتيا
http://www.delphi4arab.net/forum/showthread.php?tid=42

[kachwahed]

وعليكم السلام
اتبع هذه الخطوات جيدا:

كود :

{1. Start notepad and create a .rc-file that looks like this: TESTFILE EXEFILE C:\Windows\Notepad.exe (Make sure that the Path to your Exe-File is correct!) 2. Save it as myres.rc 3. Compile the file with brcc32.exe (in your Delphi-bin directory) to get myres.res 4. Copy myres.res to your Project directory. 5. In your unit write the following: } var Form1: TForm1; NOTEPAD_FILE: string; implementation {$R *.DFM} {$R MYRES.RES} function GetTempDir: string; var Buffer: array[0..MAX_PATH] of Char; begin GetTempPath(SizeOf(Buffer) - 1, Buffer); Result := StrPas(Buffer); end; // Extract the Resource function ExtractRes(ResType, ResName, ResNewName: string): Boolean; var Res: TResourceStream; begin Result := False; Res := TResourceStream.Create(Hinstance, Resname, PChar(ResType)); try Res.SavetoFile(ResNewName); Result := True; finally Res.Free; end; end; // Execute the file procedure ShellExecute_AndWait(FileName: string); var exInfo: TShellExecuteInfo; Ph: DWORD; begin FillChar(exInfo, SizeOf(exInfo), 0); with exInfo do begin cbSize := SizeOf(exInfo); fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT; Wnd := GetActiveWindow(); ExInfo.lpVerb := 'open'; lpFile := PChar(FileName); nShow := SW_SHOWNORMAL; end; if ShellExecuteEx(@exInfo) then begin Ph := exInfo.HProcess; end else begin ShowMessage(SysErrorMessage(GetLastError)); Exit; end; while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do Application.ProcessMessages; CloseHandle(Ph); end; // To Test it procedure TForm1.Button1Click(Sender: TObject); begin if ExtractRes('EXEFILE', 'TESTFILE', NOTEPAD_FILE) then if FileExists(NOTEPAD_FILE) then begin ShellExecute_AndWait(NOTEPAD_FILE); ShowMessage('Notepad finished!'); DeleteFile(NOTEPAD_FILE); end; end; procedure TForm1.FormCreate(Sender: TObject); begin NOTEPAD_FILE := GetTempDir + 'Notepad_FROM_RES.EXE'; end;

بالتوفيق.

[أبو معاذ]

السلام عليكم ،

يا أهل منتدى دلفي للعرب حفظكم الله و رعاكم.

كنت أبحث عن كيفية استدعاء ملف تنفيذي داخل ملف تنفيذي آخر ، ثم حذفه  (الملف المدمج ) بعد الانتهاء منه.

[محمد عبد العزيز]

كيفية استدعاء ملف تنفيذي داخل ملف تنفيذي آخر

السلام عليكم
انتبه هذا يثير مضادات الفيروسات والبرامج الضارة

[أبو معاذ]

كيفية استدعاء ملف تنفيذي داخل ملف تنفيذي آخر

السلام عليكم
انتبه هذا يثير مضادات الفيروسات والبرامج الضارة

السلام عليكم ،
والحل إذن ؟