توقف "البرنامج فيه مصيبه"

السلام عليكم ممكن تحفظ كل التغيرات في ملف ini file و تضعه في أول تثبيت في السيستم و بعديها تتاكد منه لو كان فيه تغيير يقفل البرنامج على طول ولكن مبرمجي الأسمبلي وجدولها حل إنك لما يفتح يدور على الأمر إلي يقول إقفل البرنامج و يحوله إلى أمر إفتح البرنامج و هذا مايحدث في كسر الحماية يعني الأسمبلي ممكن يعمل أي حاجه في برنامجك و إنت على حد علمي لاتستطيع الحماية و هذا ليس مقتصر على الدلفي فقط بل على كل لغة تبرمج ملفات EXE

مظبوط كلام الأخ @hmed ..

جل مانستطيع فعلة هو تصعيب الوضع قليلا على المبرمج ,

على كل حال لإكتشاف حجم ملف ما بالبايت :

procedure TForm1.Button1Click(Sender: TObject);
var
   f: file of Byte;
   size: Longint;
    begin
  if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    try
      size := FileSize(f);
      showmessage( 'File size in bytes: ' + IntToStr(size));
     finally
      CloseFile(f);
    end;
  end;

end;