Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.007 c
15-1391113802
Юрий
2014-01-31 00:30
2014.08.31
С днем рождения ! 31 января 2014 пятница


2-1380552472
ixen
2013-09-30 18:47
2014.08.31
Хэширование строк в SHA1


2-1381400402
Error-Code-0xDEADBEEF
2013-10-10 14:20
2014.08.31
проектирование бд


15-1390229340
Пит
2014-01-20 18:49
2014.08.31
Отображаемые элементы в cxGrid


15-1391169590
Несусвет
2014-01-31 15:59
2014.08.31
Что это за DELPHI-хак?