كيف يمكن نسخ برنامج من الذاكرة

لا أعتقد بأن سؤالي صعب إلى درجة أنه لم يقم أي شخص حتى بالأستفسار

أو أنا سؤالي غاية في الغباء :(

:confused:

عليكم السلام

ربما قصدك نسخ مجموعة من البايتات من الذاكرة إلى الهارد و بالعكس

أنا أبحث عن جواب

لنسخ ملف من مكان الى اخر استعمل

CopyFile(Pchar(FileSource),Pchar(FileDistination),false);

اذا اردت نسخ مجلد استعمل الدالة التالية

procedure TForm1.CopyDir(DirSource,DirDistination: String);

var

sr: TSearchRec;

Trouve : integer;

begin

if (not DirectoryExists(DirDistination)) then ForceDirectories(DirDistination);

trouve := FindFirst(DirSource+'\*.*', faAnyFile, sr);

while trouve = 0 do

begin

if (sr.Name[1]<>'.') then

if DirectoryExists(DirSource+'\'+sr.Name) then

CopyDir(DirSource+'\'+sr.Name,DirDistination+'\'+sr.Name)

else

CopyFile(Pchar(DirSource+'\'+sr.Name),pchar(DirDistination+'\'+sr.Name),false);

Trouve:=FindNext(sr) ;

end;

FindClose(sr);

end;

اذا اردت نسخ مجموعة من البايتات الى الذاكرة استعمل الكائن Clipboard

والله أعلم

مرحبا

سؤالك مهم

يمكنك نسخ ملف الى الذاكرة باستخدام توابع API

ويوجد طريقة ثانية باستخدام BlockRead و BlockWrite

انت ابحث في الHelp عن BlockWrite وسوف تجد مثال جاهز يقوم بنسخ ملف الى الذاكرة .

فقط قم بنسخ الكود ولصقه في المكان الذي تريد واضافة الSaveDialog و opendialog الى الفورم .

واذا لم تنجح العملية معك اخبرني وانا سأقوم بكتابة الكود لك كاملا

وشكرا