Forum: Sonstige Fragen zu Delphi
Delphi
by Union,
31. Jul 2023
Stefan, geil! Du hast Sogar die virtual Jumps ($25FF) gehandelt!
Forum: Sonstige Fragen zu Delphi
Delphi
by Union,
28. Jul 2023
1. Adressen der alten und neuen Funktion referenzieren (z.b. @System._writestring, @MyUnit.MyWriteString)
2. offset ermitteln (Integer(@MyUnit.MyWriteString) - Integer(@System._writestring) - 5). Die 5 sind der JMP Befehl sowie die vier Byte des Pointers.
3. $E9 + (offset and 255) + ((offset shr 8) and 255) + ((offset shr 16)) and 255 + ((offset shr 24) and 255) bilden. Das ergibt dann ein JMP...
Forum: Sonstige Fragen zu Delphi
Delphi
by Union,
28. Jul 2023
SET BDSDIR=C:\Program Files (x86)\Embarcadero\Studio\20.0
REM RELEASE
"%BDSDIR%\bin\dcc32.exe" -$C- -$D- -$L- -$O- -$R+ -$W+ -CG -H -M -Q -V- -W^ -Z -Y --no-config System.pas
REM DEBUG
"%BDSDIR%\bin\dcc32.exe" -$C- -$D+ -$L- -$O- -$R+ -$W+ -CG -H -M -Q -V- -W^ -Z -Y -NUdebug --no-config System.pas
Es entstehen jeweils System, Sysinit. Die Pfade sind ggf. anzupassen, Beispiel ist für 10.3....