+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : برامج دلفي من عمل الأعضاء (https://delphi4arab.net/forum/forumdisplay.php?fid=27)
+--- الموضوع : برنامج FileToByteArray لتحويل اي ملف الى pas (/showthread.php?tid=4486)
الصفحات:
1
2
برنامج FileToByteArray لتحويل اي ملف الى pas - onexite - 26-08-2012
السلام عليكم
هذا برنامج FileToByteArray يقوم بتحويل اي ملف الى وحدة
الان ستستغنون عن الرسورس
![[صورة: wu8s8Y.png]](http://img913.imageshack.us/img913/1261/wu8s8Y.png)
طريقة الاستخدام
- فتح الدلفي
- افتح البرنامج وقم بتحويل ملفك فلنفرض مثلا ان اسمه 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.
برنامج FileToByteArray لتحويل اي ملف الى pas - achi - 26-08-2012
السلام عليكم
عمل جيد شكرا جزيلا على المثابرة با رك الله فيك
لكن اضن انه عوض savefile نكتب savetofile
شكرا
برنامج FileToByteArray لتحويل اي ملف الى pas - Mr-HERO - 26-08-2012
[color="slategray"]الف شكر على البرنامج
جربتة ويعمل بكل كفائة
شكرا لك [/color]
برنامج FileToByteArray لتحويل اي ملف الى pas - achi - 29-08-2012
السلام عليكم
لقد قمت بالتعليق على المثال الجيد الذي قدمته و قد اخطا ت في التعليق عذرا
انت استعملت function و انا استعملت procedure فاختلطت علي الامور
قمت بارفاق مثالي عذرا
شكرا
برنامج FileToByteArray لتحويل اي ملف الى pas - saiedcracker - 30-08-2012
شكرا اخى الكريم
اداه اكثر من رائعة , تغنينا عن عمل الريسورس
و بعد اذنك ساطرح الاداة فى منتدى العرب المتحدون للهندسة العكسية , طبعا مع حفظ الحقوق
برنامج FileToByteArray لتحويل اي ملف الى pas - بن دهيبة - 27-09-2012
السلام عليكم ورحمة الله تعالي وبركاته
جزاك الله خيرا
كيف يمكن استفادة منه ولو لمحة سريعة
وشكرا
برنامج FileToByteArray لتحويل اي ملف الى pas - onexite - 29-09-2012
بن دهيبة كتب :كيف يمكن استفادة منه ولو لمحة سريعةhttp://www.delphi4arab.net/forum/showpost.php?p=37431&postcount=3
طريقة الاستخدام
فتح الدلفي
افتح البرنامج وقم بتحويل ملفك فلنفرض مثلا ان اسمه test.exe
سيقوم بتحويله الى test.pas
ننشا مشروع جديد في الدلفي ونضع فيه هذا السطر فقط
test_Savefile('c:\test1.exe')
حيث ان test هو اسم الوحدة ولا ننسى ان نضيفها الى uses
برنامج FileToByteArray لتحويل اي ملف الى pas - بن دهيبة - 20-10-2012
جزاك الله خيرا
كنت اقصد لماذا احولها الى وحدة
هل لجعل البرنامج يقوم بتنصيب ام توليد نسخة جديد في حالة العطب
وشكرا
برنامج FileToByteArray لتحويل اي ملف الى pas - onexite - 13-11-2012
لدمج الملفات وتشغيلها على شكل مصفوفة اما في الذاكرة مباشرة او بعد الاستخراج
برنامج FileToByteArray لتحويل اي ملف الى pas - karika2 - 27-01-2013
أخى كيف أضيفها الى uses هل أغير كلمة test الى أسم البرنامج التنفيذى الذى يعمل كريسورس..