Текущий архив: 2014.08.31;
Скачать: CL | DM;

Вниз

Что это за DELPHI-хак?   Найти похожие ветки 

← →
Несусвет   (2014-01-31 15:59) [0]


constructor TLanguages.Create;
type
 TCallbackThunk = packed record
   POPEDX: Byte;
   MOVEAX: Byte;
   SelfPtr: Pointer;
   PUSHEAX: Byte;
   PUSHEDX: Byte;
   JMP: Byte;
   JmpOffset: Integer;
 end;
var
 Callback: TCallbackThunk;
begin
 inherited Create;
 Callback.POPEDX := $5A;
 Callback.MOVEAX := $B8;
 Callback.SelfPtr := Self;
 Callback.PUSHEAX := $50;
 Callback.PUSHEDX := $52;
 Callback.JMP     := $E9;
 Callback.JmpOffset := Integer(@TLanguages.LocalesCallback) - Integer(@Callback.JMP) - 5;
 EnumSystemLocales(TFNLocaleEnumProc(@Callback), LCID_SUPPORTED);
end;


---

← →
clickmaker ©   (2014-01-31 16:02) [1]

чтобы заюзать метод класса как функцию обратного вызова, которая не должна быть методом класса

---

Страницы: 1 вся ветка

Текущий архив: 2014.08.31;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.003 c