برنامج 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.