Q: SendMessageTimeout

[Kostarsus]

Hi,

Today I'd read an API-Statement in the MSDN, where I have some problems to implement this statement in VB. The statement is like all statements in C++.

Here is the API-Statement:

SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
(LPARAM) "Environment", SMTO_ABORTIFHUNG,
5000, &dwReturnValue);

Well, I've solved the problem of WM_SETTINGCHANGE. It is a problem because this windowmessage isn't in the WinApi32.txt textfile. So I use the message WM_WININICHANGE because it is of the same value. (I'd checked it in the header files of VC++)

Now my problem is the part (LPARAM) "Environment".
VB requires a long-value. You can't cast in VB like in VC++.
Now, any idea which value the 4th parameter should have?
I tried 0 but than the statement throws an error (dwReturnValue was 0)

In reguards and hope for help
Kostarsus

 

[SonOfEmidec1100]

The Micrsoft Knowledge article base Q231844 explains how to use this API, with examples

http://support.microsoft.com/default.aspx?scid=kb;en-us;231844

Maybe this will help you.

 

[Hasnut]

in a module add the following code

Public Const HWND_BROADCAST As Long = &HFFFF&
Public Const WM_SETTINGCHANGE As Long = &H1A
Public Const SPI_SETNONCLIENTMETRICS As Long = &H2A
Public Const SMTO_ABORTIFHUNG As Long = &H2

Public Declare Function SendMessageTimeout Lib "user32" _
Alias "SendMessageTimeoutA" _
(ByVal hwnd As Long, ByVal msg As Long, _
ByVal wParam As Long, ByVal lParam As Long, _
ByVal fuFlags As Long, ByVal uTimeout As Long, _
lpdwResult As Long) As Long



and call the function like below(here module1 is module name
Call module1.SendMessageTimeout(HWND_BROADCAST, _
WM_SETTINGCHANGE, _
SPI_SETNONCLIENTMETRICS, _
0&, SMTO_ABORTIFHUNG,
10000&, success)