delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

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

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

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

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

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

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

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

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

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

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

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

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

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

كود :
{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;

بالتوفيق.

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

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

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

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

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

(21-05-2016, 11:46 AM)B.M.AbdelAziZ كتب : [ -> ]
إقتباس :كيفية استدعاء ملف تنفيذي داخل ملف تنفيذي آخر
السلام عليكم
انتبه هذا يثير مضادات الفيروسات والبرامج الضارة

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

الصفحات : 1 2

mittoo6

STRELiTZIA

mittoo6

STRELiTZIA

darkman

mourad39

kachwahed

أبو معاذ

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

أبو معاذ