Code: Select all
var
Name : WideString;
Key : WideString;
Info : TKeyInformation;
begin
if EP_RegistrationLoadKeyW(Name, Key) and EP_RegKeyInformationW(PWideChar(Name), PWideChar(Key), Info) and (Info.EncryptedSections[1]) then
Code: Select all
begin
if EP_EncryptedSections(1) then
Я понимаю, что первый вариант кода можно оформить в виде метода и вызывать его.
Но в случае накрытия кода вызывающего этот метод виртуальной машиной, нет уверенности, что компилятор заинлайнит специально сделанный метод в блок накрытый виртуалкой.
Другими словами хочется аналога EP_RegKeyCreationDate для TKeyInformation.EncryptedSections