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

发布时间：2020-12-15 09:09:40 所属栏目：大数据来源：网络整理

导读：我想在我的程序中广播一些环境变量的变化.因此,其他一些实用程序可以使用新值. 当我在 Windows 7平台上编译32位Delphy XE4中的下一个例程时,一切似乎都能正常工作. 当我将Delphy切换到64位平台时,调试器会产生访问冲突. 有什么建议？ procedure BroadcastCha

我想在我的程序中广播一些环境变量的变化.因此,其他一些实用程序可以使用新值.
当我在 Windows 7平台上编译32位Delphy XE4中的下一个例程时,一切似乎都能正常工作.
当我将Delphy切换到64位平台时,调试器会产生访问冲突.

有什么建议？

procedure BroadcastChange;
    var
        lParam,wParam : Integer;
        Buf : Array[0..10] of Char;
        aResult : PDWORD_PTR;
    begin
        Buf := 'Environment';
        wParam := 0;
        lParam := Integer(@Buf[0]);
        SendMessageTimeout(HWND_BROADCAST,WM_SETTINGCHANGE,wParam,lParam,SMTO_NORMAL,4000,aResult );
    end;

解决方法

您需要null终止字符串.只需切换声明即可使用PChar.

您还必须停止将指针转换为32位整数,这会将64位指针截断为32位指针,这很容易导致痛苦.

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

procedure BroadcastChange;
begin
  SendMessageTimeout(
    HWND_BROADCAST,LPARAM(PChar('Environment')),nil
  );
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!