Главная страница
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.005 c
15-1391185991
Jeer
2014-01-31 20:33
2014.08.31
Э..один раз умирать:)


11-1252314935
Dy1
2009-09-07 13:15
2014.08.31
сжатие mdb


4-1269440249
Елена
2010-03-24 17:17
2014.08.31
Определить что установлена Win 7


2-1380574999
Delphi_Newbie
2013-10-01 01:03
2014.08.31
Устройства ввода


2-1380884262
Вася
2013-10-04 14:57
2014.08.31
как освободить память после вызова функции?