Готово, обновил пост )переложи на http://onlinedisk.ru/ пожалуйста
P.S.
ModelMaker & MM Code Explorer, asm64d обновил ссылку в посте.
Готово, обновил пост )переложи на http://onlinedisk.ru/ пожалуйста
http://www.fileserve.com/file/V4pUqMu
http://www.midupload.com/cilr5j75xclw
Additional for Eurekalog 6.0.24 Enterprise Full Source, to use with Delphi XE (expert + component)
*** скрытый блок ***
function ModuleInitTable: PackageInfo;
begin
{$IFDEF Delphi6Down}
Result := PPointer(DWord(@AllocMemSize) + $84)^;
{$ELSE}
{$IFDEF Delphi9Down}
Result := PInitContext(DWord(@AllocMemSize) + $80).InitTable;
{$ELSE}
{$IFDEF Delphi12Up}
{$IFDEF Delphi15}
[COLOR="Red"]Result := PInitContext(DWord(@AllocMemSize) + $2210).InitTable[/COLOR]
{$ELSE}
Result := PInitContext(DWord(@AllocMemSize) + $2214).InitTable
{$ENDIF}
{$ELSE}
Result := PInitContext(DWord(@AllocMemSize) + $2218).InitTable
{$ENDIF}
{$ENDIF}
{$ENDIF}
end;