Delphi XE4 64位中的SendMessageTimeout产生访问冲突

我想在节目中播放一些环境变量的变化。因此，其他一些实用程序可以使用新值。 当我在Windows7平台上用Delphy XE4 32位编译下一个例程时，一切似乎都正常。 当我在Delphy中切换到64位平台时，调试器会产生访问冲突

有什么建议吗

---

---

您需要以null结尾字符串。只需将声明切换为使用

PChar

您还必须停止将指针强制转换为32位

整数

，这会将64位指针截断为32位指针，这很容易导致痛苦

由于您不使用aResult，因此传递nil。您未初始化的指针显然是个问题

procedure BroadcastChange;
begin
  SendMessageTimeout(
    HWND_BROADCAST, 
    WM_SETTINGCHANGE,
    0, 
    LPARAM(PChar('Environment')), 
    SMTO_NORMAL, 
    4000, 
    nil
  );
end;

---

谢谢。这是有帮助的，但最终还是将结果初始化为零。实际上，下一个代码是有效的：

procedure BroadcastChange;
    var
        aResult          : PDWORD_PTR;            
    begin
        aResult  := nil;  {<---}
        SendMessageTimeout(HWND_BROADCAST ,
                           WM_SETTINGCHANGE ,
                           0, 
                           LPARAM(PChar('Environment')), 
                           SMTO_NORMAL  ,
                           4000,
                           aResult
                           );
    end;

程序变更；
变量
结果：PDWORD_PTR；
开始
a结果：=零；{
procedure BroadcastChange;
    var
        aResult          : PDWORD_PTR;            
    begin
        aResult  := nil;  {<---}
        SendMessageTimeout(HWND_BROADCAST ,
                           WM_SETTINGCHANGE ,
                           0, 
                           LPARAM(PChar('Environment')), 
                           SMTO_NORMAL  ,
                           4000,
                           aResult
                           );
    end;