Registriert seit: 27. Mai 2005
Ort: Baden
315 Beiträge
Delphi 2007 Enterprise
|
Re: EXE Patchen -- Error: verletzt untere Grenzen
31. Dez 2007, 22:15
Hier noch was ganz schnell bevor ich gehe,
Delphi-Quellcode:
procedure UpdateOffset(var lpBuffer: Pointer; dwFileOffset: Cardinal; Value: array of Byte); overload;
begin
CopyMemory(Pointer(Cardinal(lpBuffer) + dwFileOffset), @Value[0], SizeOf(Value));
end;
...
const
x: Array[0..7] of Byte = ($01, $00, $00, $4B, $21, $24, $05, $C6);
begin
..
UpdateOffset(lpBuffer, dwFileOffset, x);
..
end;
Guten Rutsch noch .
|
|
Zitat
|