Форум: "Прочее";
Текущий архив: 2014.08.31;
Скачать: [xml.tar.bz2];
ВнизЧто это за 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.003 c