Using of TKeyInformation.EncryptedSections
Posted: Sat Aug 30, 2014 5:48 pm
Возможно ли более кратко записать следующий код
как то так:
?
Я понимаю, что первый вариант кода можно оформить в виде метода и вызывать его.
Но в случае накрытия кода вызывающего этот метод виртуальной машиной, нет уверенности, что компилятор заинлайнит специально сделанный метод в блок накрытый виртуалкой.
Другими словами хочется аналога EP_RegKeyCreationDate для TKeyInformation.EncryptedSections
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]) thenCode: Select all
begin
if EP_EncryptedSections(1) thenЯ понимаю, что первый вариант кода можно оформить в виде метода и вызывать его.
Но в случае накрытия кода вызывающего этот метод виртуальной машиной, нет уверенности, что компилятор заинлайнит специально сделанный метод в блок накрытый виртуалкой.
Другими словами хочется аналога EP_RegKeyCreationDate для TKeyInformation.EncryptedSections