Windows API Headers III v.1.04

[James A Gant]

Jose,

Thank you very much for all the work you have put into these.

James A. Gant

[Randall Glass]

I have the Powerbasic 9.05.

Where can I get the old headers?

[José Roca]

There: http://www.jose.it-berater.org/smfforum/index.php?topic=4136.0

[Patrice Terrier]

José

The GetProcessHandleFromHwnd API seems to be missing in the OleAcc.inc

...

[José Roca]

It is not included in OleAcc.h.

[José Roca]

I will add it to OleAcc.inc, but it is not included in any of the versions of OleAcc.h that I have.

Code Select Expand


' // Documented, but not included in OleAcc.h
DECLARE FUNCTION GetProcessHandleFromHwnd IMPORT "OLEACC.DLL" ALIAS "GetProcessHandleFromHwnd" ( _
   BYVAL hwnd AS DWORD _                                ' __in HWND hwnd
) AS DWORD                                             ' HANDLE


[Patrice Terrier]

http://msdn.microsoft.com/en-us/library/windows/desktop/dd318087(v=vs.85).aspx

[José Roca]

Yet, it is documented in MSDN, but not included in the headers.

[Patrice Terrier]

It comes up to be very handy when you need to interact with external process.

Here is an example of use:

Code Select Expand


FUNCTION ExeTerminate(BYVAL hWnd AS DWORD) AS LONG
    IF IsWindow(hWnd) THEN
        LOCAL hProcess AS DWORD
        hProcess = GetProcessHandleFromHwnd(hWnd)
        IF hProcess THEN
           IF TerminateProcess(hProcess, 9) THEN
              WaitForInputIdle(hProcess, %INFINITE)
              FUNCTION = %TRUE
           END IF
        END IF
    END IF
END FUNCTION

[Doug McDonald]

Thank you !!!!

[Theo Gottwald]

548 Downloads this version. I am using these only ...

In SciCtrl.inc looks like there are a few bugs inside.
One is the

SCI_AutocSetSeparator()

It needs an ASC-Value as Parameter, not a STRPTR().

Code Select Expand

FUNCTION SCI_AutocSetSeparator (BYVAL hSci AS DWORD, BYVAL strSeparator AS BYTE) AS LONG
   FUNCTION = SendMessageA(hSci, %SCI_AUTOCSETSEPARATOR, strSeparator, 0)
END FUNCTION
' ========================================================================================
' ========================================================================================
FUNCTION SCIP_AutocSetSeparator (BYVAL pSci AS DWORD, BYVAL strSeparator AS BYTE) AS LONG
   FUNCTION = Scintilla_DirectFunction(pSci, %SCI_AUTOCSETSEPARATOR, strSeparator, 0)
END FUNCTION   

[José Roca]

THis should be easier to use with PB.

Code Select Expand


' ========================================================================================
FUNCTION SCI_AutocSetSeparator (BYVAL hSci AS DWORD, BYVAL strSeparator AS STRING) AS LONG
   FUNCTION = SendMessageA(hSci, %SCI_AUTOCSETSEPARATOR, ASC(strSeparator), 0)
END FUNCTION
' ========================================================================================
' ========================================================================================
FUNCTION SCIP_AutocSetSeparator (BYVAL pSci AS DWORD, BYVAL strSeparator AS STRING) AS LONG
   FUNCTION = Scintilla_DirectFunction(pSci, %SCI_AUTOCSETSEPARATOR, ASC(strSeparator), 0)
END FUNCTION
' ========================================================================================


[Theo Gottwald]

Of course, Jose, because you can just write

SCIP_AutocSetSeparator (pSci," ")
instead of
SCIP_AutocSetSeparator (pSci,32)

I found this some weeks before, there may be few more such cases in the include file.

[Paul Squires]

Edit_GetRightMargin is spelled incorrectly in "EditCtrl.inc". The "h" and the "t" are reversed.

Code Select Expand


' ========================================================================================
' Gets the width of the right margin for an edit control.
' ========================================================================================
FUNCTION Edit_GetRigthMargin (BYVAL hEdit AS DWORD) AS LONG
   FUNCTION = HI(WORD, SendMessage(hEdit, %EM_GETMARGINS, 0, 0))
END FUNCTION
' ========================================================================================


"Rigth" should be "Right"

Not sure if this was already fixed but I just came across it today while working on some code.

[José Roca]

Thanks very much. I will post a new version soon, since I have updated some third party libraries and did some minor corrections to other files.