2020年7月

Delphi翻译Api头文件时的一个坑

typedef enum _EVT_RENDER_FLAGS
{
    EvtRenderEventValues = 0,           // Variants
    EvtRenderEventXml,                  // XML
    EvtRenderBookmark                   // Bookmark

 } EVT_RENDER_FLAGS;
  EVT_RENDER_FLAGS = (EvtRenderEventValues = 0,
    EvtRenderEventXml = 1,
    EvtRenderBookmark = 2);


DWORD      Flags    //Windows SDK的定义

翻译成Delphi的时候一定也要定义成对应的数据类型千万别

Flags:EVT_RENDER_FLAGS;

不然 32Bit的时候正常 但是64Bit程序的时候 sizeof（EVT_RENDER_FLAGS）  =  1

记一笔manifest与dpiAware

<application xmlns="urn:schemas-microsoft-com:asm.v3">    
<windowsSettings>    
<!-- Per Monitor V1 [OS >= Windows 8.1]     
         Values: False, True, Per-monitor, True/PM -->    
<dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">    
true/PM</dpiAware>    
<!-- Per Monitor V1 [OS >= Windows 10 Anniversary Update (1607, 10.0.14393, Redstone 1)]    
         Values: Unaware, System, PerMonitor -->    
<!-- Per Monitor V2 [OS >= Windows 10 Creators Update (1703, 10.0.15063, Redstone 2)]    
         Value: PerMonitorV2 -->    
<dpiAwareness xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">    
PerMonitorV2, PerMonitor</dpiAwareness>    
</windowsSettings>    
</application>

或者直接禁用掉

  <asmv3:application>
    <asmv3:windowsSettings>
      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">false</dpiAware>
      <dpiAwareness xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">unaware</dpiAwareness>
    </asmv3:windowsSettings>
  </asmv3:application>