Delphi XE4 64位中的SendMessageTimeout如何避免产生访问冲突的复杂机制？

本文共计271个文字，预计阅读时间需要2分钟。

我想在我程序中广播一些环境变量的变化。因此，其他一些实用程序可以使用新值。当我在Windows 7平台上用Delphi XE4编写32位程序时，一切似乎都能正常工作。当我将Delphi切换到6时，问题出现了。

我想在我的程序中广播一些环境变量的变化.因此,其他一些实用程序可以使用新值.
当我在 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, WM_SETTINGCHANGE, 0, LPARAM(PChar('Environment')), SMTO_NORMAL, 4000, nil ); end;