защита от копирования, символическая Опции

[мисс_граффити]

Здравствуйте.
Возникла такая ситуация - делаю программку (БД). Хотелось бы как-то ограничить возможности ее копирования (специально ее ломать нафиг никому не надо, люди от хакерства весьма и весьма далеки, поэтому в супер-заморочках необходимости нет). С подобными задачами никогда не сталкивалась... Поделитесь опытом, пожалуйста - как можно подойти к вопросу?
Спасибо заранее.

[-Neznaika-]

Эх, пример не получается создать.
Я думал примерно так:

Записываем MAGIC в "хвост" файла FileName:

  type
   String5 = String[5];
 const
   MAGIC : String5 = 'Magic';
   MAGIC_SIZE = SizeOf(String5);
   CLUSTER_SIZE = 4096;
   FileName : array[0..12] of Char = 'TestFile.dat'#0;
 var
   hFile : THandle;
   FileSize : DWord;
   DW : DWord;
   ...
   hFile := CreateFile(@FileName,GENERIC_READ or GENERIC_WRITE,0,NIL,OPEN_EXISTING,0,0);
   FileSize := GetFileSize(hFile,NIL);
   if (CLUSTER_SIZE - FileSize mod CLUSTER_SIZE) < MAGIC_SIZE then
     begin
       Write('No memory in tail!');
        CloseHandle(hFile);
        Exit
     end;
   SetFilePointer(hFile,FileSize,NIL,FILE_BEGIN);
   WriteFile(hFile,MAGIC,MAGIC_SIZE,DW,NIL);
   SetFilePointer(hFile,FileSize,NIL,FILE_BEGIN);
   SetEndOfFile(hFile);
   CloseHandle(hFile)

К сожалению вызов SetEndOfFile(hFile) затирает MAGIC