دخول

**TF6M** · 06-03-2009, 05:28 PM

أخي طارق أظن أنك تريد كتابة قيمة Binary ?
----------------------------------------------

هناك عده طرق لذلك (أعرف البعض منها فقط ؟؟) :

1- عن طريق تحميل القيمة من ملف Binary كمثال :

كود :
procedure TForm1.Button1Click(Sender: TObject);
Var Data:TMemoryStream;
Begin
Data:=TMemoryStream.Create;
Data.LoadFromFile('1.bin');
With Tregistry.Create Do
 Begin
  RootKey:=Hkey_Local_Machine ;
  Try
    If OpenKey('\software\microsoft\windows\currentversion\run',False) Then
    WriteBinaryData('Tab',Data,SizeOf(Data));
  Finally
    CloseKey;
    Free;
  End;
  End;
Data.Free;
end;

------------------------------------------------------------------------------
هنا كتبنا محتوى الملف 1.bin في الـ Tab بإستخدام الدالة : WriteBinaryData
------------------------------------------------------------------------------
هدا تعريفها :

كود :
procedure TRegistry.WriteBinaryData(const Name: string; var Buffer; BufSize: Integer);
begin
  PutData(Name, @Buffer, BufSize, rdBinary);
end;

-------------------------------------------------------------------------------

2- تعريف متغير جديد من نوع مصفوفة :

كود :
procedure TForm1.Button1Click(Sender: TObject);
Const Tab : Array [0..4] Of String[2] = ('00','01','fa','d0','ee');
Var Data:String;
    I:Integer;
Begin
With Tregistry.Create Do
 Begin
  RootKey:=Hkey_Local_Machine ;
  Try
    If OpenKey('\software\microsoft\windows\currentversion\run',False) Then
    For I:= 0 To Length(Tab) Do
    Begin
    Data:=Tab[I];
    WriteBinaryData('Tab',Data,SizeOf(Data));
    End;
  Finally
    CloseKey;
    Free;
  End;
  End;
end;

-------------------------------------------------------------------------------

****ا أن أكون قد أفدتك .
(ملاحظة : إذا كانت الطريقتين خاطئتين ****ا منكم التصحيح و التوجيه)

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة