SendMessage Not Defined??? [RESOLVED]

[jsun9]

Can someone tell my why it keeps saying SendMessage "Sub or Function not defined"?

Call SetDefaultPrinter(Simplex, DriverName, PortName)

Declare Function WriteProfileString Lib "KERNEL32" _
Alias "WriteProfileStringA" _
(ByVal lpszSection As String, _
ByVal lpszKeyName As String, _
ByVal lpszString As String) As Long
 
Public Const HWND_BROADCAST = &HFFFF
Public Const WM_WININICHANGE = &H1A
 
Public Sub SetDefaultPrinter(ByVal PrinterName As String, _
    ByVal DriverName As String, ByVal PrinterPort As String)
    Dim DeviceLine As String
    Dim r As Long
    Dim l As Long
    DeviceLine = PrinterName & "," & DriverName & "," & PrinterPort
    ' Store the new printer information in the [WINDOWS] section of
    ' the WIN.INI file for the DEVICE= item
    r = WriteProfileString("windows", "Device", DeviceLine)
    ' Cause all applications to reload the INI file:
    l = SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, "windows")
End Sub

[Cander]

because Sendmessage is an api call just like WriteProfileString

[azteched]

Funnily enough, it's because you haven't defined it. Declare it, as you're doing for WritePrivateProfileString.

[jsun9]

ahh.. see, i looked for it in the demo code I got, but it was nowhere to be found.. i got it now!

thanks guys!