can someone describe me waht that means ?

[scp]

Something like this:

Delphi-Quellcode:

type
  TSafeDiscVer = packed record
    Major : DWORD;
    Minor : DWORD;
    Build : DWORD;
  end;
var
  ASafeDiscVer : TSafeDiscVer;
  fs : TFileStream;
  ThePos : integer;
begin
  ThePos := FindInFile('D:\game.exe', 'BoG_', true);
  //...
  fs.Seek(ThePos + 32, soFromBeginning);
  fs.ReadBuffer(ASafeDiscVer, SizeOf(TSafeDiscVer));
  Edit1.Text := 'SafeDisc Version '
              + IntToStr(ASafeDiscVer.Major) + '.'
              + IntToStr(ASafeDiscVer.Minor) + '.'
              + IntToStr(ASafeDiscVer.Build);