Нужно сделать дыру в форме OnCreate в проекте на дельфи

Мне нужна дыра, но выполнимая, вот что я имею под этим:

Код (Text):

1. procedure TForm1.FormCreate(Sender: TObject);
2. begin
3.   asm
4.   jmp @L
5.     dd  $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
6.     dd  $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
7.     dd  $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
8.     dd  $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
9.     dd  $FFFFFFFF,$FFFFFFFF,$FFFFFFFF,$FFFFFFFF
10.   @L:
11.   end;
12. end;

но это не удачное решение т.к. когда мне понадобится дыра поболе, к примеру на 10 килобайт, то этот исходник уже выростит возможно ли это решить другим способом?



ЗЫ:

дельфи не давно начал читать

 

Может включить файл с набором тех-же $FFFFFFF? Для этого есть директива {$I filename.inc}

Хотелось бы знать, для чего она тебе вдруг понадобилась, может есть более прямые альтернативы.

 

alpet

Спасибо! ))

 

Можно создать такую дырку в секции DATA:

Код (Text):

1. var
2. hole : array [1..нужный_размер] of Byte;

Потом вписать опкод JMP rel32:

Код (Text):

1. begin
2.    hole[1] := $E9;
3.    hole[2] := ((Length(hole) - 5) shr 0)  and $FF;
4.    hole[3] := ((Length(hole) - 5) shr 8)  and $FF;
5.    hole[4] := ((Length(hole) - 5) shr 16) and $FF;
6.    hole[5] := ((Length(hole) - 5) shr 24) and $FF;

Только массив будет заполнен нулями, а не 0xFF.



Если нужна дыра в функции, то можно скомпилировать обьектник в тасме (кажется, тасм поддерживает dup) и прилинковать к Delphi:

Код (Text):

1. {$L tasm_module.obj}

 

EvilsInterrupt

И при чём здесь "дыра в форме"?

 

IceStudent

" - А почему.. "Ы"?

- Чтоб никто недогадался!"



Quantum

Спасибо, за мысли и доброжелательность,Но

Код (Text):

1. begin
2.    hole[1] := $E9;
3.    hole[2] := ((Length(hole) - 5) shr 0)  and $FF;
4.    hole[3] := ((Length(hole) - 5) shr 8)  and $FF;
5.    hole[4] := ((Length(hole) - 5) shr 16) and $FF;
6.    hole[5] := ((Length(hole) - 5) shr 24) and $FF;

А вариант с тасмом интересен, но до тебя товарищ подсказал мне довольно хороший метод, за что ему спасибо.