#define RT_MANIFEST  24
#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID  2
ISOLATIONAWARE_MANIFEST_RESOURCE_ID RT_MANIFEST "manifest.xml"

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
   name="Microsoft.Windows.Shell.desk"
   processorArchitecture="x86"
   version="5.1.0.0"
   type="win32"/>
<description>Windows Shell</description>
<dependency>
   <dependentAssembly>
       <assemblyIdentity
           type="win32"
           name="Microsoft.Windows.Common-Controls"
           version="6.0.0.0"
           processorArchitecture="x86"
           publicKeyToken="6595b64144ccf1df"
           language="*"
       />
   </dependentAssembly>
</dependency>
</assembly>

{$R resources.res}

uses ActivationCotext.pas

var
 ThemedActContext: TThemedActContext;
begin  
 ThemedActContext := TThemedActContext.Create;
 try
   ThemedActContext.Activate := True;
   MessageBox(0, '', '', MB_YESNOCANCEL);
 finally
   ThemedActContext.Free;
 end;
end;