برنامج FileToByteArray لتحويل اي ملف الى pas

[onexite]

السلام عليكم
هذا برنامج FileToByteArray يقوم بتحويل اي ملف الى وحدة
الان ستستغنون عن الرسورس



طريقة الاستخدام

• فتح الدلفي
  
• افتح البرنامج وقم بتحويل ملفك فلنفرض مثلا ان اسمه test.exe
  
• سيقوم بتحويله الى test.pas
  
• ننشا مشروع جديد في الدلفي ونضع فيه هذا السطر فقط
  
• test_Savefile('c:\test1.exe')
  
• حيث ان test هو اسم الوحدة ولا ننسى ان نضيفها الى uses
  

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,test, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
 test_Savefile('c:\test1.exe')
end;

end. 


[achi]

السلام عليكم

عمل جيد شكرا جزيلا على المثابرة با رك الله فيك

لكن اضن انه عوض savefile نكتب savetofile


شكرا

[Mr-HERO]

[color="slategray"]الف شكر على البرنامج
جربتة ويعمل بكل كفائة
شكرا لك [/color]

[achi]

السلام عليكم
لقد قمت بالتعليق على المثال الجيد الذي قدمته و قد اخطا ت في التعليق عذرا
انت استعملت function و انا استعملت procedure فاختلطت علي الامور
قمت بارفاق مثالي عذرا
شكرا

[saiedcracker]

شكرا اخى الكريم
اداه اكثر من رائعة , تغنينا عن عمل الريسورس
و بعد اذنك ساطرح الاداة فى منتدى العرب المتحدون للهندسة العكسية , طبعا مع حفظ الحقوق

[بن دهيبة]

السلام عليكم ورحمة الله تعالي وبركاته
جزاك الله خيرا
كيف يمكن استفادة منه ولو لمحة سريعة
وشكرا

[onexite]

كيف يمكن استفادة منه ولو لمحة سريعة

http://www.delphi4arab.net/forum/showpos...ostcount=3
طريقة الاستخدام
فتح الدلفي
افتح البرنامج وقم بتحويل ملفك فلنفرض مثلا ان اسمه test.exe
سيقوم بتحويله الى test.pas
ننشا مشروع جديد في الدلفي ونضع فيه هذا السطر فقط
test_Savefile('c:\test1.exe')
حيث ان test هو اسم الوحدة ولا ننسى ان نضيفها الى uses

[بن دهيبة]

جزاك الله خيرا

كنت اقصد لماذا احولها الى وحدة

هل لجعل البرنامج يقوم بتنصيب ام توليد نسخة جديد في حالة العطب

وشكرا

[onexite]

لدمج الملفات وتشغيلها على شكل مصفوفة اما في الذاكرة مباشرة او بعد الاستخراج

[karika2]

أخى كيف أضيفها الى uses هل أغير كلمة test الى أسم البرنامج التنفيذى الذى يعمل كريسورس..