Announcement

**Peter Lameijn** · 14 Nov 2007, 02:46 PM

Something like this:

Code:

#Include "WIN32API.INC"

Function CheckComm (ByVal LPort As Long) As Long
    Local L As Long
    Select Case LPort
      Case < 1
          L = 0
      Case Else
          Local DHandle As Dword, LStatus As Long, SComm As String, L1 As Long
          SComm = "COM" + Format$(LPort)
          DHandle = CreateFile(ByVal StrPtr(SComm), %GENERIC_READ Or %GENERIC_WRITE, 0, _
          ByVal 0, %OPEN_EXISTING, 0, %NULL)
          If DHandle <> %INVALID_HANDLE_VALUE Then
            L1 = GetCommModemStatus(DHandle, LStatus)
            Sleep 10
            CloseHandle DHandle
            If L1 Then Function = 1 Else Function = 0
          End If
    End Select
End Function

Function PBMain
    Local L1 As Long, S As String
    For L1 = 1 To 10
        S = S & "Com" & Format$(L1) & $Tab & Choose$(CheckComm(L1)+1, "No","Yes") & Chr$(13, 10)
    Next
    #If %Def(%Pb_Win32)
      MsgBox S
    #ElseIf %Def(%Pb_Cc32)
      StdOut S
    WaitKey$
    #EndIf
End Function

**Cliff Nichols** · 14 Nov 2007, 02:49 PM

Sounds a bit up my alley, since I am always working with Serial Ports and my next Major version of my software will have to include USB as well. So I have been doing some researching on and off about showing only what is shown in the control panel (meaning Windows knows its connected and ready for use) vs What may be plugged in, but Windows did not recognize it plugged in and can not use it.

I will poke around my snippets and see what I can glue together for you tonight after work

**Peter Lameijn** · 14 Nov 2007, 03:16 PM

Or through WMI:

Code:

' ========================================================================================
' WMI example - Retrieving Com port information
' ========================================================================================
    
#Compile Exe
#Dim All
#Include "TB_WMILIB.INC"    ' // WMI helper functions
                            ' see [url]http://www.powerbasic.com/support/pbforums/showpost.php?p=171374&postcount=3[/url]
    
' ========================================================================================
' Main
' ========================================================================================
Function PBMain
    
   Local hr As Long                   ' // HRESULT
   Local oServices As Dispatch        ' // Services object
   Local vServices As Variant         ' // Services object reference
   Local oItems As Dispatch           ' // Generic collection object
   Local vItems As Variant            ' // Generic collection object reference
   Local oItem As Dispatch            ' // Generic item object
   Local vItem As Variant             ' // Generic item object reference
   Local penum As Dword               ' // Collection's enumerator reference
   Local vCount As Variant            ' // Number of items in the collection
   Local vVar As Variant              ' // General purpose variant
   Local vRes As Variant              ' // General purpose variant
   Local i As Long                    ' // Loop counter
   Local x As Long                    ' // Loop counter
   Dim vArray(0) As Variant           ' // General purpose array of variants
  
   ' // Connect to WMI using a moniker
   hr = WmiGetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2", vServices)
   If hr <> %S_OK Then GoTo Terminate
   Set oServices = vServices
   vServices = Empty
   If IsFalse IsObject(oServices) Then GoTo Terminate
  
   ' // Execute a query to get a reference to the collection of running processes
   vVar = "SELECT * FROM Win32_SerialPort"
   Object Call oServices.ExecQuery(vVar) To vItems
   If ObjResult Then GoTo Terminate
   Set oItems = vItems
   vItems = Empty
   If IsFalse IsObject(oItems) Then GoTo Terminate
  
   ' // Retrieve the number of items in the collection
   Object Get oItems.Count To vCount
   
   ' // Retrieve a reference to the collection's enumerator
   hr = Wmi_NewEnum(ObjPtr(oItems), penum)
   If hr <> %S_OK Or penum = %NULL Then GoTo Terminate
   
   ' // Iterate throught the collection of objects.
   For i = 1 To Variant#(vCount)
      ' // Retrieve a reference to the next object in the collection
      hr = WmiEnum_NextItem(penum, vItem)
      If hr <> %S_OK Then Exit For
      Set oItem = vItem
      If IsFalse IsObject(oItem) Then Exit For
   
      Object Get oItem.Caption To vRes
      ? "Port name: " & Variant$(vRes)
    
   Next
  
   ' // Release the collection enumerator
   WmiRelease penum
   ' // Release the collection object
   If IsObject(oItems) Then Set oItems = Nothing
  
Terminate:
     
   If IsObject(oServices) Then Set oServices = Nothing
   WaitKey$
     
End Function
' ========================================================================================

**Jeffrey W Smith** · 14 Nov 2007, 05:22 PM

Thanks Peter for the quick response. I looked at both sections of code.

I can't say that the WMI code is easy to understand. I had to find the TB_WMILIB.INC with the WMI helper functions before I could use it. It only returned one of the two available ports (Com1). Com4 is a USB to serial port.

The API code is clear and I think it helps me get on the way. I'm just wondering if there is another API call I can use to get the long description that was returned in the WMI code. I'm still learning the API.

If you come up with anything Cliff, I'd like to see it.

Jeff

**Cliff Nichols** · 14 Nov 2007, 07:13 PM

Jeff I got it...but a LOT larger than I first thought (mostly because I could not strip it all back to the basics as easily as I 1st thought)

The differences in the programs you mentioned "Hyperterminal" vs "Some OTHER program" are a matter of the programmers choice (not like they have one *LOL*)
AKA...Hyperteminal lists what is likely to be used, some others go a lil beyond and list what is existing in the control panel
(COM1 to COM4) does not equal (OH I have 9 COM ports sort of thing)

I do not want to dissuade you from what you are trying to do, but if willing to "Take things 1 step farther" so that you get a "It just works" sort of application then maybe you can bare with me...if not then "Comm.bas" is what you need (to start up to COM9 that is, but USB adapters through a whole new twist into that example)

Your core concept though I will fess up the keywords to look for (in case I can not make a simple example, or can not find time) would be "SetupAPI" but on that concept I do not know what your background for programming is, so it may be a lil overwhelming

"SetupAPI" for the USB to RS232 concepts (where a USB to RS232 adapter is involved and for lack of a better word "Virtual COM")

"Comm.bas" is an EXCELLENT example to start with as far as "It will just work" in most cases though and Peter's 1st "Createfile" concept would be a beginning step

**Gary Peek** · 15 Nov 2007, 12:34 PM

Here is another simple example

Another idea for those of you thinking of adding this feature to programs you already have is to make a subroutine that checks for existing Com Ports and simply pops up and says "Com Ports found: 1,2,5" (or something like that) right before you select the port. Then you don't need to change the selection of the ports in your program.

Code:

#COMPILE EXE
#DIM ALL
#INCLUDE "win32api.inc"

FUNCTION PBMAIN () AS LONG

  LOCAL handlecomm AS LONG
  LOCAL c AS LONG
  DIM commexist(1:10) AS LONG  ' array containing info about the exisance of comm port

  ' fill array with zero or one depending on whether comm port exists
  handlecomm = FREEFILE
  FOR c = 1 TO 10
    COMM OPEN "COM" + FORMAT$(c) AS #handlecomm
    IF ERR <> 0 THEN
      ERRCLEAR
      commexist(c) = 0
    ELSE
      commexist(c) = 1
      COMM CLOSE #handlecomm
    END IF
  NEXT c

  ' this is a quick crude way to display the array
  FOR c = 1 TO 10
    MSGBOX "Com Port " + FORMAT$(c) + "=" + FORMAT$(commexist(c))
  NEXT c

END FUNCTION

**Cliff Nichols** · 15 Nov 2007, 06:09 PM

Gary and Peter have the right concept for "Ports Available", but ports that are exist because some other app or driver or process already has that port open will not show when you run your process in these cases.

So before I post Jeff (since mine turned out really confusing unless you can follow all the files), are you looking for "Just the Fact Maaaam'...Just the facts" like in Control panel, "Just list the ports", forget the properties until asked for them?

**Peter Lameijn** · 16 Nov 2007, 03:16 AM

Small modification to detect in-use ports:

Code:

#Include "WIN32API.INC"
    
Function CheckComm (ByVal LPort As Long) As Long
    Local L As Long, Result As Long
    Select Case LPort
      Case < 1
        L = 0
      Case Else
        Local DHandle As Dword, LStatus As Long, SComm As String, L1 As Long
        SComm = "COM" + Format$(LPort)
        DHandle = CreateFile(ByVal StrPtr(SComm), %GENERIC_READ Or %GENERIC_WRITE, 0, _
        ByVal 0, %OPEN_EXISTING, 0, %NULL)
        Result = GetLastError
        If DHandle <> %INVALID_HANDLE_VALUE Then
          L1 = GetCommModemStatus(DHandle, LStatus)
          Sleep 10
          CloseHandle DHandle
          If L1 Then Function = 1 Else Function = 0
        Else
          If Result = %ERROR_ACCESS_DENIED Then Function = 2 Else Function = 0
        End If
    End Select
End Function
  
Function PBMain
    Local L1 As Long, S As String
    For L1 = 1 To 10
        S = S & "Com" & Format$(L1) & $Tab & Choose$(CheckComm(L1)+1, "No","Yes", "Yes (In use)") & Chr$(13, 10)
    Next
    #If %Def(%Pb_Win32)
      MsgBox S
    #ElseIf %Def(%Pb_Cc32)
      StdOut S
    WaitKey$
    #EndIf
End Function

**Dave Biggs** · 16 Nov 2007, 08:14 AM

Nice Peter

,

Just a small mod:

Code:

SComm = "\\.\COM" + Format$(LPort)  '"\\.\COMxx" form for ports numbered > 9

More info on listing installed ports:

Device Viewer http://www.powerbasic.com/support/fo...ML/010558.html Demonstrates how to use the SETUPAPI.DLL

SetupAPI and WMI may not show virtual ports like those created with GpsGate ( http://franson.com/ ), but enumeration of the Registry will.( HKEY_LOCAL_MACHINE\Hardware\DeviceMap\SerialComm ) See discussion at http://www.powerbasic.com/support/fo...ML/011035.html

**Jeffrey W Smith** · 16 Nov 2007, 01:45 PM

To answer your questions Cliff: I work with all kinds of serial devices to collect temperature, acoustics, and GPS to name a few. Most of these manufactures have software to download the data or record incoming NMEA strings. But, there are a few that have a serious deficiency in features or don't suit my needs. I've been wanting to create serial utilities for a while. A couple of years ago, our company bought a program called Hypack; we only needed it for one feature, and that doesn't work that well. I won't be able to replace that immediately, but I am going to start with this small program.

My immediate needs are to read in the NMEA strings from a couple of devices, parse the data, and record it in a useable format.

I like Peter's CheckComm routine and I think it will get me started. I'm looking into the SetupAPI and I'll take the mod offered by Dave Biggs.

I'm always looking for better ways to do things, including being able to get the description for COM devices out of the registry that are shown in Device Manager. I can see that there are registery entries for the COM devices, but the Key names are rather cryptic. I'll probably have to search through lower level keys to find the ones listed for Com ports.

On Windows XP Pro:

To find the USB Com port and Description:
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Enum\USB\Vid_067b&Pid_2303\5&29c7aec0&0&2

To find the list of available Com Ports:
HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM

Maybe to find the internal Com Ports:
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\Class\{4D36E978-E325-11CE-BFC1-08002BE10318}
There are several keys below this:
0000 - usb to serial
0001 - usb to serial
0002 - Communications port
0003 - printer port

The key 0002 has a binary data value called PortSubClass with a value of 01. My question is, could I assume that means Com port 1?

Either way, I'm going to have to learn more about how different OS save the serial information in the registry.

Thanks everybody.

**Cliff Nichols** · 16 Nov 2007, 05:44 PM

This may help then....Uncomment any information you want to look into that I commented out. (I was busy commenting in case you did not want all this info)

Warning: One bug that is in there (I just have not had time to look to see where it is).....You have to "Cntrl-Alt-Delete" and go to Processes, and kill the Process of the program before you can recompile....(simple fix I know, but just to get the info out there I will look into it later and post now)

My particular style up till late involved GLOBALS...(Hold the "Holy-Wars" debate about global vs local there people), so to allow a compile where one INC may need a variable declared, I put the globals into .h files....but you will see what I mean.

Sorry there are so many of them, but I tried to rip out of a MUCH larger project, and fit your needs....but I think most of it is self explanatory (if it isn't just ask and I will fill you in)

OsInfoSerialPorts.bas......The main EXE

Code:

#COMPILE EXE
#DIM ALL

#INCLUDE "WIN32API.INC"            'Define Windows OS variables and functions
#INCLUDE "SetupApi.INC"            'Windows Setup Api
'********* HEADERS **********
#INCLUDE "Dlls.h"                  'Load and unload any support dll's
#INCLUDE "Register.h"              'Register Class types with Windows
#INCLUDE "RTF.h"                   'RTF Commands
#INCLUDE "DlgFunctions.h"          'Hide/Show Windows, and other functions
#INCLUDE "FileFolderPaths.h"       'File and Folder Paths
#INCLUDE "SetupApiClassInfo.h"     'Wrapper for SetupApi
#INCLUDE "OpSysInfo.h"             'Operating System Information
#INCLUDE "SoftwareInfo.h"          'Software Information
#INCLUDE "ListDevices.h"           'List Devices
#INCLUDE "DlgAbout.h"              'About Window

'********* INCLUDES *********
#INCLUDE "Dlls.INC"                'Load and unload any support dll's
#INCLUDE "Register.INC"            'Register Class types with Windows
#INCLUDE "RichEdit.INC"            'Richedit routines
#INCLUDE "RTF.INC"                 'RTF Commands
#INCLUDE "DlgFunctions.INC"        'Hide/Show Windows, and other functions
#INCLUDE "FileFolderPaths.INC"     'File and Folder Paths
#INCLUDE "SetupApiClassInfo.INC"   'Wrapper for SetupApi
#INCLUDE "OpSysInfo.INC"           'Operating System Information
#INCLUDE "SoftwareInfo.INC"        'Software Information
#INCLUDE "ListDevices.INC"         'List Devices
#INCLUDE "DlgAbout.INC"            'About Window

FUNCTION WINMAIN ( _
                    BYVAL hInstance     AS LONG, _     ' handle of current instance
                    BYVAL hPrevInstance AS LONG, _     ' handle of previous instance(not used in Win32)
                    BYVAL pszCmdLine    AS ASCIIZ PTR, _     ' address of command line
                    BYVAL nCmdShow      AS LONG _      ' show state of window
                 ) AS LONG
     LOCAL tmsg AS TagMsg
     hInst = hInstance        'Global for use when creating Windows
     Load_Dlls                'Load any support dll's
     Register_Dialogs         'Register Window Dialog Classes
     ShowAbout                'Show the About Window
'*** Acquire and dispatch messages until a WM_QUIT message is received.
     WHILE ISTRUE GetMessage(tmsg, BYVAL %NULL, 0, 0)
          TranslateMessage tmsg
          DispatchMessage tmsg
     WEND
END FUNCTION

About.INC..... Also shows all the devices you could look for if you want to develop later

Code:

'The complete list of devices that could be listed
'Device = "1394/1394debug/61883/adapter/apmsupport/avc/battery/biometric/" & _
'         "bluetooth/cdrom/computer/decoder/diskdrive/display/"            & _
'         "dot4print/enum1394/fdc/floppydisk/gps/hdc/hidclass/image/"      & _
'         "infrared/keyboard/legacydriver/media/mediumchanger/mtd/modem/"  & _
'         "monitor/mouse/multifunction/multiportserial/net/netclient/"     & _
'         "netservice/nettrans/nodriver/pcmcia/ports/printer/"             & _
'         "printer upgrade/pnpprinters/processor/sbp2/scsiadapter/"        & _
'         "security accelerator/smartcardreader/sound/system/tapedrive/"   & _
'         "unknown/usb/volume/volumesnapshot/wceusbs"

FUNCTION About_Dialog_Proc( _
    BYVAL hWnd    AS DWORD, _ ' window handle
    BYVAL uMsg    AS DWORD, _ ' type of message
    BYVAL wParam  AS DWORD, _ ' first message parameter
    BYVAL lParam  AS LONG _   ' second message parameter
    ) AS LONG
     DIM HwndRect AS RECT

     SELECT CASE uMsg
          CASE %WM_CTLCOLORSTATIC
               EXIT FUNCTION
          CASE %WM_SIZE
          CASE %WM_COMMAND
               SELECT CASE LO(DWORD,wParam)                      'Get the Control
                    CASE RichEditAbout
                         SELECT CASE HI(DWORD,wParam)            'Get the Message
                              CASE %WM_KEYDOWN
                                   FUNCTION = %True
                                   EXIT FUNCTION
                              CASE ELSE
                         END SELECT
               END SELECT
          CASE %WM_CLOSE
     END SELECT
     FUNCTION = DefWindowProc(hWnd, uMsg, wParam, lParam)        'Need this if Window is to show
END FUNCTION

FUNCTION LoadAbout ALIAS "LoadAbout"(HwndOwner AS LONG) EXPORT AS LONG
'*** Create the Window
     HwndAbout = CreateWindowEx( _
          BYVAL %NULL, _                                         ' Extended Window Style
          "Dialog_About", _                                      ' Window Class Name
          "About", _                                             ' Window Caption
          %WS_SYSMENU OR %WS_CAPTION _
          OR %WS_MINIMIZEBOX OR %WS_MAXIMIZEBOX _
          OR %WS_THICKFRAME OR %WS_DLGFRAME OR %WS_BORDER, _     ' Window Style
          %CW_USEDEFAULT, _                                      ' initial x position
          %CW_USEDEFAULT, _                                      ' initial y position
          685,  _                                                ' initial x size
          300, _                                                 ' initial y size
          HwndOwner, _                                           ' parent window handle
          BYVAL %NULL, _                                         ' menu or child window handle 'HwndAboutMenu
          hInst, _                                               ' program instance handle
          BYVAL %NULL)                                           ' creation parameters
'*** Create the RichEdit Window
     RichEditAbout = CreateWindowEx( _
          %WS_EX_LEFT OR %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR, _          ' Extended Window Style
          $RICHEDIT_CLASS, _                                                    ' Window Class Name
          "", _           ' Window Caption
          %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_VSCROLL _              ' window styles
          OR %WS_HSCROLL OR %WS_EX_MDICHILD  OR %WS_EX_CLIENTEDGE _             ' window styles
          OR %ES_MULTILINE OR %ES_AUTOVSCROLL OR %ES_AUTOHSCROLL _              ' class styles
          OR %ES_WANTRETURN OR %ES_NOHIDESEL  OR %ES_LEFT OR %ES_READONLY, _    ' class styles
          0, _                                                                  ' initial x position
          0, _                                                                  ' initial y position
          675,  _                                                               ' initial x size
          265, _                                                                ' initial y size
          HwndAbout, _                                                          ' parent window handle
          %RichEditAbout, _                                                     ' menu or child window (control) handle
          hInst, _                                                              ' program instance handle
          BYVAL %NULL)                                                          ' creation parameters

'     DIM lResult AS LONG
'     DIM ErrorBuf AS ASCIIZ * %MAX_PATH
'      lResult = GetLastError()
'     FormatMessage %FORMAT_MESSAGE_FROM_SYSTEM, BYVAL %NULL, lResult, %NULL, ErrorBuf, SIZEOF(ErrorBuf), BYVAL %NULL
'MSGBOX ErrorBuf
'MSGBOX FUNCNAME$ + $CR + STR$(HwndAbout) + $CR +STR$(%RichEditAbout) + $CR + STR$(RichEditAbout) + $CR + STR$(Hinst) + $CR + $RICHEDIT_CLASS
     SendMessage RichEditAbout, %EM_SETBKGNDCOLOR, 0, RGB(0,0,0)      'Set the background color to black
     SendMessage RichEditAbout, %EM_EXLIMITTEXT, 0, 0       'Set Limit to the max allowed
     RtfTextAbout = RtfCommandsStart
END FUNCTION

FUNCTION ShowAbout ALIAS "ShowAbout"() EXPORT AS LONG
     SELECT CASE IsWindow(HwndAbout)
          CASE 0         'Does not exist
               LoadAbout %HWND_DESKTOP       'Create the Windows
          CASE ELSE
     END SELECT
     ShowWindowState %HWND_DESKTOP, HwndAbout, %SW_SHOW
'*** Format what is seen on the screen
     RtfTextAbout = RtfCommandsStart
     RtfTextAbout = RtfTextAbout + RtfFontSize(12) + RtfFontBold
     RtfTextAbout = RtfTextAbout + RtfFontRed + STRING$(41, "*") + RtfCommandsEndOfLine
     RtfTextAbout = RtfTextAbout + RtfFontRed + "***** Gathering System Information  *****" + RtfCommandsEndOfLine
     RtfTextAbout = RtfTextAbout + RtfFontRed + "***** " + STRING$(29, $SPC) + " *****" + RtfCommandsEndOfLine
     RtfTextAbout = RtfTextAbout + RtfFontRed + "***** " + STRING$(29, $SPC) + " *****" + RtfCommandsEndOfLine
     RtfTextAbout = RtfTextAbout + RtfFontRed + "***** " + STRING$(9, $SPC) + "Please Wait" + STRING$(9, $SPC) + " *****" + RtfCommandsEndOfLine
     RtfTextAbout = RtfTextAbout + RtfFontRed + STRING$(41, "*") + RtfCommandsEndOfLine
     AddLineRtf RichEditAbout, RtfTextAbout       'Display the formatted text
     SLEEP 1000          'Just to keep the Please Wait screen seen for a moment
     ShowRtfTextAbout    'Start Gathering System Information
END FUNCTION

FUNCTION HideAbout ALIAS "HideAbout"() EXPORT AS LONG
     ShowWindowState %HWND_DESKTOP, HwndAbout, %SW_HIDE
END FUNCTION

FUNCTION ShowRtfTextAbout ALIAS "ShowRtfTextAbout"() EXPORT AS LONG
     DIM i AS LONG
     DIM TempRtf AS STRING
     DIM StartTime AS CURRENCY
'*** Show Computer Info being gathered
     TempRtf = RtfCommandsStart
     TempRtf = TempRtf + RtfFontSize(12) + RtfFontBold + RtfFontRed + "Getting Computer Info..." + RtfCommandsEndOfLine
     AddLineRtf RichEditAbout, TempRtf
'*** Actually get the Computer Info
     RtfTextAbout = RtfCommandsStart
     RtfTextAbout = RtfTextAbout + RtfFontSize(12) + RtfFontBold
     BuildRtfTextAboutComputer
'*** Show Software info being gathered
     REPLACE RtfCommandsStart WITH "" IN TempRtf
     TempRtf = RtfCommandsStart + TempRtf
     TempRtf = TempRtf + RtfFontSize(12) + RtfFontBold + RtfFontRed + "Getting Software Info..." + RtfCommandsEndOfLine
     AddLineRtf RichEditAbout, TempRtf
'*** Actually gather Software info
     RtfTextAbout = RtfTextAbout + RtfFontAqua + RtfCommandsEndOfLine + RtfCommandsEndOfLine
     BuildRtfTextAboutSoftware
'*** Show gathering USB PORT Devices
     REPLACE RtfCommandsStart WITH "" IN TempRtf
     TempRtf = RtfCommandsStart + TempRtf
     TempRtf = TempRtf + RtfFontSize(12) + RtfFontBold + RtfFontRed + "Getting USB Port Devices..." + RtfCommandsEndOfLine
     AddLineRtf RichEditAbout, TempRtf
'*** Show gathering USB PORT Devices
     ListUsbDrivers
     BuildRtfTextAboutUsbDriver
'*** Show gathering Serial Port Devices
     REPLACE RtfCommandsStart WITH "" IN TempRtf
     TempRtf = RtfCommandsStart + TempRtf
     TempRtf = TempRtf + RtfFontSize(12) + RtfFontBold + RtfFontRed + "Getting Serial Port Devices..." + RtfCommandsEndOfLine
     AddLineRtf RichEditAbout, TempRtf
'*** Actually gather Serial Port Info
     RtfTextAbout = RtfTextAbout + RtfFontAqua + RtfCommandsEndOfLine + RtfCommandsEndOfLine
     ListSerialDrivers
     BuildRtfTextAboutSerialDriver
'*** Show the results
     AddLineRtf RichEditAbout, RtfTextAbout
     SendMessage RichEditAbout, %WM_SETTEXT, 0, STRPTR(RtfTextAbout)       'Set position back to top of RTF window
END FUNCTION

FUNCTION BuildRtfTextAboutComputer ALIAS "BuildRtfTextAboutComputer"() EXPORT AS LONG
     RtfTextAbout = RtfTextAbout + RtfFontRed + "***** Computer *****"+ RtfCommandsEndOfLine
     IF GetWindowsOs <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Operating System: " + RtfFontWhite + GetWindowsOs + RtfCommandsEndOfLine
     IF GetWindowsBuildNumber <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Build: " + RtfFontWhite + GetWindowsBuildNumber + GetWindowsBuildName + RtfCommandsEndOfLine
     IF GetWindowsServicePack <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Service Pack: " + RtfFontWhite + GetWindowsServicePack + RtfCommandsEndOfLine
     RtfTextAbout = RtfTextAbout + RtfFontAqua + RtfCommandsEndOfLine
END FUNCTION

FUNCTION BuildRtfTextAboutSoftware ALIAS "BuildRtfTextAboutSoftware"() EXPORT AS LONG
     RtfTextAbout = RtfTextAbout + RtfFontRed + "***** Software *****" + RtfCommandsEndOfLine
     IF GetSoftwareParentPath <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Parent Path: " + RtfFontWhite + GetSoftwareParentPath + RtfCommandsEndOfLine
     IF GetSoftwareParentPathName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Parent Name: " + RtfFontWhite + GetSoftwareParentPathName + RtfCommandsEndOfLine
     IF GetSoftwarePath <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Running As Path: " + RtfFontWhite + GetSoftwarePath + RtfCommandsEndOfLine
     IF GetSoftwarePathName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Running As Name: " + RtfFontWhite + GetSoftwarePathName + RtfCommandsEndOfLine
'     IF GetSoftwareCompanyName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Company Name: " + RtfFontWhite + GetSoftwareCompanyName + RtfCommandsEndOfLine
'     IF GetSoftwareFileDescription <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Description: " + RtfFontWhite + GetSoftwareFileDescription + RtfCommandsEndOfLine
'     IF GetSoftwareFileVersion <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "File Version: " + RtfFontWhite + GetSoftwareFileVersion + RtfCommandsEndOfLine
'     IF GetSoftwareInternalName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Internal Name: " + RtfFontWhite + GetSoftwareInternalName + RtfCommandsEndOfLine
'     IF GetSoftwareOriginalFilename <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Original Name: " + RtfFontWhite + GetSoftwareOriginalFilename + RtfCommandsEndOfLine
'     IF GetSoftwareLegalCopyright <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Copyright: " + RtfFontWhite + GetSoftwareLegalCopyright + RtfCommandsEndOfLine
'     IF GetSoftwareProductVersion <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Product Name: " + RtfFontWhite + GetSoftwareProductVersion + RtfCommandsEndOfLine
'     IF GetSoftwareComments <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Comments: " + RtfFontWhite + GetSoftwareComments + RtfCommandsEndOfLine
     RtfTextAbout = RtfTextAbout + RtfFontAqua + RtfCommandsEndOfLine
END FUNCTION

FUNCTION BuildRtfTextAboutUsbDriver ALIAS "BuildRtfTextAboutUsbDriver"() EXPORT AS LONG
     DIM i AS LONG
     DIM j AS LONG
     RtfTextAbout = RtfTextAbout + RtfFontRed + "***** Usb Port Devices *****" + RtfCommandsEndOfLine
     FOR i = LBOUND(InfoUsbDriver) TO UBOUND(InfoUsbDriver)
          FOR j = 0 TO 3
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).ClassName
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).FriendlyName
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).DeviceDesc
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).HardwareId
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).CompatibleId
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).Unused0
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).Service
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).Unused1
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).Unused2
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).ClassGuid
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).Driver
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).ConfigFlags
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).Mfg
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).Location
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).ObjectName
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).Capabilities
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).UiNumber
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).UpperFilters
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).LowerFilters
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).BusTypeGuid
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).LegacyBusType
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).BusNumber
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).EnumeratorName
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).SecurityBinary
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).SecuritySelfDirectedSearch
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).DeviceType
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).Exclusive
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).Characteristics
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).Address
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).UiNumberDescFormat
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).MaximumProperty
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).RemovalPolicy
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).RemovalPolicyDefault
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).RemovalPolicyOverride
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).InstallState
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).LocationPaths
               REPLACE CHR$(j) WITH "" IN InfoUsbDriver(i).PowerData
          NEXT j
          IF InfoUsbDriver(i).ClassName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Class Name: " + RtfFontWhite + InfoUsbDriver(i).ClassName + RtfCommandsEndOfLine
          IF InfoUsbDriver(i).FriendlyName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Friendly Name: " + RtfFontWhite + InfoUsbDriver(i).FriendlyName + RtfCommandsEndOfLine
          IF InfoUsbDriver(i).DeviceDesc <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Device Description: " + RtfFontWhite + InfoUsbDriver(i).DeviceDesc + RtfCommandsEndOfLine
          IF InfoUsbDriver(i).HardwareId <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Hardware ID: " + RtfFontWhite + InfoUsbDriver(i).HardwareId + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).CompatibleId <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Compatible ID: " + RtfFontWhite + InfoUsbDriver(i).CompatibleId + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).Unused0 <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Unused 0: " + RtfFontWhite + InfoUsbDriver(i).Unused0 + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).Service <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Service: " + RtfFontWhite + InfoUsbDriver(i).Service + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).Unused1 <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Unused 1: " + RtfFontWhite + InfoUsbDriver(i).Unused1 + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).Unused2 <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Unused 2: " + RtfFontWhite + InfoUsbDriver(i).Unused2 + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).ClassGuid <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Guid: " + RtfFontWhite + InfoUsbDriver(i).ClassGuid + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).Driver <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Driver: " + RtfFontWhite + InfoUsbDriver(i).Driver + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).ConfigFlags <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Config Flags: " + RtfFontWhite + InfoUsbDriver(i).ConfigFlags + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).Mfg <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Mfg: " + RtfFontWhite + InfoUsbDriver(i).Mfg + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).Location <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Location: " + RtfFontWhite + InfoUsbDriver(i).Location + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).ObjectName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "ObjectName: " + RtfFontWhite + InfoUsbDriver(i).ObjectName + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).Capabilities <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Capabilities: " + RtfFontWhite + InfoUsbDriver(i).Capabilities + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).UiNumber <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "UI Number: " + RtfFontWhite + InfoUsbDriver(i).UiNumber + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).UpperFilters <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Upper Filters: " + RtfFontWhite + InfoUsbDriver(i).UpperFilters + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).LowerFilters <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Lower Filters: " + RtfFontWhite + InfoUsbDriver(i).LowerFilters + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).BusTypeGuid <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Bus Type GUID: " + RtfFontWhite + InfoUsbDriver(i).BusTypeGuid + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).LegacyBusType <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Legacy Bus Type: " + RtfFontWhite + InfoUsbDriver(i).LegacyBusType + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).BusNumber <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Bus Number: " + RtfFontWhite + InfoUsbDriver(i).BusNumber + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).EnumeratorName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Enumerator Name: " + RtfFontWhite + InfoUsbDriver(i).EnumeratorName + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).SecurityBinary <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Security Binary: " + RtfFontWhite + InfoUsbDriver(i).SecurityBinary + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).SecuritySelfDirectedSearch <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Security SDS: " + RtfFontWhite + InfoUsbDriver(i).SecuritySelfDirectedSearch + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).DeviceType <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Device Type: " + RtfFontWhite + InfoUsbDriver(i).DeviceType + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).Exclusive <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Exclusive: " + RtfFontWhite + InfoUsbDriver(i).Exclusive + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).Characteristics <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Characteristics: " + RtfFontWhite + InfoUsbDriver(i).Characteristics + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).Address <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Address: " + RtfFontWhite + InfoUsbDriver(i).Address + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).UiNumberDescFormat <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "UI Number Description Format: " + RtfFontWhite + InfoUsbDriver(i).UiNumberDescFormat + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).MaximumProperty <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Maximum Property: " + RtfFontWhite + InfoUsbDriver(i).MaximumProperty + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).RemovalPolicy <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Removal Policy: " + RtfFontWhite + InfoUsbDriver(i).RemovalPolicy + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).RemovalPolicyDefault <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Removal Policy Default: " + RtfFontWhite + InfoUsbDriver(i).RemovalPolicyDefault + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).RemovalPolicyOverride <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Removal Policy Override: " + RtfFontWhite + InfoUsbDriver(i).RemovalPolicyOverride + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).InstallState <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Install State: " + RtfFontWhite + InfoUsbDriver(i).InstallState + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).LocationPaths <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Location Paths: " + RtfFontWhite + InfoUsbDriver(i).LocationPaths + RtfCommandsEndOfLine
'          IF InfoUsbDriver(i).PowerData <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Power Data: " + RtfFontWhite + InfoUsbDriver(i).PowerData + RtfCommandsEndOfLine
          RtfTextAbout = RtfTextAbout + RtfFontAqua + RtfCommandsEndOfLine + RtfCommandsEndOfLine
     NEXT i
END FUNCTION

FUNCTION BuildRtfTextAboutSerialDriver ALIAS "BuildRtfTextAboutSerialDriver"() EXPORT AS LONG
     DIM i AS LONG
     DIM j AS LONG
     RtfTextAbout = RtfTextAbout + RtfFontRed + "***** Serial Port Devices *****" + RtfCommandsEndOfLine
     FOR i = LBOUND(InfoSerialDriver) TO UBOUND(InfoSerialDriver)
          FOR j = 0 TO 3
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).ClassName
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).FriendlyName
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).DeviceDesc
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).HardwareId
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).CompatibleId
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).Unused0
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).Service
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).Unused1
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).Unused2
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).ClassGuid
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).Driver
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).ConfigFlags
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).Mfg
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).Location
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).ObjectName
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).Capabilities
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).UiNumber
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).UpperFilters
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).LowerFilters
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).BusTypeGuid
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).LegacyBusType
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).BusNumber
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).EnumeratorName
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).SecurityBinary
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).SecuritySelfDirectedSearch
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).DeviceType
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).Exclusive
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).Characteristics
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).Address
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).UiNumberDescFormat
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).MaximumProperty
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).RemovalPolicy
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).RemovalPolicyDefault
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).RemovalPolicyOverride
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).InstallState
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).LocationPaths
               REPLACE CHR$(j) WITH "" IN InfoSerialDriver(i).PowerData
          NEXT j
          IF InfoSerialDriver(i).ClassName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Class Name: " + RtfFontWhite + InfoSerialDriver(i).ClassName + RtfCommandsEndOfLine
          IF InfoSerialDriver(i).FriendlyName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Friendly Name: " + RtfFontWhite + InfoSerialDriver(i).FriendlyName + RtfCommandsEndOfLine
          IF InfoSerialDriver(i).DeviceDesc <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Device Description: " + RtfFontWhite + InfoSerialDriver(i).DeviceDesc + RtfCommandsEndOfLine
          IF InfoSerialDriver(i).HardwareId <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Hardware ID: " + RtfFontWhite + InfoSerialDriver(i).HardwareId + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).CompatibleId <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Compatible ID: " + RtfFontWhite + InfoSerialDriver(i).CompatibleId + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).Unused0 <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Unused 0: " + RtfFontWhite + InfoSerialDriver(i).Unused0 + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).Service <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Service: " + RtfFontWhite + InfoSerialDriver(i).Service + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).Unused1 <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Unused 1: " + RtfFontWhite + InfoSerialDriver(i).Unused1 + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).Unused2 <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Unused 2: " + RtfFontWhite + InfoSerialDriver(i).Unused2 + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).ClassGuid <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Guid: " + RtfFontWhite + InfoSerialDriver(i).ClassGuid + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).Driver <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Driver: " + RtfFontWhite + InfoSerialDriver(i).Driver + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).ConfigFlags <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Config Flags: " + RtfFontWhite + InfoSerialDriver(i).ConfigFlags + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).Mfg <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Mfg: " + RtfFontWhite + InfoSerialDriver(i).Mfg + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).Location <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Location: " + RtfFontWhite + InfoSerialDriver(i).Location + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).ObjectName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "ObjectName: " + RtfFontWhite + InfoSerialDriver(i).ObjectName + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).Capabilities <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Capabilities: " + RtfFontWhite + InfoSerialDriver(i).Capabilities + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).UiNumber <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "UI Number: " + RtfFontWhite + InfoSerialDriver(i).UiNumber + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).UpperFilters <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Upper Filters: " + RtfFontWhite + InfoSerialDriver(i).UpperFilters + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).LowerFilters <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Lower Filters: " + RtfFontWhite + InfoSerialDriver(i).LowerFilters + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).BusTypeGuid <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Bus Type GUID: " + RtfFontWhite + InfoSerialDriver(i).BusTypeGuid + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).LegacyBusType <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Legacy Bus Type: " + RtfFontWhite + InfoSerialDriver(i).LegacyBusType + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).BusNumber <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Bus Number: " + RtfFontWhite + InfoSerialDriver(i).BusNumber + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).EnumeratorName <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Enumerator Name: " + RtfFontWhite + InfoSerialDriver(i).EnumeratorName + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).SecurityBinary <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Security Binary: " + RtfFontWhite + InfoSerialDriver(i).SecurityBinary + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).SecuritySelfDirectedSearch <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Security SDS: " + RtfFontWhite + InfoSerialDriver(i).SecuritySelfDirectedSearch + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).DeviceType <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Device Type: " + RtfFontWhite + InfoSerialDriver(i).DeviceType + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).Exclusive <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Exclusive: " + RtfFontWhite + InfoSerialDriver(i).Exclusive + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).Characteristics <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Characteristics: " + RtfFontWhite + InfoSerialDriver(i).Characteristics + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).Address <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Address: " + RtfFontWhite + InfoSerialDriver(i).Address + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).UiNumberDescFormat <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "UI Number Description Format: " + RtfFontWhite + InfoSerialDriver(i).UiNumberDescFormat + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).MaximumProperty <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Maximum Property: " + RtfFontWhite + InfoSerialDriver(i).MaximumProperty + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).RemovalPolicy <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Removal Policy: " + RtfFontWhite + InfoSerialDriver(i).RemovalPolicy + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).RemovalPolicyDefault <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Removal Policy Default: " + RtfFontWhite + InfoSerialDriver(i).RemovalPolicyDefault + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).RemovalPolicyOverride <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Removal Policy Override: " + RtfFontWhite + InfoSerialDriver(i).RemovalPolicyOverride + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).InstallState <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Install State: " + RtfFontWhite + InfoSerialDriver(i).InstallState + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).LocationPaths <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Location Paths: " + RtfFontWhite + InfoSerialDriver(i).LocationPaths + RtfCommandsEndOfLine
'          IF InfoSerialDriver(i).PowerData <> "" THEN RtfTextAbout = RtfTextAbout + RtfFontAqua + "Power Data: " + RtfFontWhite + InfoSerialDriver(i).PowerData + RtfCommandsEndOfLine
          RtfTextAbout = RtfTextAbout + RtfFontAqua + RtfCommandsEndOfLine + RtfCommandsEndOfLine
     NEXT i
END FUNCTION

DlgFunctions.INC....Functions to affect Window Display

Code:

FUNCTION GetDeskTopX ALIAS "GetDeskTopX"() EXPORT AS LONG
     FUNCTION = GetSystemMetrics(%SM_CXSCREEN)
END FUNCTION

FUNCTION GetDeskTopY ALIAS "GetDeskTopY"() EXPORT AS LONG
     FUNCTION = GetSystemMetrics(%SM_CYSCREEN)
END FUNCTION

FUNCTION ShowWindowState ALIAS "ShowWindowState"(HwndParent AS LONG, HwndWindow AS LONG, ShowState AS LONG)EXPORT AS LONG
     SELECT CASE GetWindowState(HwndWindow)
          CASE ShowState      'Already in the right state
          CASE ELSE
               SetParent HwndWindow, HwndParent   'Added to allow window parent to change
               ShowWindow HwndWindow, ShowState
               SetFocus HwndWindow
     END SELECT
END FUNCTION

FUNCTION GetWindowState ALIAS "GetWindowState"(WindowToCheck AS LONG) EXPORT AS LONG
     SELECT CASE IsWindow(WindowToCheck)     'Does the window exist?
          CASE 0                             'No then exit
               FUNCTION = %False
               EXIT FUNCTION
          CASE ELSE                          'Yes so check state and adjust to new state if not the same
               SELECT CASE IsWindowVisible(WindowToCheck)
                    CASE 0         'Not Visible = 0
                         FUNCTION = %SW_HIDE
                    CASE ELSE      'Visible
                         SELECT CASE IsZoomed(WindowToCheck)
                              CASE 0         'Not Maximized
                                   SELECT CASE IsIconic(WindowToCheck)
                                        CASE 0    'Not Minimized (Normal) = 1
                                             FUNCTION = %SW_SHOWNORMAL
                                        CASE ELSE      'Minimized = 6
                                             FUNCTION = %SW_MINIMIZE
                                   END SELECT
                              CASE ELSE      'Maximized = 3
                                   FUNCTION = %SW_MAXIMIZE
                         END SELECT
               END SELECT
     END SELECT
END FUNCTION

FUNCTION AddLineRtf ALIAS "AddLineRtf"(HwndRtf AS LONG, StringToAdd AS STRING)EXPORT AS LONG
     DIM eStream AS EDITSTREAM
     eStream.pfnCallback = CODEPTR(RichEditStreamInString) 'pointer to RichEdit callback procedure
     gTxt = StringToAdd
     gPos = 1
     gPtr = STRPTR(gTxt)

     SendMessage HwndRtf, %EM_STREAMIN, %SF_RTF, VARPTR(eStream) 'stream in text
     InvalidateRect HwndRtf, BYVAL %NULL, 0
     UpdateWindow HwndRtf
     FUNCTION = %True
END FUNCTION

Dlls.INC......Support DLL's....In this case just Richedit used for display purposes

Code:

FUNCTION Load_Dlls() AS LONG
     RichEditLib = LoadLibrary("RICHED32.DLL")      'Load the Richedit Dll
     SELECT CASE RichEditLib
          CASE 0
               FUNCTION = %False
          CASE ELSE
               FUNCTION = %True
     END SELECT
END FUNCTION

FileFolderPaths.INC...File and Folder Paths

Code:

'------------------------------------------------------------------------------
' FileExist - make sure a file or folder exists
'------------------------------------------------------------------------------
FUNCTION FileExist ALIAS "FileExist"(BYVAL sfName AS STRING) EXPORT AS LONG
  LOCAL hRes AS DWORD, tWFD AS WIN32_FIND_DATA

  IF LEN(sfName) = 0 THEN EXIT FUNCTION       'no need to continue then..
  IF ASC(sfName, -1) = 92 THEN                'if a path with trailing backslash
     sfName = LEFT$(sfName, LEN(sfName) - 1)  'remove trailing backslash
  END IF

  hRes = FindFirstFile(BYVAL STRPTR(sfName), tWFD)
  IF hRes <> %INVALID_HANDLE_VALUE THEN
     FUNCTION = %TRUE
     FindClose hRes
  END IF
END FUNCTION

'------------------------------------------------------------------------------
' Get path -part of given path & name
'------------------------------------------------------------------------------
FUNCTION FilePath ALIAS "FilePath"(BYVAL Src AS STRING) EXPORT AS STRING
     LOCAL x AS LONG
     x = INSTR(-1, Src, ANY ":\/")
     IF x THEN FUNCTION = LEFT$(Src, x)
END FUNCTION

'------------------------------------------------------------------------------
' Get file name part of given path & name
'------------------------------------------------------------------------------
FUNCTION FilePathName ALIAS "FilePathName"(BYVAL Src AS STRING) EXPORT AS STRING
     LOCAL x AS LONG
     x = INSTR(-1, Src, ANY ":/\")
     IF x THEN
          FUNCTION = MID$(Src, x + 1)
     ELSE
          FUNCTION = Src
     END IF
END FUNCTION

List Devices.INC.....I can not remember why I made this one separate, but oh well

Code:

FUNCTION ListDevicesSerial ALIAS "ListDevicesSerial"() EXPORT AS LONG
     REDIM DeviceSerial(LBOUND(DeviceSerial))                         'Clear the array
     DIM i AS LONG
     DIM j AS LONG
     DIM zText AS ASCIIZ * %MAX_PATH
     DIM StartParse AS LONG
     DIM LenParse AS LONG
     hDeviceInfo = GetDeviceList                                      'Get the list of serial devices
     spdi.cbSize = GetDeviceListSize                                  'Get the size of the list
     DO UNTIL SetupDiEnumDeviceInfo(hDeviceInfo, i, spdi) = 0
          SELECT CASE UCASE$(GetDeviceClass)
               CASE "PORTS"                                           'If class is not a port, then skip it for this example
                    zText = GetDeviceFriendlyName
                    SELECT CASE INSTR(UCASE$(zText), "LPT")           'If a port, but not a serial port, skip it for this example
                         CASE 0    'Not a parallel port
                              StartParse = INSTR(zText, "(") + 1      'It is a serial port so start parsing data
                              LenParse = INSTR(zText, ")") - StartParse
                              DeviceSerial(UBOUND(DeviceSerial)).NAME = MID$(zText, StartParse, LenParse)
                              FOR j = 1 TO LEN(DeviceSerial(UBOUND(DeviceSerial)).NAME)
                                   SELECT CASE ASC(MID$(DeviceSerial(UBOUND(DeviceSerial)).NAME, j, 1))
                                        CASE 48 TO 57       'Acii 0 to 9
                                             DeviceSerial(UBOUND(DeviceSerial)).PORT = VAL(MID$(DeviceSerial(UBOUND(DeviceSerial)).NAME, j, LEN(DeviceSerial(UBOUND(DeviceSerial)).NAME)))
                                             EXIT FOR
                                   END SELECT
                              NEXT j
                              REDIM PRESERVE DeviceSerial(UBOUND(DeviceSerial) + 1)
                    END SELECT
          END SELECT
          INCR i
     LOOP
     REDIM PRESERVE DeviceSerial(UBOUND(DeviceSerial) - 1)       'Remove empty array element
     FUNCTION = %True
END FUNCTION

OpSysInfo.inc...Use for Operating System Info (probably not needed for this example, but could be useful in determining what RichEdit version to use)

Code:

SUB GetOsInfo()
    OsInfo.dwOSVersionInfoSize = 148    'Unsure why 148 works but %MAX_PATH comes back as 0
    OsInfo.szCsdVersion = SPACE$(128)
    GetVersionEx(OsInfo)       'Get the information
END SUB

FUNCTION GetWindowsOs() AS STRING
    SELECT CASE OsInfo.dwPlatformId
        CASE 0
            GetOsInfo
    END SELECT
    SELECT CASE OsInfo.dwPlatformId
        CASE 0      'Platform is < Win95
            FUNCTION = "Windows 3.1"
        CASE 1      'Platform is Win 95/98/ME
            SELECT CASE OsInfo.dwMajorVersion
                CASE 4  'Win 95/98/ME
                    SELECT CASE OsInfo.dwMinorVersion
                        CASE 0  'Win 95
                            FUNCTION = "Windows 95"
                        CASE 10  'Win 98
                            FUNCTION = "Windows 98"
                        CASE 90  'Win ME
                            FUNCTION = "Windows ME"
                    END SELECT
            END SELECT
        CASE 2      'Platform is Win NT 3/4/5/6
            SELECT CASE OsInfo.dwMajorVersion
                CASE 3  'Win NT 3
                    SELECT CASE OsInfo.dwMinorVersion
                        CASE 0  'Win NT 3
                            FUNCTION = "Windows NT 3.0"
                        CASE 1  'Win NT 3.1
                            FUNCTION = "Windows NT 3.1"
                    END SELECT
                CASE 4  'Win NT 4
                    SELECT CASE OsInfo.dwMinorVersion
                        CASE 0  'Win NT 4
                            FUNCTION = "Windows NT 4.0"
                    END SELECT
                CASE 5  'Win NT 5
                    SELECT CASE OsInfo.dwMinorVersion
                        CASE 0  'Win 2000
                            FUNCTION = "Windows 2000"
                        CASE 1  'Win XP
                            FUNCTION = "Windows XP"
                        CASE 2  'Windows 2003 Server"
                            FUNCTION = "Windows 2003 Server"
                    END SELECT
                CASE 6  'Win NT 6
                    SELECT CASE OsInfo.dwMinorVersion
                        CASE 0  'Win Vista
                            FUNCTION = "Windows Vista"
                    END SELECT
            END SELECT
    END SELECT
END FUNCTION

FUNCTION GetWindowsBuildNumber() AS STRING
    SELECT CASE OsInfo.dwBuildNumber
        CASE 0
            GetOsInfo
    END SELECT
    FUNCTION = STR$(OsInfo.dwBuildNumber)
END FUNCTION

FUNCTION GetWindowsBuildName() AS STRING
    SELECT CASE OsInfo.dwBuildNumber
        CASE 0
            GetOsInfo
    END SELECT
    SELECT CASE OsInfo.dwBuildNumber
        CASE 950    'Win 95
            FUNCTION = " "
        CASE 1111   'Win 98 OSR2
            FUNCTION = STR$(OsInfo.dwBuildNumber) + " OSR2"
        CASE 1998   'Win ME
            FUNCTION = " "
        CASE 1381   'Win NT 4
            FUNCTION = " "
        CASE 2195   'Win 2000
            FUNCTION = " "
        CASE 3790   'Win 2003 Server
            FUNCTION = " "
        CASE 2600   'Win XP
            FUNCTION = " "
    END SELECT
END FUNCTION

FUNCTION GetWindowsServicePack() AS STRING
    SELECT CASE OsInfo.szCSDVersion
        CASE ""
            GetOsInfo
    END SELECT
    FUNCTION = OsInfo.szCSDVersion
END FUNCTION

Register.INC....Used for registering Window Classes (I still have no clue why a modeless window is registered as "#32770")

Code:

DECLARE FUNCTION CreateMenuClass(BYVAL hParent AS LONG) AS LONG
DECLARE FUNCTION CreateMenuBar(BYVAL hWndParent AS LONG) AS LONG
DECLARE SUB CreateMyMenu()

FUNCTION Register_Dialogs() AS LONG
     LOCAL tccs AS CLIENTCREATESTRUCT   ' window menu and first child info
     SELECT CASE Register_Modal("Dialog_About", BYVAL CODEPTR(About_Dialog_Proc), hInst, "ABOUTICON", GetSysColorBrush(%COLOR_3DFACE))
          CASE %True
          CASE %False
               FUNCTION = %False
     END SELECT
END FUNCTION

FUNCTION Register_Mdi_Dialog( _
          ClassName AS STRING, _        'Class Name
          BYVAL ClassCallBack AS DWORD, _     'Callback Function
          ClassInstance AS LONG, _      'Instance
          ClassIcon AS ASCIIZ, _        'Icon
          ClassBackGround AS LONG _    'Background
          ) AS LONG
     DIM lResult AS LONG
     DIM ErrorBuf AS ASCIIZ * %MAX_PATH
     szClassName        = ClassName
     twcx.cbSize        = SIZEOF(twcx)                               ' size of WNDCLASSEX structure
     twcx.style         = %CS_DBLCLKS                                ' class styles
     twcx.lpfnWndProc   = ClassCallBack                  ' address of window procedure used by class
     twcx.cbClsExtra    = 0                                          ' extra class bytes
'     twcx.cbWndExtra    = %DLGWINDOWEXTRA                                          ' extra window bytes
     twcx.hInstance     = ClassInstance                                  ' instance of the EXE/DLL that is registering the window
     twcx.hIcon         = LoadIcon(ClassInstance, ClassIcon)    ' handle of class icon
     twcx.hCursor       = LoadCursor(%NULL, BYVAL %IDC_ARROW)        ' handle of class cursor
     twcx.hbrBackground = ClassBackGround                    ' brush used to fill background of window's client area
     twcx.lpszMenuName  = %NULL                                      ' resource identifier of the class menu
     twcx.lpszClassName = VARPTR(szClassName)                        ' class name
     twcx.hIconSm       = LoadIcon(%NULL, ClassIcon)    ' handle of small icon shown in caption/system Taskbar
     SELECT CASE RegisterClassEx(twcx)
          CASE 0
               FUNCTION = %FALSE
          CASE ELSE
               FUNCTION = %TRUE
     END SELECT
END FUNCTION

FUNCTION Register_Modal( _
          ClassName AS STRING, _        'Class Name
          BYVAL ClassCallBack AS DWORD, _     'Callback Function
          ClassInstance AS LONG, _      'Instance
          ClassIcon AS ASCIIZ, _        'Icon
          ClassBackGround AS LONG _    'Background
          ) AS LONG
     szClassName        = ClassName
     twcx.cbSize        = SIZEOF(twcx)                               ' size of WNDCLASSEX structure
     twcx.style         = %CS_DBLCLKS                                ' class styles
     twcx.lpfnWndProc   = ClassCallBack                  ' address of window procedure used by class
     twcx.cbClsExtra    = 0                                          ' extra class bytes
     twcx.cbWndExtra    = %DLGWINDOWEXTRA                                          ' extra window bytes
     twcx.hInstance     = ClassInstance                                  ' instance of the EXE/DLL that is registering the window
     twcx.hIcon         = LoadIcon(ClassInstance, ClassIcon)    ' handle of class icon
     twcx.hCursor       = LoadCursor(%NULL, BYVAL %IDC_ARROW)        ' handle of class cursor
     twcx.hbrBackground = ClassBackGround                    ' brush used to fill background of window's client area
     twcx.lpszMenuName  = %NULL                                      ' resource identifier of the class menu
     twcx.lpszClassName = VARPTR(szClassName)                        ' class name
     twcx.hIconSm       = LoadIcon(%NULL, ClassIcon)    ' handle of small icon shown in caption/system Taskbar
     SELECT CASE RegisterClassEx(twcx)
          CASE 0
               FUNCTION = %FALSE
          CASE ELSE
               FUNCTION = %TRUE
     END SELECT
END FUNCTION

FUNCTION Register_Modeless( _
          ClassName AS STRING, _        'Class Name
          BYVAL ClassCallBack AS DWORD, _     'Callback Function
          ClassInstance AS LONG, _      'Instance
          ClassIcon AS ASCIIZ, _        'Icon
          ClassBackGround AS LONG _    'Background
          ) AS LONG
    GetClassInfoEx(GetModuleHandle(BYVAL %NULL), "#32770", twcx)      'copy dialog class (modeless) into ports class
     szClassName        = ClassName
     twcx.cbSize        = SIZEOF(twcx)                               ' size of WNDCLASSEX structure
     twcx.style         = %CS_DBLCLKS                                ' class styles
     twcx.lpfnWndProc   = ClassCallBack                  ' address of window procedure used by class
     twcx.cbClsExtra    = 0                                          ' extra class bytes
     twcx.cbWndExtra    = %DLGWINDOWEXTRA                                          ' extra window bytes
     twcx.hInstance     = ClassInstance                                  ' instance of the EXE/DLL that is registering the window
     twcx.hIcon         = LoadIcon(ClassInstance, ClassIcon)    ' handle of class icon
     twcx.hCursor       = LoadCursor(%NULL, BYVAL %IDC_ARROW)        ' handle of class cursor
     twcx.hbrBackground = ClassBackGround                    ' brush used to fill background of window's client area
     twcx.lpszMenuName  = %NULL                                      ' resource identifier of the class menu
     twcx.lpszClassName = VARPTR(szClassName)                        ' class name
     twcx.hIconSm       = LoadIcon(%NULL, ClassIcon)    ' handle of small icon shown in caption/system Taskbar
     SELECT CASE RegisterClassEx(twcx)
          CASE 0
               FUNCTION = %FALSE
          CASE ELSE
               FUNCTION = %TRUE
     END SELECT
END FUNCTION

RichEdit.INC....(I believe came directly from PB, but would have to look, so you may not need this one)

Code:

'------------------------------------------------------------------------------
'
'  32-bit RICHEDIT declarations for PowerBASIC for Windows
'
'  Copyright (c) 1997-2002 PowerBASIC, Inc.
'  Portions copyright (c) 1993-1999 Microsoft Corporation
'  All Rights Reserved.
'
'  This file contains only the Equate, Type, and Declare statements for
'  RichEdit APIs, based on the richedit.h include file from the Windows SDK.
'
'  You have a royalty-free right to use, modify, reproduce and distribute
'  this file (and/or any modified version) in any way you find useful,
'  provided that you agree that both PowerBASIC and Microsoft have no
'  warranty, obligation or liability for its contents.
'
'  Based on richedit.h of 11 April 2001
'
'  Last Update: 07 November 2002
'
'------------------------------------------------------------------------------



#IF NOT %DEF(%RICHEDIT_INC) '==================================================

%RICHEDIT_INC = 1

'
' Pull in Windows includes if necessary
'
#IF NOT %DEF(%WINAPI)
  #INCLUDE "Win32API.inc"
#ENDIF


' To mimic older RichEdit behavior, set %RICHEDIT_VER to appropriate value
'    Version 1.0   &H0100
'    Version 2.0   &H0200
'    Version 2.1   &H0210
#IF NOT %DEF(%RICHEDIT_VER)
  %RICHEDIT_VER = &H0300
#ENDIF

#IF (%RICHEDIT_VER - &H0100)
  ' %RICHEDIT_VER presumed > &H0100
  $RICHEDIT_CLASS = "RichEdit20A"
#ELSE
  $RICHEDIT_CLASS = "RICHEDIT"
#ENDIF

%cchTextLimitDefault = 32767

' RichEdit messages

#IF NOT %DEF(%WM_CONTEXTMENU)
  %WM_CONTEXTMENU = &H007B
#ENDIF

#IF NOT %DEF(%WM_PRINTCLIENT)
  %WM_PRINTCLIENT = &H0318
#ENDIF

#IF NOT %DEF(%EM_GETLIMITTEXT)
  %EM_GETLIMITTEXT = %WM_USER + 37
#ENDIF

#IF NOT %DEF(%EM_POSFROMCHAR)
  %EM_POSFROMCHAR = %WM_USER + 38
  %EM_CHARFROMPOS = %WM_USER + 39
#ENDIF

#IF NOT %DEF(%EM_SCROLLCARET)
  %EM_SCROLLCARET = %WM_USER + 49
#ENDIF

%EM_CANPASTE           = %WM_USER + 50
%EM_DISPLAYBAND        = %WM_USER + 51
%EM_EXGETSEL           = %WM_USER + 52
%EM_EXLIMITTEXT        = %WM_USER + 53
%EM_EXLINEFROMCHAR     = %WM_USER + 54
%EM_EXSETSEL           = %WM_USER + 55
%EM_FINDTEXT           = %WM_USER + 56
%EM_FORMATRANGE        = %WM_USER + 57
%EM_GETCHARFORMAT      = %WM_USER + 58
%EM_GETEVENTMASK       = %WM_USER + 59
%EM_GETOLEINTERFACE    = %WM_USER + 60
%EM_GETPARAFORMAT      = %WM_USER + 61
%EM_GETSELTEXT         = %WM_USER + 62
%EM_HIDESELECTION      = %WM_USER + 63
%EM_PASTESPECIAL       = %WM_USER + 64
%EM_REQUESTRESIZE      = %WM_USER + 65
%EM_SELECTIONTYPE      = %WM_USER + 66
%EM_SETBKGNDCOLOR      = %WM_USER + 67
%EM_SETCHARFORMAT      = %WM_USER + 68
%EM_SETEVENTMASK       = %WM_USER + 69
%EM_SETOLECALLBACK     = %WM_USER + 70
%EM_SETPARAFORMAT      = %WM_USER + 71
%EM_SETTARGETDEVICE    = %WM_USER + 72
%EM_STREAMIN           = %WM_USER + 73
%EM_STREAMOUT          = %WM_USER + 74
%EM_GETTEXTRANGE       = %WM_USER + 75
%EM_FINDWORDBREAK      = %WM_USER + 76
%EM_SETOPTIONS         = %WM_USER + 77
%EM_GETOPTIONS         = %WM_USER + 78
%EM_FINDTEXTEX         = %WM_USER + 79
%EM_GETWORDBREAKPROCEX = %WM_USER + 80
%EM_SETWORDBREAKPROCEX = %WM_USER + 81

' RichEdit 2.0 messages
%EM_SETUNDOLIMIT       = %WM_USER + 82
%EM_REDO               = %WM_USER + 84
%EM_CANREDO            = %WM_USER + 85
%EM_GETUNDONAME        = %WM_USER + 86
%EM_GETREDONAME        = %WM_USER + 87
%EM_STOPGROUPTYPING    = %WM_USER + 88

%EM_SETTEXTMODE        = %WM_USER + 89
%EM_GETTEXTMODE        = %WM_USER + 90

' from enumerated type TEXTMODE, for use with EM_GET/SETTEXTMODE
%TM_PLAINTEXT       = 1
%TM_RICHTEXT        = 2     ' default behavior
%TM_SINGLELEVELUNDO = 4
%TM_MULTILEVELUNDO  = 8     ' default behavior
%TM_SINGLECODEPAGE  = 16
%TM_MULTICODEPAGE   = 32    ' default behavior

%EM_AUTOURLDETECT      = %WM_USER + 91
%EM_GETAUTOURLDETECT   = %WM_USER + 92
%EM_SETPALETTE         = %WM_USER + 93
%EM_GETTEXTEX          = %WM_USER + 94
%EM_GETTEXTLENGTHEX    = %WM_USER + 95
%EM_SHOWSCROLLBAR      = %WM_USER + 96
%EM_SETTEXTEX          = %WM_USER + 97

' Far East specific messages
%EM_SETPUNCTUATION  = %WM_USER + 100
%EM_GETPUNCTUATION  = %WM_USER + 101
%EM_SETWORDWRAPMODE = %WM_USER + 102
%EM_GETWORDWRAPMODE = %WM_USER + 103
%EM_SETIMECOLOR     = %WM_USER + 104
%EM_GETIMECOLOR     = %WM_USER + 105
%EM_SETIMEOPTIONS   = %WM_USER + 106
%EM_GETIMEOPTIONS   = %WM_USER + 107
%EM_CONVPOSITION    = %WM_USER + 108

%EM_SETLANGOPTIONS       = %WM_USER + 120
%EM_GETLANGOPTIONS       = %WM_USER + 121
%EM_GETIMECOMPMODE       = %WM_USER + 122

%EM_FINDTEXTW            = %WM_USER + 123
%EM_FINDTEXTEXW          = %WM_USER + 124

' RE3.0 FE messages
%EM_RECONVERSION         = %WM_USER + 125
%EM_SETIMEMODEBIAS       = %WM_USER + 126
%EM_GETIMEMODEBIAS       = %WM_USER + 127

' BiDi specific messages
%EM_SETBIDIOPTIONS       = %WM_USER + 200
%EM_GETBIDIOPTIONS       = %WM_USER + 201

%EM_SETTYPOGRAPHYOPTIONS = %WM_USER + 202
%EM_GETTYPOGRAPHYOPTIONS = %WM_USER + 203

' Extended edit style specific messages
%EM_SETEDITSTYLE         = %WM_USER + 204
%EM_GETEDITSTYLE         = %WM_USER + 205

' Extended edit style masks
%SES_EMULATESYSEDIT     = 1
%SES_BEEPONMAXTEXT      = 2
%SES_EXTENDBACKCOLOR    = 4
%SES_MAPCPS             = 8
%SES_EMULATE10          = 16
%SES_USECRLF            = 32
%SES_USEAIMM            = 64
%SES_NOIME              = 128

%SES_ALLOWBEEPS         = 256
%SES_UPPERCASE          = 512
%SES_LOWERCASE          = 1024
%SES_NOINPUTSEQUENCECHK = 2048
%SES_BIDI               = 4096
%SES_SCROLLONKILLFOCUS  = 8192
%SES_XLTCRCRLFTOCR      = 16384


' Options for EM_SETLANGOPTIONS and EM_GETLANGOPTIONS
%IMF_AUTOKEYBOARD        = &H0001
%IMF_AUTOFONT            = &H0002
%IMF_IMECANCELCOMPLETE   = &H0004  ' high completes comp string when aborting, low cancels.
%IMF_IMEALWAYSSENDNOTIFY = &H0008
%IMF_AUTOFONTSIZEADJUST  = &H0010
%IMF_UIFONTS             = &H0020
%IMF_DUALFONT            = &H0080

' Values for EM_GETIMECOMPMODE
%ICM_NOTOPEN    = &H0000
%ICM_LEVEL3     = &H0001
%ICM_LEVEL2     = &H0002
%ICM_LEVEL2_5   = &H0003
%ICM_LEVEL2_SUI = &H0004

' Options for EM_SETTYPOGRAPHYOPTIONS
%TO_ADVANCEDTYPOGRAPHY = 1
%TO_SIMPLELINEBREAK    = 2

' Pegasus outline mode messages (RE 3.0)

' Outline mode message
%EM_OUTLINE      = %WM_USER + 220
' Message for getting and restoring scroll pos
%EM_GETSCROLLPOS = %WM_USER + 221
%EM_SETSCROLLPOS = %WM_USER + 222
' Change fontsize in current selection by wParam
%EM_SETFONTSIZE  = %WM_USER + 223
%EM_GETZOOM      = %WM_USER + 224
%EM_SETZOOM      = %WM_USER + 225

' Outline mode wparam values
%EMO_EXIT            = 0       ' enter normal mode,  lparam ignored
%EMO_ENTER           = 1       ' enter outline mode, lparam ignored
%EMO_PROMOTE         = 2       ' LOWORD(lparam) == 0 ==>
                               ' promote  to body-text
                               ' LOWORD(lparam) != 0 ==>
                               ' promote/demote current selection
                               ' by indicated number of levels
%EMO_EXPAND          = 3       ' HIWORD(lparam) = EMO_EXPANDSELECTION
                               ' -> expands selection to level
                               ' indicated in LOWORD(lparam)
                               ' LOWORD(lparam) = -1/+1 corresponds
                               ' to collapse/expand button presses
                               ' in winword (other values are
                               ' equivalent to having pressed these
                               ' buttons more than once)
                               ' HIWORD(lparam) = EMO_EXPANDDOCUMENT
                               ' -> expands whole document to
                               ' indicated level
%EMO_MOVESELECTION   = 4       ' LOWORD(lparam) != 0 -> move current
                               ' selection up/down by indicated
                               ' amount
%EMO_GETVIEWMODE     = 5       ' Returns VM_NORMAL or VM_OUTLINE

' EMO_EXPAND options
%EMO_EXPANDSELECTION = 0
%EMO_EXPANDDOCUMENT  = 1
%VM_NORMAL           = 4       ' Agrees with RTF \viewkindN
%VM_OUTLINE          = 2

' new notifications
%EN_MSGFILTER         = &H0700
%EN_REQUESTRESIZE     = &H0701
%EN_SELCHANGE         = &H0702
%EN_DROPFILES         = &H0703
%EN_PROTECTED         = &H0704
%EN_CORRECTTEXT       = &H0705     ' PenWin specific
%EN_STOPNOUNDO        = &H0706
%EN_IMECHANGE         = &H0707     ' Far East specific
%EN_SAVECLIPBOARD     = &H0708
%EN_OLEOPFAILED       = &H0709
%EN_OBJECTPOSITIONS   = &H070a
%EN_LINK              = &H070b
%EN_DRAGDROPDONE      = &H070c
%EN_PARAGRAPHEXPANDED = &H070d

' BiDi specific notifications
%EN_ALIGNLTR          = &H0710
%EN_ALIGNRTL          = &H0711

' event notification masks
%ENM_NONE              = &H00000000
%ENM_CHANGE            = &H00000001
%ENM_UPDATE            = &H00000002
%ENM_SCROLL            = &H00000004
%ENM_KEYEVENTS         = &H00010000
%ENM_MOUSEEVENTS       = &H00020000
%ENM_REQUESTRESIZE     = &H00040000
%ENM_SELCHANGE         = &H00080000
%ENM_DROPFILES         = &H00100000
%ENM_PROTECTED         = &H00200000
%ENM_CORRECTTEXT       = &H00400000    ' PenWin specific
%ENM_SCROLLEVENTS      = &H00000008
%ENM_DRAGDROPDONE      = &H00000010
%ENM_PARAGRAPHEXPANDED = &H00000020

' Far East specific notification mask
%ENM_IMECHANGE         = &H00800000    ' unused by RE2.0
%ENM_LANGCHANGE        = &H01000000
%ENM_OBJECTPOSITIONS   = &H02000000
%ENM_LINK              = &H04000000

' new edit control styles
%ES_SAVESEL         = &H00008000
%ES_SUNKEN          = &H00004000
%ES_DISABLENOSCROLL = &H00002000
' same as WS_MAXIMIZE, but that doesn't make sense so we re-use the value
%ES_SELECTIONBAR    = &H01000000
' same as ES_UPPERCASE, but re-used to completely disable OLE drag'n'drop
%ES_NOOLEDRAGDROP   = &H00000008

' Edit control extended style
'#if (%WIN32_WINNT > &H0400) OR (%WINVER > &H0400)
'%ES_EX_NOCALLOLEINIT   = &H00000000    ' Not supported in RE 2.0/3.0
'#else
%ES_EX_NOCALLOLEINIT   = &H01000000
'#endif

' These flag are used in FE Windows
%ES_VERTICAL           = &H00400000
%ES_NOIME              = &H00080000    ' Not supported in RE 2.0/3.0
%ES_SELFIME            = &H00040000

' Edit control options
%ECO_AUTOWORDSELECTION = &H00000001
%ECO_AUTOVSCROLL       = &H00000040
%ECO_AUTOHSCROLL       = &H00000080
%ECO_NOHIDESEL         = &H00000100
%ECO_READONLY          = &H00000800
%ECO_WANTRETURN        = &H00001000
%ECO_SAVESEL           = &H00008000
%ECO_SELECTIONBAR      = &H01000000
%ECO_VERTICAL          = &H00400000    ' FE specific

' ECO operations
%ECOOP_SET = &H0001
%ECOOP_OR  = &H0002
%ECOOP_AND = &H0003
%ECOOP_XOR = &H0004

' new word break function actions
%WB_CLASSIFY      = 3
%WB_MOVEWORDLEFT  = 4
%WB_MOVEWORDRIGHT = 5
%WB_LEFTBREAK     = 6
%WB_RIGHTBREAK    = 7

' Far East specific flags
%WB_MOVEWORDPREV  = 4
%WB_MOVEWORDNEXT  = 5
%WB_PREVBREAK     = 6
%WB_NEXTBREAK     = 7

%PC_FOLLOWING  = 1
%PC_LEADING    = 2
%PC_OVERFLOW   = 3
%PC_DELIMITER  = 4
%WBF_WORDWRAP  = &H010
%WBF_WORDBREAK = &H020
%WBF_OVERFLOW  = &H040
%WBF_LEVEL1    = &H080
%WBF_LEVEL2    = &H100
%WBF_CUSTOM    = &H200

' Far East specific flags
%IMF_FORCENONE         = &H0001
%IMF_FORCEENABLE       = &H0002
%IMF_FORCEDISABLE      = &H0004
%IMF_CLOSESTATUSWINDOW = &H0008
%IMF_VERTICAL          = &H0020
%IMF_FORCEACTIVE       = &H0040
%IMF_FORCEINACTIVE     = &H0080
%IMF_FORCEREMEMBER     = &H0100
%IMF_MULTIPLEEDIT      = &H0400

' word break flags (used with WB_CLASSIFY)
%WBF_CLASS      = &H0F
%WBF_ISWHITE    = &H10
%WBF_BREAKLINE  = &H20
%WBF_BREAKAFTER = &H40

' new data types

' All character format measurements are in twips
TYPE CHARFORMAT BYTE
  cbSize AS DWORD
  dwMask AS DWORD
  dwEffects AS DWORD
  yHeight AS LONG
  yOffset AS LONG
  crTextColor AS DWORD
  bCharSet AS BYTE
  bPitchAndFamily AS BYTE
  szFaceName AS ASCIIZ * %LF_FACESIZE
  wFiller AS WORD
END TYPE

' CHARFORMAT masks
%CFM_BOLD      = &H00000001
%CFM_ITALIC    = &H00000002
%CFM_UNDERLINE = &H00000004
%CFM_STRIKEOUT = &H00000008
%CFM_PROTECTED = &H00000010
%CFM_LINK      = &H00000020    ' Exchange hyperlink extension
%CFM_SIZE      = &H80000000
%CFM_COLOR     = &H40000000
%CFM_FACE      = &H20000000
%CFM_OFFSET    = &H10000000
%CFM_CHARSET   = &H08000000

' CHARFORMAT effects
%CFE_BOLD      = &H0001
%CFE_ITALIC    = &H0002
%CFE_UNDERLINE = &H0004
%CFE_STRIKEOUT = &H0008
%CFE_PROTECTED = &H0010
%CFE_LINK      = &H0020

%CFE_AUTOCOLOR = &H40000000 ' NOTE: this corresponds to CFM_COLOR, which controls it

%yHeightCharPtsMost = 1638

' %EM_SETCHARFORMAT wParam masks
%SCF_SELECTION     = &H0001
%SCF_WORD          = &H0002
%SCF_DEFAULT       = &H0000    ' Set default charformat or paraformat
%SCF_ALL           = &H0004    ' Not valid with SCF_SELECTION or SCF_WORD
%SCF_USEUIRULES    = &H0008    ' Modifier for SCF_SELECTION; says that
                               '  format came from a toolbar, etc., and
                               '  hence UI formatting rules should be
                               '  used instead of literal formatting
%SCF_ASSOCIATEFONT = &H0010    ' Associate fontname with bCharSet (one
                               '  possible for each of Western, ME, FE, Thai)
%SCF_NOKBUPDATE    = &H0020    ' Do not update the KB layput for this change
                               ' even if autokeyboard is on.

TYPE CHARRANGE DWORD
  cpMin AS LONG
  cpMax AS LONG
END TYPE

TYPE TEXTRANGE DWORD
  chrg AS CHARRANGE
  lpstrText AS ASCIIZ PTR  ' allocated by caller, zero terminated by RichEdit
END TYPE

TYPE EDITSTREAM DWORD
  dwCookie AS DWORD    ' user value passed to callback as first parameter
  dwError AS DWORD     ' last error
  pfnCallback AS DWORD
END TYPE

' Stream formats. Flags are all in low word, since high word gives
' possible codepage choice.

%SF_TEXT         = &H0001
%SF_RTF          = &H0002
%SF_RTFNOOBJS    = &H0003    ' Write only
%SF_TEXTIZED     = &H0004    ' Write only

%SF_UNICODE      = &H0010    ' Unicode file (UCS2 little endian)
%SF_USECODEPAGE  = &H0020    ' CodePage given by high word
%SF_NCRFORNONASCII = &H40    ' Output /uN for nonASCII

' Flag telling stream operations to operate on the selection only
' EM_STREAMIN will replace the current selection
' EM_STREAMOUT will stream out the current selection
%SFF_SELECTION = &H08000

' Flag telling stream operations to operate on the common RTF keyword only
' EM_STREAMIN will accept the only common RTF keyword
' EM_STREAMOUT will stream out the only common RTF keyword
%SFF_PLAINRTF = &H04000

' Flag telling file stream output (%SFF_SELECTION flag not set) to persist
' \viewscaleN control word.
%SFF_PERSISTVIEWSCALE = &H02000

' Flag telling file stream input with %SFF_SELECTION flag not set not to
' close the document
%SFF_KEEPDOCINFO = &H01000

' Flag telling stream operations to output in Pocket Word format
%SFF_PWD         = &H00800

' 3-bit field specifying the value of N - 1 to use for \rtfN or \pwdN
%SF_RTFVAL       = &H0700

TYPE FINDTEXTAPI DWORD
  chrg AS CHARRANGE
  lpstrText AS ASCIIZ PTR
END TYPE

TYPE FINDTEXTEX DWORD
  chrg AS CHARRANGE
  lpstrText AS ASCIIZ PTR
  chrgText AS CHARRANGE
END TYPE

TYPE FORMATRANGE DWORD
  hdc AS DWORD
  hdcTarget AS DWORD
  rc AS RECT
  rcPage AS RECT
  chrg AS CHARRANGE
END TYPE

' All paragraph measurements are in twips

%MAX_TAB_STOPS = 32
%lDefaultTab   = 720

#IF (%RICHEDIT_VER - &H100) '---------------------------------------------
' version > 1.0
TYPE PARAFORMAT BYTE
  cbSize AS DWORD
  dwMask AS DWORD
  wNumbering AS WORD
  wEffects AS WORD
  dxStartIndent AS LONG
  dxRightIndent AS LONG
  dxOffset AS LONG
  wAlignment AS WORD
  cTabCount AS INTEGER
  rgxTabs(0 TO %MAX_TAB_STOPS - 1) AS LONG
END TYPE
#ELSE '----------------------------------------
' version = 1.0
TYPE PARAFORMAT BYTE
  cbSize AS DWORD
  dwMask AS DWORD
  wNumbering AS WORD
  wReserved AS WORD
  dxStartIndent AS LONG
  dxRightIndent AS LONG
  dxOffset AS LONG
  wAlignment AS WORD
  cTabCount AS INTEGER
  rgxTabs(0 TO %MAX_TAB_STOPS - 1) AS LONG
END TYPE
#ENDIF ' #IF (%RICHEDIT_VER - &H100) -------------------------------------

' PARAFORMAT mask values
%PFM_STARTINDENT  = &H00000001
%PFM_RIGHTINDENT  = &H00000002
%PFM_OFFSET       = &H00000004
%PFM_ALIGNMENT    = &H00000008
%PFM_TABSTOPS     = &H00000010
%PFM_NUMBERING    = &H00000020
%PFM_OFFSETINDENT = &H80000000

' PARAFORMAT numbering options
%PFN_BULLET = &H0001

' PARAFORMAT alignment options
%PFA_LEFT   = &H0001
%PFA_RIGHT  = &H0002
%PFA_CENTER = &H0003

' CHARFORMAT2 and PARAFORMAT2 structures

TYPE CHARFORMAT2 BYTE
  cbSize AS DWORD
  dwMask AS DWORD
  dwEffects AS DWORD
  yHeight AS LONG
  yOffset AS LONG                ' > 0 for superscript, < 0 for subscript
  crTextColor AS DWORD
  bCharSet AS BYTE
  bPitchAndFamily AS BYTE
  szFaceName AS ASCIIZ * %LF_FACESIZE
  wFiller AS WORD
  wWeight AS WORD                ' Font weight (LOGFONT value)
  sSpacing AS INTEGER              ' Amount to space between letters
  crBackColor AS DWORD           ' Background color
  lcid AS DWORD                  ' Locale ID
  dwReserved AS DWORD            ' Reserved. Must be 0
  sStyle AS INTEGER              ' Style handle
  wKerning AS WORD               ' Twip size above which to kern char pair
  bUnderlineType AS BYTE         ' Underline type
  bAnimation AS BYTE             ' Animated text like marching ants
  bRevAuthor AS BYTE             ' Revision author index
END TYPE

%CHARFORMATDELTA = 23 ' SIZEOF(CHARFORMAT2) - SIZEOF(CHARFORMAT)

' PARAFORMAT 2.0 masks and effects

%PFM_SPACEBEFORE     = &H00000040
%PFM_SPACEAFTER      = &H00000080
%PFM_LINESPACING     = &H00000100
%PFM_STYLE           = &H00000400
%PFM_BORDER          = &H00000800  ' (*)
%PFM_SHADING         = &H00001000  ' (*)
%PFM_NUMBERINGSTYLE  = &H00002000  ' RE 3.0
%PFM_NUMBERINGTAB    = &H00004000  ' RE 3.0
%PFM_NUMBERINGSTART  = &H00008000  ' RE 3.0

%PFM_RTLPARA         = &H00010000
%PFM_KEEP            = &H00020000  ' (*)
%PFM_KEEPNEXT        = &H00040000  ' (*)
%PFM_PAGEBREAKBEFORE = &H00080000  ' (*)
%PFM_NOLINENUMBER    = &H00100000  ' (*)
%PFM_NOWIDOWCONTROL  = &H00200000  ' (*)
%PFM_DONOTHYPHEN     = &H00400000  ' (*)
%PFM_SIDEBYSIDE      = &H00800000  ' (*)
%PFM_TABLE           = &H40000000  ' RE 3.0

' The following three properties are read only
%PFM_COLLAPSED       = &H01000000  ' RE 3.0
%PFM_OUTLINELEVEL    = &H02000000  ' RE 3.0
%PFM_BOX             = &H04000000  ' RE 3.0


' Note: PARAFORMAT has no effects
%PFM_EFFECTS = %PFM_RTLPARA OR %PFM_KEEP OR %PFM_KEEPNEXT OR %PFM_TABLE _
                   OR %PFM_PAGEBREAKBEFORE OR %PFM_NOLINENUMBER  _
                   OR %PFM_NOWIDOWCONTROL OR %PFM_DONOTHYPHEN OR %PFM_SIDEBYSIDE _
                   OR %PFM_TABLE

' CHARFORMAT and PARAFORMAT "ALL" masks
' %CFM_COLOR mirrors %CFE_AUTOCOLOR, a little hack to easily deal with autocolor

%CFM_EFFECTS = %CFM_BOLD OR %CFM_ITALIC OR %CFM_UNDERLINE OR %CFM_COLOR OR _
                   %CFM_STRIKEOUT OR %CFE_PROTECTED OR %CFM_LINK
%CFM_ALL = %CFM_EFFECTS OR %CFM_SIZE OR %CFM_FACE OR %CFM_OFFSET OR %CFM_CHARSET

%PFM_ALL = %PFM_STARTINDENT OR %PFM_RIGHTINDENT OR %PFM_OFFSET OR _
               %PFM_ALIGNMENT OR %PFM_TABSTOPS OR %PFM_NUMBERING OR _
               %PFM_OFFSETINDENT OR %PFM_RTLPARA

%PFM_ALL2 = %PFM_ALL OR %PFM_EFFECTS OR %PFM_SPACEBEFORE OR %PFM_SPACEAFTER _
                OR %PFM_LINESPACING OR %PFM_STYLE OR %PFM_SHADING OR %PFM_BORDER _
                OR %PFM_NUMBERINGTAB OR %PFM_NUMBERINGSTART OR %PFM_NUMBERINGSTYLE

' New masks and effects -- a parenthesized asterisk indicates that
' the data is stored by RichEdit 2.0/3.0, but not displayed

%CFM_SMALLCAPS     = &H0040        ' (*)
%CFM_ALLCAPS       = &H0080        ' Displayed by 3.0
%CFM_HIDDEN        = &H0100        ' Hidden by 3.0
%CFM_OUTLINE       = &H0200        ' (*)
%CFM_SHADOW        = &H0400        ' (*)
%CFM_EMBOSS        = &H0800        ' (*)
%CFM_IMPRINT       = &H1000        ' (*)
%CFM_DISABLED      = &H2000
%CFM_REVISED       = &H4000

%CFM_BACKCOLOR     = &H04000000
%CFM_LCID          = &H02000000
%CFM_UNDERLINETYPE = &H00800000    ' Many displayed by 3.0
%CFM_WEIGHT        = &H00400000
%CFM_SPACING       = &H00200000    ' Displayed by 3.0
%CFM_KERNING       = &H00100000    ' (*)
%CFM_STYLE         = &H00080000    ' (*)
%CFM_ANIMATION     = &H00040000    ' (*)
%CFM_REVAUTHOR     = &H00008000

%CFE_SUBSCRIPT     = &H00010000    ' Superscript and subscript are
%CFE_SUPERSCRIPT   = &H00020000    '  mutually exclusive

%CFM_SUBSCRIPT     = %CFE_SUBSCRIPT OR %CFE_SUPERSCRIPT
%CFM_SUPERSCRIPT   = %CFM_SUBSCRIPT

%CFM_EFFECTS2 = %CFM_EFFECTS OR %CFM_DISABLED OR %CFM_SMALLCAPS OR %CFM_ALLCAPS _
                    OR %CFM_HIDDEN  OR %CFM_OUTLINE OR %CFM_SHADOW OR %CFM_EMBOSS _
                    OR %CFM_IMPRINT OR %CFM_DISABLED OR %CFM_REVISED _
                    OR %CFM_SUBSCRIPT OR %CFM_SUPERSCRIPT OR %CFM_BACKCOLOR

%CFM_ALL2 = %CFM_ALL OR %CFM_EFFECTS2 OR %CFM_BACKCOLOR OR %CFM_LCID _
                OR %CFM_UNDERLINETYPE OR %CFM_WEIGHT OR %CFM_REVAUTHOR _
                OR %CFM_SPACING OR %CFM_KERNING OR %CFM_STYLE OR %CFM_ANIMATION

%CFE_SMALLCAPS     = %CFM_SMALLCAPS
%CFE_ALLCAPS       = %CFM_ALLCAPS
%CFE_HIDDEN        = %CFM_HIDDEN
%CFE_OUTLINE       = %CFM_OUTLINE
%CFE_SHADOW        = %CFM_SHADOW
%CFE_EMBOSS        = %CFM_EMBOSS
%CFE_IMPRINT       = %CFM_IMPRINT
%CFE_DISABLED      = %CFM_DISABLED
%CFE_REVISED       = %CFM_REVISED

' NOTE: %CFE_AUTOCOLOR and %CFE_AUTOBACKCOLOR correspond to %CFM_COLOR and
' %CFM_BACKCOLOR, respectively, which control them

%CFE_AUTOBACKCOLOR = %CFM_BACKCOLOR

' Underline types. RE 1.0 displays only CFU_UNDERLINE
%CFU_CF1UNDERLINE        = &HFF  ' map charformat's bit underline to CF2.
%CFU_INVERT              = &HFE  ' For IME composition fake a selection.
%CFU_UNDERLINEHAIRLINE   = 10    ' (*) displayed as ordinary underline
%CFU_UNDERLINETHICK      = 9
%CFU_UNDERLINEWAVE       = 8
%CFU_UNDERLINEDASHDOTDOT = 7
%CFU_UNDERLINEDASHDOT    = 6
%CFU_UNDERLINEDASH       = 5
%CFU_UNDERLINEDOTTED     = 4
%CFU_UNDERLINEDOUBLE     = 3     ' (*) displayed as ordinary underline
%CFU_UNDERLINEWORD       = 2     ' (*) displayed as ordinary underline
%CFU_UNDERLINE           = 1
%CFU_UNDERLINENONE       = 0

TYPE PARAFORMAT2 BYTE
  cbSize AS DWORD
  dwMask AS DWORD
  wNumbering AS WORD
  wReserved AS WORD
  dxStartIndent AS LONG
  dxRightIndent AS LONG
  dxOffset AS LONG
  wAlignment AS WORD
  cTabCount AS INTEGER
  rgxTabs(0 TO %MAX_TAB_STOPS - 1) AS LONG
  dySpaceBefore AS LONG       ' Vertical spacing before para
  dySpaceAfter AS LONG        ' Vertical spacing after para
  dyLineSpacing AS LONG       ' Line spacing depending on Rule
  sStyle AS INTEGER           ' Style handle
  bLineSpacingRule AS BYTE    ' Rule for line spacing (see tom.doc)
  bOutlineLevel AS BYTE       ' Outline Level
  wShadingWeight AS WORD      ' Shading in hundredths of a per cent
  wShadingStyle AS WORD       ' Byte 0: style, nib 2: cfpat, 3: cbpat
  wNumberingStart AS WORD     ' Starting value for numbering
  wNumberingStyle AS WORD     ' Alignment, Roman/Arabic, (), ), ., etc.
  wNumberingTab AS WORD       ' Space bet 1st indent and 1st-line text
  wBorderSpace AS WORD        ' Border-text spaces (nbl/bdr in pts)
  wBorderWidth AS WORD        ' Pen widths (nbl/bdr in half twips)
  wBorders AS WORD            ' Border styles (nibble/border)
END TYPE


%PFE_RTLPARA         = %PFM_RTLPARA         \ 65536
%PFE_KEEP            = %PFM_KEEP            \ 65536  ' (*)
%PFE_KEEPNEXT        = %PFM_KEEPNEXT        \ 65536  ' (*)
%PFE_PAGEBREAKBEFORE = %PFM_PAGEBREAKBEFORE \ 65536  ' (*)
%PFE_NOLINENUMBER    = %PFM_NOLINENUMBER    \ 65536  ' (*)
%PFE_NOWIDOWCONTROL  = %PFM_NOWIDOWCONTROL  \ 65536  ' (*)
%PFE_DONOTHYPHEN     = %PFM_DONOTHYPHEN     \ 65536  ' (*)
%PFE_SIDEBYSIDE      = %PFM_SIDEBYSIDE      \ 65536  ' (*)

' The following four effects are read only
%PFE_OUTLINELEVEL    = %PFM_OUTLINELEVEL \ 65536  ' (+)
%PFE_COLLAPSED       = %PFM_COLLAPSED    \ 65536  ' (+)
%PFE_BOX             = %PFM_BOX          \ 65536  ' (+)
%PFE_TABLE           = &H4000      ' Para is a table row. RE 3.0

' PARAFORMAT2 wNumbering options (see also PFN_BULLET)
%PFN_ARABIC   = 2    ' tomListNumberAsArabic:   0, 1, 2,    ...
%PFN_LCLETTER = 3    ' tomListNumberAsLCLetter: a, b, c,    ...
%PFN_UCLETTER = 4    ' tomListNumberAsUCLetter: A, B, C,    ...
%PFN_LCROMAN  = 5    ' tomListNumberAsLCRoman:  i, ii, iii, ...
%PFN_UCROMAN  = 6    ' tomListNumberAsUCRoman:  I, II, III, ...

' PARAFORMAT2 wNumberingStyle options
%PFNS_PAREN    = &H000   ' default, e.g.,                 1)
%PFNS_PARENS   = &H100   ' tomListParentheses/256, e.g., (1)
%PFNS_PERIOD   = &H200   ' tomListPeriod/256, e.g.,       1.
%PFNS_PLAIN    = &H300   ' tomListPlain/256, e.g.,        1
%PFNS_NONUMBER = &H400   ' Used for continuation w/o number

%PFA_JUSTIFY          = 4  ' New paragraph-alignment option 2.0 (*)
%PFA_FULL_INTERWORD   = 4
%PFA_FULL_INTERLETTER = 5
%PFA_FULL_SCALED      = 6
%PFA_FULL_GLYPHS      = 7
%PFA_SNAP_GRID        = 8

' Notification structures

#IF NOT %DEF(%WM_NOTIFY) '-------------------------------
%WM_NOTIFY = &H004E

TYPE NMHDR DWORD
  hwndFrom AS DWORD
  idFrom AS DWORD
  code AS DWORD
END TYPE
#ENDIF  ' #IF NOT %DEF(%WM_NOTIFY) ----------------------

' notification structures
TYPE MSGFILTER DWORD
  hdr AS NMHDR
  msg AS DWORD
  wParam AS LONG
  lParam AS LONG
END TYPE

TYPE REQRESIZE DWORD
  hdr AS NMHDR
  rc AS RECT
END TYPE

TYPE SELCHANGE BYTE
  hdr AS NMHDR
  chrg AS CHARRANGE
  seltyp AS WORD
END TYPE

%SEL_EMPTY       = &H0000
%SEL_TEXT        = &H0001
%SEL_OBJECT      = &H0002
%SEL_MULTICHAR   = &H0004
%SEL_MULTIOBJECT = &H0008

' Used with IRichEditOleCallback::GetContextMenu, this flag will be
' passed as a "selection type".  It indicates that a context menu for
' a right-mouse drag drop should be generated.  The IOleObject parameter
' will really be the IDataObject for the drop
'
%GCM_RIGHTMOUSEDROP = &H8000

TYPE ENDROPFILES DWORD
  hdr AS NMHDR
  hDrop AS DWORD
  cp AS LONG
  fProtected AS LONG
END TYPE

TYPE ENPROTECTED DWORD
  hdr AS NMHDR
  msg AS DWORD
  wParam AS LONG
  lParam AS LONG
  chrg AS CHARRANGE
END TYPE

TYPE ENSAVECLIPBOARD DWORD
  hdr AS NMHDR
  cObjectCount AS LONG
  cch AS LONG
END TYPE

TYPE ENOLEOPFAILED DWORD
  hdr AS NMHDR
  iob AS LONG
  lOper AS LONG
  hr AS DWORD
END TYPE

%OLEOP_DOVERB  = 1

TYPE OBJECTPOSITIONS DWORD
  nmhdr AS NMHDR
  cObjectCount AS LONG
  pcpPositions AS LONG PTR
END TYPE

TYPE ENLINK DWORD
  nmhdr AS NMHDR
  msg AS DWORD
  wParam AS LONG
  lParam AS LONG
  chrg AS CHARRANGE
END TYPE

' PenWin specific
TYPE ENCORRECTTEXT BYTE
  hdr AS NMHDR
  chrg AS CHARRANGE
  seltyp AS WORD
END TYPE

' Far East specific
TYPE PUNCTUATION DWORD
  iSize AS DWORD
  szPunctuation AS ASCIIZ PTR
END TYPE

' Far East specific
TYPE COMPCOLOR DWORD
  crText AS DWORD
  crBackground AS DWORD
  dwEffects AS DWORD
END TYPE


' Clipboard formats - use as parameter to RegisterClipboardFormat()
$CF_RTF       = "Rich Text Format"
$CF_RTFNOOBJS = "Rich Text Format Without Objects"
$CF_RETEXTOBJ = "RichEdit Text and Objects"

' Paste Special
TYPE REPASTESPECIAL DWORD
  dwAspect AS DWORD
  dwParam AS DWORD
END TYPE

' UndoName info (enumerated type UNDONAMEID)
%UID_UNKNOWN  = 0
%UID_TYPING   = 1
%UID_DELETE   = 2
%UID_DRAGDROP = 3
%UID_CUT      = 4
%UID_PASTE    = 5

' Flags for the SETEXTEX data structure
%ST_DEFAULT   = 0
%ST_KEEPUNDO  = 1
%ST_SELECTION = 2

' EM_SETTEXTEX info; this struct is passed in the wparam of the message
TYPE SETTEXTEX DWORD
  flags AS DWORD       ' flags (see the ST_XXX defines
  codepage AS DWORD    ' code page for translation (CP_ACP for sys default;
                       ' 1200 for Unicode, -1 for control default
END TYPE

' Flags for the GETEXTEX data structure
%GT_DEFAULT   = 0
%GT_USECRLF   = 1
%GT_SELECTION = 2

' EM_GETTEXTEX info; this struct is passed in the wparam of the message
TYPE GETTEXTEX DWORD
  cb AS DWORD                  ' count of bytes in the string
  flags AS DWORD               ' flags (see the GT_XXX defines
  codepage AS DWORD            ' code page for translation (CP_ACP for sys default,
                               ' 1200 for Unicode, -1 for control default
  lpDefaultChar AS ASCIIZ PTR  ' replacement for unmappable chars
  lpUsedDefChar AS LONG PTR    ' pointer to flag set when def char used
END TYPE

' Flags for the GETTEXTLENGTHEX data structure
%GTL_DEFAULT  = 0    ' do the default (return # of chars)
%GTL_USECRLF  = 1    ' compute answer using CRLFs for paragraphs
%GTL_PRECISE  = 2    ' compute a precise answer
%GTL_CLOSE    = 4    ' fast computation of a "close" answer
%GTL_NUMCHARS = 8    ' return the number of characters
%GTL_NUMBYTES = 16   ' return the number of _bytes_

' EM_GETTEXTLENGTHEX info; this struct is passed in the wparam of the msg
TYPE GETTEXTLENGTHEX DWORD
  flags AS DWORD       ' flags (see GTL_XXX defines)
  codepage AS DWORD    ' code page for translation (CP_ACP for default,
                       ' 1200 for Unicode
END TYPE

' BiDi specific features
TYPE BIDIOPTIONS BYTE
  cbSize AS DWORD
  wMask AS WORD
  wEffects AS WORD
END TYPE

' BIDIOPTIONS masks
#IF (%RICHEDIT_VER - &H0100)
#ELSE
  ' version 1.0
  %BOM_DEFPARADIR       = &H0001  ' Default paragraph direction (implies alignment) (obsolete)
  %BOM_PLAINTEXT        = &H0002  ' Use plain text layout (obsolete)
#ENDIF

%BOM_NEUTRALOVERRIDE  = &H0004  ' Override neutral layout (obsolete)
%BOM_CONTEXTREADING   = &H0008  ' Context reading order
%BOM_CONTEXTALIGNMENT = &H0010  ' Context alignment

' BIDIOPTIONS effects
#IF (%RICHEDIT_VER - &H0100)
#ELSE
  ' version 1.0
  %BOE_RTLDIR           = &H0001  ' Default paragraph direction (implies alignment) (obsolete)
  %BOE_PLAINTEXT        = &H0002  ' Use plain text layout (obsolete)
#ENDIF

%BOE_NEUTRALOVERRIDE  = &H0004  ' Override neutral layout (obsolete)
%BOE_CONTEXTREADING   = &H0008  ' Context reading order
%BOE_CONTEXTALIGNMENT = &H0010  ' Context alignment

' Additional EM_FINDTEXT[EX] flags
%FR_MATCHDIAC      = &H20000000
%FR_MATCHKASHIDA   = &H40000000
%FR_MATCHALEFHAMZA = &H80000000

#ENDIF ' #IF NOT %DEF(%RICHEDIT_INC) ==========================================

RTF.INC....(My wrapper for making sense of RTF commands)

Code:

FUNCTION RtfCommandsStart() AS STRING
    LOCAL st$
'*** Start RTF Header
    st$ = "{"   'Start Header
    st$ = st$ + "\rtf1"  'RTF version 1
    st$ = st$ + "\ansi" 'Ansi language
    st$ = st$ + "\ansicpg1252"  'No idea what this one is
    st$ = st$ + "\deff0"        'Default Font = Font 0
    st$ = st$ + "\deflang1033"  'Default Language = English
    st$ = st$ + "\deflangfe1033"    'Not sure but probably Default English
    st$ = st$ + $CRLF
'*** Start Font Selections
    st$ = st$ + "{"     'Start Block
    st$ = st$ + "\fonttbl"     'Font Block
'*** Courier New
    st$ = st$ + "{"
    st$ = st$ + "\f0"   'Font 0
    st$ = st$ + "\fmodern"
    st$ = st$ + "\fprq1"
    st$ = st$ + "\fcharset0 Courier New;"
    st$ = st$ + "}"
    st$ = st$ + $CRLF
'*** Times New Roman
    st$ = st$ + "{
    st$ = st$ + "\f1"   'Font 1
    st$ = st$ + "\fnil
    st$ = st$ + "\fcharset0 Times New Roman;"
    st$ = st$ + "}"
    st$ = st$ + $CRLF
'*** Andale
    st$ = st$ + "{
    st$ = st$ + "\f2"   'Font 2
    st$ = st$ + "\fmodern"
    st$ = st$ + "\fprq1"
    st$ = st$ + "\fcharset0 Andale Mono;"
    st$ = st$ + "}"
    st$ = st$ + $CRLF
'*** Lucida
    st$ = st$ + "{
    st$ = st$ + "\f3"   'Font 3
    st$ = st$ + "\fmodern"
    st$ = st$ + "\fprq1"
    st$ = st$ + "\fcharset0 Lucida CONSOLE;
    st$ = st$ + "}"
    st$ = st$ + $CRLF
'*** Georgia
    st$ = st$ + "{"
    st$ = st$ + "\f4"   'Font 4
    st$ = st$ + "\froman"
    st$ = st$ + "\fprq2\fcharset0 Georgia;"
    st$ = st$ + "}"
    st$ = st$ + "}"
'*** End Font Block
    st$ = st$ + $CRLF
'*** Start Color Block
    st$ = st$ + "{"
    st$ = st$ + "\colortbl "
    st$ = st$ + $CRLF
    st$ = st$ + ";\red128\green0\blue0"+ $CRLF      'MAROON Brownish Red
    st$ = st$ + ";\red0\green128\blue0"+ $CRLF      'TEAL Dark Green
    st$ = st$ + ";\red128\green128\blue0"+ $CRLF    'GREEN Cammo Green
    st$ = st$ + ";\red0\green0\blue128"+ $CRLF      'NAVY Dark Purple
    st$ = st$ + ";\red128\green0\blue128"+ $CRLF    'PURPLE Purple
    st$ = st$ + ";\red0\green128\blue128"+ $CRLF    'TEAL Swatch Green
    st$ = st$ + ";\red128\green128\blue128"+ $CRLF  'GREY Dark Grey
    st$ = st$ + ";\red192\green192\blue192"+ $CRLF  'SILVER Light Grey
    st$ = st$ + ";\red255\green0\blue0"+ $CRLF      'RED Bright Red
    st$ = st$ + ";\red0\green255\blue0"+ $CRLF      'LIME Bright Green
    st$ = st$ + ";\red255\green255\blue0"+ $CRLF    'YELLOW Bright Yellow
    st$ = st$ + ";\red0\green0\blue255"+ $CRLF      'BLUE Bright Blue
    st$ = st$ + ";\red255\green0\blue255"+ $CRLF    'PINK Bright Pink
    st$ = st$ + ";\red0\green255\blue255"+ $CRLF    'AQUA Blue Green
    st$ = st$ + ";\red255\green255\blue255"+ $CRLF  'WHITE White
    st$ = st$ + ";"
    st$ = st$ + "}"
'*** End Color Block
    st$ = st$ + $CRLF
    st$ = st$ + "\cf1"      'Default Color 1
    st$ = st$ + "\f0"       'Default Font 0
    st$ = st$ + "\fs11 "    'Default Font Size 11
    st$ = st$ + $CRLF
'*** Commands after this are part of this header until the end closing bracket found
    FUNCTION = st$
END FUNCTION

FUNCTION RtfCommandsEnd() AS STRING
    FUNCTION = "}"
END FUNCTION

FUNCTION RtfCommandsEndOfLine() AS STRING
    FUNCTION = "\line "
END FUNCTION

FUNCTION RtfReplaceCr(CommandString AS STRING) AS STRING
    REPLACE $CR WITH CHR$(174) IN CommandString
    FUNCTION = CommandString
END FUNCTION

FUNCTION RtfFontCourier() AS STRING
    FUNCTION = "\f0"
END FUNCTION

FUNCTION RtfFontTimesNewRoman() AS STRING
    FUNCTION = "\f1"
END FUNCTION

FUNCTION RtfFontAndale() AS STRING
    FUNCTION = "\f2"
END FUNCTION

FUNCTION RtfFontLucidia() AS STRING
    FUNCTION = "\f3"
END FUNCTION

FUNCTION RtfFontGeorgia() AS STRING
    FUNCTION = "\f4"
END FUNCTION

FUNCTION RtfFontBold() AS STRING
    FUNCTION = "\b "
END FUNCTION

FUNCTION RtfFontUnBold() AS STRING
    FUNCTION = "\b0 "
END FUNCTION

FUNCTION RtfFontItalic() AS STRING
    FUNCTION = "\i "
END FUNCTION

FUNCTION RtfFontUnItalic() AS STRING
    FUNCTION = "\i0 "
END FUNCTION

FUNCTION RtfFontUnderline() AS STRING
    FUNCTION = "\ul "
END FUNCTION

FUNCTION RtfFontUnUnderline() AS STRING
    FUNCTION = "\ul0 "
END FUNCTION

FUNCTION RtfFontSize(SizeForFont AS LONG) AS STRING
    FUNCTION = "\fs" + TRIM$(STR$(SizeForFont*2)) + " "
END FUNCTION

FUNCTION RtfFontMaroon() AS STRING
    FUNCTION = "\cf1 "
END FUNCTION

FUNCTION RtfFontGreen() AS STRING
    FUNCTION = "\cf2 "
END FUNCTION

FUNCTION RtfFontOlive() AS STRING
    FUNCTION = "\cf3 "
END FUNCTION

FUNCTION RtfFontNavy() AS STRING
    FUNCTION = "\cf4 "
END FUNCTION

FUNCTION RtfFontPurple() AS STRING
    FUNCTION = "\cf5 "
END FUNCTION

FUNCTION RtfFontTeal() AS STRING
    FUNCTION = "\cf6 "
END FUNCTION

FUNCTION RtfFontGrey() AS STRING
    FUNCTION = "\cf7 "
END FUNCTION

FUNCTION RtfFontSilver() AS STRING
    FUNCTION = "\cf8 "
END FUNCTION

FUNCTION RtfFontRed() AS STRING
    FUNCTION = "\cf9 "
END FUNCTION

FUNCTION RtfFontLime() AS STRING
    FUNCTION = "\cf10 "
END FUNCTION

FUNCTION RtfFontYellow() AS STRING
    FUNCTION = "\cf11 "
END FUNCTION

FUNCTION RtfFontBlue() AS STRING
    FUNCTION = "\cf12 "
END FUNCTION

FUNCTION RtfFontFuchsia() AS STRING
    FUNCTION = "\cf13 "
END FUNCTION

FUNCTION RtfFontAqua() AS STRING
    FUNCTION = "\cf14 "
END FUNCTION

FUNCTION RtfFontWhite() AS STRING
    FUNCTION = "\cf15 "
END FUNCTION

'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
' Rich Edit stream in callback - for streaming in string contents
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
FUNCTION RichEditStreamInString (BYVAL dwCookie AS DWORD, BYVAL pbBuff AS BYTE PTR, _
                                 BYVAL cb AS LONG, pcb AS LONG) AS DWORD
'    pcb = cb 'number of bytes to copy                                     '<--- Original Example
    pcb = MIN&(cb, LEN(gTxt) - (gPos - 1))   'number of bytes to copy      '<--- Corrected code...Thanx MCM :-)
    IF pcb > 0 THEN                          'copy block from global string directly into Richedit's buffer.
        CopyMemory pbBuff, (gPtr + gPos - 1), pcb      'could use POKE$ too, but this is a bit faster
        gPos = gPos + pcb                              'incr pos for next callback position.
    ELSE
        FUNCTION = %True    'Break the action
    END IF
END FUNCTION

SetupAPI.INC....(I wasn't going to include this, because I thought PB did, but a quick look I do not see it...so here goes (sorry about the size)

Code:

'  SETUPAPI.DLL is available on Win95/NT4 SP3 and later versions.
'  Define %UNICODE to enable unicode support (default is ANSI).
'  Define %SETUPAPI_VER to predefine the DLL version, (default is Win98 or IE4).
'

#IF NOT %DEF(%WINAPI)
    #INCLUDE "win32api.inc"
#ENDIF


#IF NOT %DEF(%SETUPAPI)

%SETUPAPI = 1


'  determine version of setupapi based on _WIN32_WINDOWS and _WIN32_WINNT

'  NT4 version of setupapi (&H0400) is earliest, and installed onto Win95 by IE.
'  Win2k version of setupapi (&H0500) also shipped in WinME
'  we'll use "&H0410" to indicate version of setupapi shipped with Win98

#IF NOT %DEF(%SETUPAPI_VER)
'    %SETUPAPI_VER = &H0410
    %SETUPAPI_VER = &H0400      'Go with earliest version to cover all
#ENDIF

'
' Define maximum string length constants
'
%LINE_LEN                     = 256     ' Windows 9x-compatible maximum for
                                        ' displayable strings coming from a
                                        ' device INF.
%MAX_INF_STRING_LENGTH        = 4096    ' Actual maximum size of an INF string
                                        ' (including string substitutions).
%MAX_INF_SECTION_NAME_LENGTH  = 255     ' For Windows 9x compatibility, INF
                                        ' section names should be constrained
                                        ' to 32 characters.

%MAX_TITLE_LEN                = 60
%MAX_INSTRUCTION_LEN          = 256
%MAX_LABEL_LEN                = 30
%MAX_SERVICE_NAME_LEN         = 256
%MAX_SUBTITLE_LEN             = 256


'  Define maximum length of a machine name in the format expected by ConfigMgr32
'  CM_Connect_Machine (i.e., "\\\\MachineName\0").

%SP_MAX_MACHINENAME_LENGTH   = (%MAX_PATH + 3)


'  Define type for reference to loaded inf file
MACRO HINF = DWORD


'  Inf context structure. Applications must not interpret or
'  overwrite values in these structures.

TYPE INFCONTEXT
     Inf AS DWORD
     CurrentInf AS DWORD
     Section AS DWORD
     dwLine AS DWORD
END TYPE


'  Inf file information structure.

TYPE SP_INF_INFORMATION
     InfStyle AS DWORD
     InfCount AS DWORD
     VersionData AS BYTE PTR     ' Array of byte values follow.
END TYPE



' Define structure for passing alternate platform info into
' SetupSetFileQueueAlternatePlatform and SetupQueryInfOriginalFileInformation.

TYPE SP_ALTPLATFORM_INFO_V2

     Platform AS DWORD

'  major and minor version numbers to use

     MajorVersion AS DWORD
     MinorVersion AS DWORD

'  processor architecture to use (PROCESSOR_ARCHITECTURE_INTEL,
'  PROCESSOR_ARCHITECTURE_AMD64, or PROCESSOR_ARCHITECTURE_IA64.

     ProcessorArchitecture AS WORD
     Reserved AS WORD                      '  for compatibility with V1 structure
     Flags AS WORD                         '  indicates validity of non V1 fields

'  specify SP_ALTPLATFORM_FLAGS_VERSION_RANGE in Flags
'  to use FirstValidatedMajorVersion and FirstValidatedMinorVersion

'  Major and minor versions of the oldest previous OS for which this
'  package's digital signature may be considered valid.  For example, say
'  the alternate platform is VER_PLATFORM_WIN32_NT, version 5.1.  However,
'  it is wished that driver packages signed with a 5.0 osattr also be
'  considered valid.  In this case, you'd have a  MajorVersion/MinorVersion
'  of 5.1, and a FirstValidatedMajorVersion/FirstValidatedMinorVersion of
'  5.0.  To validate packages signed for any previous OS release, specify
'  0 for these fields.  To only validate against the target alternate
'  platform, specify the same values as those in the MajorVersion and
'  MinorVersion fields.

     FirstValidatedMajorVersion AS DWORD
     FirstValidatedMinorVersion AS DWORD

END TYPE


TYPE SP_ALTPLATFORM_INFO_V1
     cbSize AS DWORD
                                           '
                                           '  platform to use (VER_PLATFORM_WIN32_WINDOWS or VER_PLATFORM_WIN32_NT)
                                           '
     Platform AS DWORD
                                           '
                                           '  major and minor version numbers to use
                                           '
     MajorVersion AS DWORD
     MinorVersion AS DWORD
                                           '
                                           '  processor architecture to use (PROCESSOR_ARCHITECTURE_INTEL,
                                           '  PROCESSOR_ARCHITECTURE_AMD64, or PROCESSOR_ARCHITECTURE_IA64.
                                           '
     ProcessorArchitecture AS WORD
     Reserved AS WORD                      '  must be zero.
END TYPE


#IF %DEF(%USE_SP_ALTPLATFORM_INFO_V1) AND (%SETUPAPI_VER < &H0501) '  use version 1 altplatform info data structure

    MACRO SP_ALTPLATFORM_INFO  = SP_ALTPLATFORM_INFO_V1
    MACRO PSP_ALTPLATFORM_INFO = PSP_ALTPLATFORM_INFO_V1

#ELSE                          ' use version 2 altplatform info data structure

    MACRO SP_ALTPLATFORM_INFO  = SP_ALTPLATFORM_INFO_V2
    MACRO PSP_ALTPLATFORM_INFO = PSP_ALTPLATFORM_INFO_V2

    '  the following flags are available to SP_ALTPLATFORM_INFO_V2
    %SP_ALTPLATFORM_FLAGS_VERSION_RANGE = (&H0001)     ' FirstValidatedMajor/MinorVersion

#ENDIF  ' use current version of altplatform info data structure



'  Define structure that is filled in by SetupQueryInfOriginalFileInformation
'  to indicate the INF's original name and the original name of the (potentially
'  platform-specific) catalog file specified by that INF.

TYPE SP_ORIGINAL_FILE_INFO_A
     cbSize AS DWORD
     OriginalInfName AS ASCIIZ * %MAX_PATH
     OriginalCatalogName AS ASCIIZ * %MAX_PATH
END TYPE

TYPE SP_ORIGINAL_FILE_INFO_W
     cbSize AS DWORD
     OriginalInfName AS STRING * %MAX_PATH * 2
     OriginalCatalogName AS STRING * %MAX_PATH * 2
END TYPE

#IF %DEF(%UNICODE)
    MACRO SP_ORIGINAL_FILE_INFO  = SP_ORIGINAL_FILE_INFO_W
#ELSE
    MACRO SP_ORIGINAL_FILE_INFO  = SP_ORIGINAL_FILE_INFO_A
#ENDIF


'  SP_INF_INFORMATION.InfStyle values

%INF_STYLE_NONE           = &H00000000       '  unrecognized or non-existent
%INF_STYLE_OLDNT          = &H00000001       '  winnt 3.x
%INF_STYLE_WIN4           = &H00000002       '  Win95


'  Additional InfStyle flags that may be specified when calling SetupOpenInfFile.

%INF_STYLE_CACHE_ENABLE   = &H00000010 '  always cache INF, even outside of %windir%\Inf
%INF_STYLE_CACHE_DISABLE  = &H00000020 '  delete cached INF information
#IF (%SETUPAPI_VER >= &H0502)
    %INF_STYLE_CACHE_IGNORE   = &H00000040 '  ignore any cached INF information
#ENDIF


'
'  Target directory specs.
'
%DIRID_ABSOLUTE          = -1             '  real 32-bit -1
%DIRID_ABSOLUTE_16BIT    = &Hffff         '  16-bit -1 for compat w/setupx
%DIRID_NULL              = 0
%DIRID_SRCPATH           = 1
%DIRID_WINDOWS           = 10
%DIRID_SYSTEM            = 11              '  system32
%DIRID_DRIVERS           = 12
%DIRID_IOSUBSYS          = %DIRID_DRIVERS
%DIRID_INF               = 17
%DIRID_HELP              = 18
%DIRID_FONTS             = 20
%DIRID_VIEWERS           = 21
%DIRID_COLOR             = 23
%DIRID_APPS              = 24
%DIRID_SHARED            = 25
%DIRID_BOOT              = 30

%DIRID_SYSTEM16          = 50
%DIRID_SPOOL             = 51
%DIRID_SPOOLDRIVERS      = 52
%DIRID_USERPROFILE       = 53
%DIRID_LOADER            = 54
%DIRID_PRINTPROCESSOR    = 55

%DIRID_DEFAULT           = %DIRID_SYSTEM

'
'  The following DIRIDs are for commonly-used shell "special folders".  The
'  complete list of such folders is contained in shlobj.h.  In that headerfile,
'  each folder is assigned a CSIDL_* value.  The DIRID values below are created
'  by taking the CSIDL value in shlobj.h and OR'ing it with &H4000.  Thus, if
'  an INF needs to reference other special folders not defined below, it may
'  generate one using the above mechanism, and setupapi will automatically deal
'  with it and use the corresponding shell's path where appropriate.  (Remember
'  that DIRIDs must be specified in decimal, not hex, in an INF when used for
'  string substitution.)
'

%DIRID_COMMON_STARTMENU        = 16406  '  All Users\Start Menu
%DIRID_COMMON_PROGRAMS         = 16407  '  All Users\Start Menu\Programs
%DIRID_COMMON_STARTUP          = 16408  '  All Users\Start Menu\Programs\Startup
%DIRID_COMMON_DESKTOPDIRECTORY = 16409  '  All Users\Desktop
%DIRID_COMMON_FAVORITES        = 16415  '  All Users\Favorites
%DIRID_COMMON_APPDATA          = 16419  '  All Users\Application Data

%DIRID_PROGRAM_FILES           = 16422  '  Program Files
%DIRID_SYSTEM_X86              = 16425  '  system32 on RISC
%DIRID_PROGRAM_FILES_X86       = 16426  '  Program Files on RISC
%DIRID_PROGRAM_FILES_COMMON    = 16427  '  Program Files\Common
%DIRID_PROGRAM_FILES_COMMONX86  =16428  '  x86 Program Files\Common on RISC

%DIRID_COMMON_TEMPLATES        = 16429  '  All Users\Templates
%DIRID_COMMON_DOCUMENTS        = 16430  '  All Users\Documents



'  First user-definable dirid. See SetupSetDirectoryId().

%DIRID_USER              = &H8000



'  Setup callback notification routine type

DECLARE FUNCTION PSP_FILE_CALLBACK(BYVAL dwContext AS DWORD, BYVAL dwNotification AS DWORD, BYVAL dwParam1 AS DWORD, BYVAL dwParam2 AS DWORD) AS DWORD


'  Operation/queue start/end notification. These are ordinal values.

%SPFILENOTIFY_STARTQUEUE         = &H00000001
%SPFILENOTIFY_ENDQUEUE           = &H00000002
%SPFILENOTIFY_STARTSUBQUEUE      = &H00000003
%SPFILENOTIFY_ENDSUBQUEUE        = &H00000004
%SPFILENOTIFY_STARTDELETE        = &H00000005
%SPFILENOTIFY_ENDDELETE          = &H00000006
%SPFILENOTIFY_DELETEERROR        = &H00000007
%SPFILENOTIFY_STARTRENAME        = &H00000008
%SPFILENOTIFY_ENDRENAME          = &H00000009
%SPFILENOTIFY_RENAMEERROR        = &H0000000a
%SPFILENOTIFY_STARTCOPY          = &H0000000b
%SPFILENOTIFY_ENDCOPY            = &H0000000c
%SPFILENOTIFY_COPYERROR          = &H0000000d
%SPFILENOTIFY_NEEDMEDIA          = &H0000000e
%SPFILENOTIFY_QUEUESCAN          = &H0000000f

'  These are used with SetupIterateCabinet().

%SPFILENOTIFY_CABINETINFO        = &H00000010
%SPFILENOTIFY_FILEINCABINET      = &H00000011
%SPFILENOTIFY_NEEDNEWCABINET     = &H00000012
%SPFILENOTIFY_FILEEXTRACTED      = &H00000013
%SPFILENOTIFY_FILEOPDELAYED      = &H00000014

'  These are used for backup operations

%SPFILENOTIFY_STARTBACKUP        = &H00000015
%SPFILENOTIFY_BACKUPERROR        = &H00000016
%SPFILENOTIFY_ENDBACKUP          = &H00000017

'  Extended notification for SetupScanFileQueue(Flags=SPQ_SCAN_USE_CALLBACKEX)

%SPFILENOTIFY_QUEUESCAN_EX       = &H00000018

%SPFILENOTIFY_STARTREGISTRATION  = &H00000019
%SPFILENOTIFY_ENDREGISTRATION    = &H00000020

#IF (%SETUPAPI_VER >= &H0501)

'  Extended notification for SetupScanFileQueue(Flags=SPQ_SCAN_USE_CALLBACK_SIGNERINFO)
%SPFILENOTIFY_QUEUESCAN_SIGNERINFO = &H00000040

#ENDIF


'  Copy notification. These are bit flags that may be combined.

%SPFILENOTIFY_LANGMISMATCH       = &H00010000
%SPFILENOTIFY_TARGETEXISTS       = &H00020000
%SPFILENOTIFY_TARGETNEWER        = &H00040000


'  File operation codes and callback outcomes.

%FILEOP_COPY                     = 0
%FILEOP_RENAME                   = 1
%FILEOP_DELETE                   = 2
%FILEOP_BACKUP                   = 3

%FILEOP_ABORT                    = 0
%FILEOP_DOIT                     = 1
%FILEOP_SKIP                     = 2
%FILEOP_RETRY                    = %FILEOP_DOIT
%FILEOP_NEWPATH                  = 4


'  Flags in inf copy sections

%COPYFLG_WARN_IF_SKIP            = &H00000001  '  warn if user tries to skip file
%COPYFLG_NOSKIP                  = &H00000002  '  disallow skipping this file
%COPYFLG_NOVERSIONCHECK          = &H00000004  '  ignore versions and overwrite target
%COPYFLG_FORCE_FILE_IN_USE       = &H00000008  '  force file-in-use behavior
%COPYFLG_NO_OVERWRITE            = &H00000010  '  do not copy if file exists on target
%COPYFLG_NO_VERSION_DIALOG       = &H00000020  '  do not copy if target is newer
%COPYFLG_OVERWRITE_OLDER_ONLY    = &H00000040  '  leave target alone if version same as source
%COPYFLG_REPLACEONLY             = &H00000400  '  copy only if file exists on target
%COPYFLG_NODECOMP                = &H00000800  '  don't attempt to decompress file; copy as-is
%COPYFLG_REPLACE_BOOT_FILE       = &H00001000  '  file must be present upon reboot (i.e., it's
                                               '  needed by the loader); this flag implies a reboot
%COPYFLG_NOPRUNE                 = &H00002000  '  never prune this file


'  Flags in inf delete sections
'  New flags go in high word

%DELFLG_IN_USE                   = &H00000001  '  queue in-use file for delete
%DELFLG_IN_USE1                  = &H00010000  '  high-word version of DELFLG_IN_USE


'  Source and file paths. Used when notifying queue callback
'  of SPFILENOTIFY_STARTxxx, SPFILENOTIFY_ENDxxx, and SPFILENOTIFY_xxxERROR.

TYPE FILEPATHS
     Target AS DWORD                       '  ANSI or UNICODE Strings
     Source AS DWORD                       '  not used for delete operations
     Win32Error AS DWORD
     Flags AS DWORD                        '  such as SP_COPY_NOSKIP for copy errors
END TYPE


#IF %SETUPAPI_VER >= &H0501

TYPE FILEPATHS_SIGNERINFO
     Target AS DWORD                       '  ANSI or UNICODE Strings
     Source AS DWORD                       '  not used for delete operations
     Win32Error AS DWORD
     Flags AS DWORD                        '  such as SP_COPY_NOSKIP for copy errors
     DigitalSigner AS DWORD
     Version AS DWORD
     CatalogFile AS DWORD
END TYPE

#ENDIF '  %SETUPAPI_VER >= &H0501

'
'  Structure used with SPFILENOTIFY_NEEDMEDIA
'
TYPE SOURCE_MEDIA
     Reserved AS DWORD                     '  ANSI or UNICODE Strings
     Tagfile AS DWORD                      '  may be NULL
     Description AS DWORD

    '  Pathname part and filename part of source file
    '  that caused us to need the media.

     SourcePath AS DWORD                   '  ANSI or UNICODE Strings
     SourceFile AS DWORD                   '  ANSI or UNICODE Strings
     Flags AS DWORD                        '  subset of SP_COPY_xxx
END TYPE

'  Structure used with SPFILENOTIFY_CABINETINFO and
'  SPFILENOTIFY_NEEDNEWCABINET

TYPE CABINET_INFO
     CabinetPath AS DWORD                  '  ANSI or UNICODE Strings
     CabinetFile AS DWORD                  '  ANSI or UNICODE Strings
     DiskName AS DWORD
     SetId AS WORD
     CabinetNumber AS WORD
END TYPE

'
'  Structure used with SPFILENOTIFY_FILEINCABINET
'
TYPE FILE_IN_CABINET_INFO
     NameInCabinet AS DWORD                '  ANSI or UNICODE Strings
     FileSize AS DWORD
     Win32Error AS DWORD
     DosDate AS WORD
     DosTime AS WORD
     DosAttribs AS WORD
     FullTargetName AS ASCIIZ * %MAX_PATH
END TYPE


'  Structure used for SPFILENOTIFY_REGISTRATION
'  callback

TYPE SP_REGISTER_CONTROL_STATUS
     cbSize AS DWORD
     FileName AS DWORD                     '  ANSI or UNICODE Strings
     Win32Error AS DWORD
     FailureCode AS DWORD
END TYPE


'  valid values for SP_REGISTER_CONTROL_STATUS.FailureCode field


%SPREG_SUCCESS      = &H00000000
%SPREG_LOADLIBRARY  = &H00000001
%SPREG_GETPROCADDR  = &H00000002
%SPREG_REGSVR       = &H00000003
%SPREG_DLLINSTALL   = &H00000004
%SPREG_TIMEOUT      = &H00000005
%SPREG_UNKNOWN      = &HFFFFFFFF


'  Define type for setup file queue

MACRO HSPFILEQ = DWORD


'  Structure used with SetupQueueCopyIndirect

TYPE SP_FILE_COPY_PARAMS_A
     cbSize AS DWORD
     QueueHandle AS HSPFILEQ
     SourceRootPath AS DWORD               '  ANSI Strings
     SourcePath AS DWORD                   '  ANSI Strings
     SourceFilename AS DWORD               '  ANSI Strings
     SourceDescription AS DWORD            '  ANSI Strings
     SourceTagfile AS DWORD                '  ANSI Strings
     TargetDirectory AS DWORD              '  ANSI Strings
     TargetFilename AS DWORD               '  ANSI Strings
     CopyStyle AS DWORD
     LayoutInf AS HINF
     SecurityDescriptor AS DWORD           '  ANSI Strings
END TYPE

TYPE SP_FILE_COPY_PARAMS_W
     cbSize AS DWORD
     QueueHandle AS HSPFILEQ
     SourceRootPath AS DWORD               '  UNICODE Strings
     SourcePath AS DWORD                   '  UNICODE Strings
     SourceFilename AS DWORD               '  UNICODE Strings
     SourceDescription AS DWORD            '  UNICODE Strings
     SourceTagfile AS DWORD                '  UNICODE Strings
     TargetDirectory AS DWORD              '  UNICODE Strings
     TargetFilename AS DWORD               '  UNICODE Strings
     CopyStyle AS DWORD
     LayoutInf AS HINF
     SecurityDescriptor AS DWORD           '  UNICODE Strings
END TYPE


'  Define type for setup disk space list

MACRO HDSKSPC = DWORD



'  Define type for reference to device information set

MACRO HDEVINFO = DWORD


TYPE SP_DEVINFO_DATA
     cbSize AS DWORD
     ClassGuid AS GUID
     DevInst AS DWORD                      '  DEVINST handle
     Reserved AS DWORD
END TYPE


'  Device interface information structure (references a device
'  interface that is associated with the device information
'  element that owns it).

TYPE SP_DEVICE_INTERFACE_DATA
     cbSize AS DWORD
     InterfaceClassGuid AS GUID
     Flags AS DWORD
     Reserved AS DWORD
END TYPE


'  Flags for SP_DEVICE_INTERFACE_DATA.Flags field.

%SPINT_ACTIVE  = &H00000001
%SPINT_DEFAULT  =&H00000002
%SPINT_REMOVED  =&H00000004


'  Backward compatibility--do not use.

MACRO SP_INTERFACE_DEVICE_DATA = SP_DEVICE_INTERFACE_DATA

%SPID_ACTIVE              = %SPINT_ACTIVE
%SPID_DEFAULT             = %SPINT_DEFAULT
%SPID_REMOVED             = %SPINT_REMOVED

TYPE SP_DEVICE_INTERFACE_DETAIL_DATA
     cbSize AS DWORD
     DevicePath AS BYTE PTR       ' Byte array. ANSI or UNICODE strings.
END TYPE

MACRO SP_DEVICE_INTERFACE_DETAIL_DATA_A = SP_DEVICE_INTERFACE_DETAIL_DATA
MACRO SP_DEVICE_INTERFACE_DETAIL_DATA_W = SP_DEVICE_INTERFACE_DETAIL_DATA


'  Structure for detailed information on a device information set (used for
'  SetupDiGetDeviceInfoListDetail which supercedes the functionality of
'  SetupDiGetDeviceInfoListClass).

TYPE SP_DEVINFO_LIST_DETAIL_DATA_A
     cbSize AS DWORD
     ClassGuid AS GUID
     RemoteMachineHandle AS DWORD
     RemoteMachineName AS ASCIIZ * %SP_MAX_MACHINENAME_LENGTH
END TYPE

TYPE SP_DEVINFO_LIST_DETAIL_DATA_W
     cbSize AS DWORD
     ClassGuid AS GUID
     RemoteMachineHandle AS DWORD
     RemoteMachineName AS STRING * (%SP_MAX_MACHINENAME_LENGTH*2)  ' Must use fixed string for this UNICODE.
END TYPE

#IF %DEF(%UNICODE)
    MACRO SP_DEVINFO_LIST_DETAIL_DATA = SP_DEVINFO_LIST_DETAIL_DATA_W
#ELSE
    MACRO SP_DEVINFO_LIST_DETAIL_DATA = SP_DEVINFO_LIST_DETAIL_DATA_A
#ENDIF


'  Class installer function codes

%DIF_SELECTDEVICE                   = &H00000001
%DIF_INSTALLDEVICE                  = &H00000002
%DIF_ASSIGNRESOURCES                = &H00000003
%DIF_PROPERTIES                     = &H00000004
%DIF_REMOVE                         = &H00000005
%DIF_FIRSTTIMESETUP                 = &H00000006
%DIF_FOUNDDEVICE                    = &H00000007
%DIF_SELECTCLASSDRIVERS             = &H00000008
%DIF_VALIDATECLASSDRIVERS           = &H00000009
%DIF_INSTALLCLASSDRIVERS            = &H0000000A
%DIF_CALCDISKSPACE                  = &H0000000B
%DIF_DESTROYPRIVATEDATA             = &H0000000C
%DIF_VALIDATEDRIVER                 = &H0000000D
%DIF_DETECT                         = &H0000000F
%DIF_INSTALLWIZARD                  = &H00000010
%DIF_DESTROYWIZARDDATA              = &H00000011
%DIF_PROPERTYCHANGE                 = &H00000012
%DIF_ENABLECLASS                    = &H00000013
%DIF_DETECTVERIFY                   = &H00000014
%DIF_INSTALLDEVICEFILES             = &H00000015
%DIF_UNREMOVE                       = &H00000016
%DIF_SELECTBESTCOMPATDRV            = &H00000017
%DIF_ALLOW_INSTALL                  = &H00000018
%DIF_REGISTERDEVICE                 = &H00000019
%DIF_NEWDEVICEWIZARD_PRESELECT      = &H0000001A
%DIF_NEWDEVICEWIZARD_SELECT         = &H0000001B
%DIF_NEWDEVICEWIZARD_PREANALYZE     = &H0000001C
%DIF_NEWDEVICEWIZARD_POSTANALYZE    = &H0000001D
%DIF_NEWDEVICEWIZARD_FINISHINSTALL  = &H0000001E
%DIF_UNUSED1                        = &H0000001F
%DIF_INSTALLINTERFACES              = &H00000020
%DIF_DETECTCANCEL                   = &H00000021
%DIF_REGISTER_COINSTALLERS          = &H00000022
%DIF_ADDPROPERTYPAGE_ADVANCED       = &H00000023
%DIF_ADDPROPERTYPAGE_BASIC          = &H00000024
%DIF_RESERVED1                      = &H00000025
%DIF_TROUBLESHOOTER                 = &H00000026
%DIF_POWERMESSAGEWAKE               = &H00000027
%DIF_ADDREMOTEPROPERTYPAGE_ADVANCED = &H00000028
%DIF_UPDATEDRIVER_UI                = &H00000029
%DIF_RESERVED2                      = &H00000030

'
'  Obsoleted DIF codes (do not use)
'
%DIF_MOVEDEVICE                     = &H0000000E


MACRO DI_FUNCTION = DWORD   '  Function type for device installer


'  Device installation parameters structure (associated with a
'  particular device information element, or globally with a device
'  information set)

TYPE SP_DEVINSTALL_PARAMS_A
     cbSize AS DWORD
     Flags AS DWORD
     FlagsEx AS DWORD
     hwndParent AS LONG
     InstallMsgHandler AS DWORD        ' Code pointer to a PSP_FILE_CALLBACK function.
     InstallMsgHandlerContext AS LONG
     FileQueue AS HSPFILEQ
     ClassInstallReserved AS DWORD
     Reserved AS DWORD
     DriverPath AS ASCIIZ * %MAX_PATH
END TYPE

TYPE SP_DEVINSTALL_PARAMS_W
     cbSize AS DWORD
     Flags AS DWORD
     FlagsEx AS DWORD
     hwndParent AS LONG
     InstallMsgHandler AS DWORD        ' Code pointer to a PSP_FILE_CALLBACK function.
     InstallMsgHandlerContext AS LONG
     FileQueue AS HSPFILEQ
     ClassInstallReserved AS DWORD
     Reserved AS DWORD
     DriverPath AS STRING * %MAX_PATH * 2
END TYPE


#IF %DEF(%UNICODE)
    MACRO SP_DEVINSTALL_PARAMS = SP_DEVINSTALL_PARAMS_W
#ELSE
    MACRO SP_DEVINSTALL_PARAMS = SP_DEVINSTALL_PARAMS_A
#ENDIF


'
'  SP_DEVINSTALL_PARAMS.Flags values
'
'  Flags for choosing a device
'
%DI_SHOWOEM                  = &H00000001&     '  support Other... button
%DI_SHOWCOMPAT               = &H00000002&     '  show compatibility list
%DI_SHOWCLASS                = &H00000004&     '  show class list
%DI_SHOWALL                  = &H00000007&     '  both class & compat list shown
%DI_NOVCP                    = &H00000008&     '  don't create a new copy queue--use
                                                    '  caller-supplied FileQueue
%DI_DIDCOMPAT                = &H00000010&     '  Searched for compatible devices
%DI_DIDCLASS                 = &H00000020&     '  Searched for class devices
%DI_AUTOASSIGNRES            = &H00000040&     '  No UI for resources if possible

'  flags returned by DiInstallDevice to indicate need to reboot/restart
%DI_NEEDRESTART              = &H00000080&     '  Reboot required to take effect
%DI_NEEDREBOOT               = &H00000100&     '  ""

'  flags for device installation
%DI_NOBROWSE                 = &H00000200&     '  no Browse... in InsertDisk

'  Flags set by DiBuildDriverInfoList
%DI_MULTMFGS                 = &H00000400&     '  Set if multiple manufacturers in
                                                    '  class driver list

'  Flag indicates that device is disabled
%DI_DISABLED                 = &H00000800&     '  Set if device disabled

'  Flags for Device/Class Properties
%DI_GENERALPAGE_ADDED        = &H00001000&
%DI_RESOURCEPAGE_ADDED       = &H00002000&

'  Flag to indicate the setting properties for this Device (or class) caused a change
'  so the Dev Mgr UI probably needs to be updatd.
%DI_PROPERTIES_CHANGE        = &H00004000&

'  Flag to indicate that the sorting from the INF file should be used.
%DI_INF_IS_SORTED            = &H00008000&

'  Flag to indicate that only the the INF specified by SP_DEVINSTALL_PARAMS.DriverPath
'  should be searched.
%DI_ENUMSINGLEINF            = &H00010000&

'  Flag that prevents ConfigMgr from removing/re-enumerating devices during device
'  registration, installation, and deletion.
%DI_DONOTCALLCONFIGMG        = &H00020000&

'  The following flag can be used to install a device disabled
%DI_INSTALLDISABLED          = &H00040000&

'  Flag that causes SetupDiBuildDriverInfoList to build a device's compatible driver
'  list from its existing class driver list, instead of the normal INF search.
%DI_COMPAT_FROM_CLASS        = &H00080000&

'  This flag is set if the Class Install params should be used.
%DI_CLASSINSTALLPARAMS       = &H00100000&

'  This flag is set if the caller of DiCallClassInstaller does NOT
'  want the internal default action performed if the Class installer
'  returns ERROR_DI_DO_DEFAULT.
%DI_NODI_DEFAULTACTION       = &H00200000&

'  The setupx flag, DI_NOSYNCPROCESSING (&H00400000&) is not support in the Setup APIs.

'  flags for device installation
%DI_QUIETINSTALL             = &H00800000&     '  don't confuse the user with
'  questions or excess info
%DI_NOFILECOPY               = &H01000000&     '  No file Copy necessary
%DI_FORCECOPY                = &H02000000&     '  Force files to be copied from install path
%DI_DRIVERPAGE_ADDED         = &H04000000&     '  Prop provider added Driver page.
%DI_USECI_SELECTSTRINGS      = &H08000000&     '  Use Class Installer Provided strings in the Select Device Dlg
%DI_OVERRIDE_INFFLAGS        = &H10000000&     '  Override INF flags
%DI_PROPS_NOCHANGEUSAGE      = &H20000000&     '  No Enable/Disable in General Props

%DI_NOSELECTICONS            = &H40000000&     '  No small icons in select device dialogs

%DI_NOWRITE_IDS              = &H80000000&     '  Don't write HW And Compat IDs on install



'  SP_DEVINSTALL_PARAMS.FlagsEx values

%DI_FLAGSEX_USEOLDINFSEARCH          = &H00000001&  '  Inf Search functions should not use Index Search
%DI_FLAGSEX_RESERVED2                = &H00000002&  '  DI_FLAGSEX_AUTOSELECTRANK0 is obsolete
%DI_FLAGSEX_CI_FAILED                = &H00000004&  '  Failed to Load/Call class installer

%DI_FLAGSEX_DIDINFOLIST              = &H00000010&  '  Did the Class Info List
%DI_FLAGSEX_DIDCOMPATINFO            = &H00000020&  '  Did the Compat Info List

%DI_FLAGSEX_FILTERCLASSES            = &H00000040&
%DI_FLAGSEX_SETFAILEDINSTALL         = &H00000080&
%DI_FLAGSEX_DEVICECHANGE             = &H00000100&
%DI_FLAGSEX_ALWAYSWRITEIDS           = &H00000200&
%DI_FLAGSEX_PROPCHANGE_PENDING       = &H00000400&  '  One or more device property sheets have had changes made
'  to them, and need to have a DIF_PROPERTYCHANGE occur.
%DI_FLAGSEX_ALLOWEXCLUDEDDRVS        = &H00000800&
%DI_FLAGSEX_NOUIONQUERYREMOVE        = &H00001000&
%DI_FLAGSEX_USECLASSFORCOMPAT        = &H00002000&  '  Use the device's class when building compat drv list.
'  (Ignored if DI_COMPAT_FROM_CLASS flag is specified.)
%DI_FLAGSEX_RESERVED3                = &H00004000&
%DI_FLAGSEX_NO_DRVREG_MODIFY         = &H00008000&  '  Don't run AddReg and DelReg for device's software (driver) key.
%DI_FLAGSEX_IN_SYSTEM_SETUP          = &H00010000&  '  Installation is occurring during initial system setup.
%DI_FLAGSEX_INET_DRIVER              = &H00020000&  '  Driver came from Windows Update
%DI_FLAGSEX_APPENDDRIVERLIST         = &H00040000&  '  Cause SetupDiBuildDriverInfoList to append
'  a new driver list to an existing list.
%DI_FLAGSEX_PREINSTALLBACKUP         = &H00080000&  '  backup all files required by old inf before install
%DI_FLAGSEX_BACKUPONREPLACE          = &H00100000&  '  backup files required by old inf as they are replaced
%DI_FLAGSEX_DRIVERLIST_FROM_URL      = &H00200000&  '  build driver list from INF(s) retrieved from URL specified
'  in SP_DEVINSTALL_PARAMS.DriverPath (empty string means
'  Windows Update website)
%DI_FLAGSEX_RESERVED1                = &H00400000&
%DI_FLAGSEX_EXCLUDE_OLD_INET_DRIVERS  =&H00800000&  '  Don't include old Internet drivers when building
'  a driver list.
%DI_FLAGSEX_POWERPAGE_ADDED          = &H01000000&  '  class installer added their own power page


#IF %SETUPAPI_VER >= &H0501

%DI_FLAGSEX_FILTERSIMILARDRIVERS     = &H02000000&  '  only include similar drivers in class list
%DI_FLAGSEX_INSTALLEDDRIVER          = &H04000000&  '  only add the installed driver to the class or compat
'  driver list.  Used in calls to SetupDiBuildDriverInfoList
%DI_FLAGSEX_NO_CLASSLIST_NODE_MERGE  = &H08000000&  '  Don't remove identical driver nodes from the class list
%DI_FLAGSEX_ALTPLATFORM_DRVSEARCH    = &H10000000&  '  Build driver list based on alternate platform information
'  specified in associated file queue
%DI_FLAGSEX_RESTART_DEVICE_ONLY      = &H20000000&  '  only restart the device drivers are being installed on as
'  opposed to restarting all devices using those drivers.

#ENDIF '  %SETUPAPI_VER >= &H0501


'  Class installation parameters header.  This must be the first field of any
'  class install parameter structure.  The InstallFunction field must be set to
'  the function code corresponding to the structure, and the cbSize field must
'  be set to the size of the header structure.  E.g.,

'  SP_ENABLECLASS_PARAMS EnableClassParams

'  EnableClassParams.ClassInstallHeader.cbSize = sizeof(SP_CLASSINSTALL_HEADER)
'  EnableClassParams.ClassInstallHeader.InstallFunction = DIF_ENABLECLASS

TYPE SP_CLASSINSTALL_HEADER
     cbSize AS DWORD
     InstallFunction AS DI_FUNCTION
END TYPE



'  Structure corresponding to a DIF_ENABLECLASS install function.

TYPE SP_ENABLECLASS_PARAMS
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     ClassGuid AS GUID
     EnableMessage AS DWORD
END TYPE

%ENABLECLASS_QUERY   = 0
%ENABLECLASS_SUCCESS  =1
%ENABLECLASS_FAILURE  =2



'  Values indicating a change in a device's state

%DICS_ENABLE      = &H00000001
%DICS_DISABLE     = &H00000002
%DICS_PROPCHANGE  = &H00000003
%DICS_START       = &H00000004
%DICS_STOP        = &H00000005

'  Values specifying the scope of a device property change

%DICS_FLAG_GLOBAL         = &H00000001  '  make change in all hardware profiles
%DICS_FLAG_CONFIGSPECIFIC  =&H00000002  '  make change in specified profile only
%DICS_FLAG_CONFIGGENERAL  = &H00000004  '  1 or more hardware profile-specific
'  changes to follow.

'  Structure corresponding to a DIF_PROPERTYCHANGE install function.

TYPE SP_PROPCHANGE_PARAMS
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     StateChange AS DWORD
     Scope AS DWORD
     HwProfile AS DWORD
END TYPE



'  Structure corresponding to a DIF_REMOVE install function.

TYPE SP_REMOVEDEVICE_PARAMS
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     Scope AS DWORD
     HwProfile AS DWORD
END TYPE

%DI_REMOVEDEVICE_GLOBAL                  = &H00000001
%DI_REMOVEDEVICE_CONFIGSPECIFIC          = &H00000002



'  Structure corresponding to a DIF_UNREMOVE install function.

TYPE SP_UNREMOVEDEVICE_PARAMS
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     Scope AS DWORD
     HwProfile AS DWORD
END TYPE

%DI_UNREMOVEDEVICE_CONFIGSPECIFIC        = &H00000002



'  Structure corresponding to a DIF_SELECTDEVICE install function.

TYPE SP_SELECTDEVICE_PARAMS_A
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     Title AS ASCIIZ * %MAX_TITLE_LEN
     Instructions AS ASCIIZ * %MAX_INSTRUCTION_LEN
     ListLabel AS ASCIIZ * %MAX_LABEL_LEN
     SubTitle AS ASCIIZ * %MAX_SUBTITLE_LEN
     Reserved(2) AS BYTE                   '  DWORD size alignment
END TYPE

TYPE SP_SELECTDEVICE_PARAMS_W
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     Title AS STRING * %MAX_TITLE_LEN * 2
     Instructions AS STRING * %MAX_INSTRUCTION_LEN * 2
     ListLabel AS STRING * %MAX_LABEL_LEN * 2
     SubTitle AS STRING * %MAX_SUBTITLE_LEN * 2
END TYPE


#IF %DEF(%UNICODE)
    MACRO SP_SELECTDEVICE_PARAMS = SP_SELECTDEVICE_PARAMS_W
#ELSE
    MACRO SP_SELECTDEVICE_PARAMS = SP_SELECTDEVICE_PARAMS_A
#ENDIF


'
'  Callback routine for giving progress notification during detection
'
DECLARE FUNCTION DETECT_PROGRESS_NOTIFY(BYVAL ProgressNotifyParam AS DWORD, BYVAL DetectComplete AS DWORD) AS LONG

'  where:
'      ProgressNotifyParam - value supplied by caller requesting detection.
'      DetectComplete - Percent completion, to be incremented by class
'                       installer, as it steps thru its detection.
'
'  Return Value - If TRUE, then detection is cancelled.  Allows caller
'                 requesting detection to stop detection asap.
'


'  Structure corresponding to a DIF_DETECT install function.

TYPE SP_DETECTDEVICE_PARAMS
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     DetectProgressNotify AS DWORD ' Code pointer to DETECT_PROGRESS_NOTIFY function
     ProgressNotifyParam AS LONG
END TYPE



'  'Add New Device' installation wizard structure (backward-compatibility
'  only--respond to DIF_NEWDEVICEWIZARD_* requests instead).

'  Structure corresponding to a DIF_INSTALLWIZARD install function.
'  (NOTE: This structure is also applicable for DIF_DESTROYWIZARDDATA,
'  but DIF_INSTALLWIZARD is the associated function code in the class
'  installation parameter structure in both cases.)

'  Define maximum number of dynamic wizard pages that can be added to
'  hardware install wizard.

%MAX_INSTALLWIZARD_DYNAPAGES             = 20

TYPE SP_INSTALLWIZARD_DATA
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     Flags AS DWORD
     DynamicPages(%MAX_INSTALLWIZARD_DYNAPAGES) AS DWORD
     NumDynamicPages AS DWORD
     DynamicPageFlags AS DWORD
     PrivateFlags AS DWORD
     PrivateData AS LONG
     hwndWizardDlg AS LONG
END TYPE


'  SP_INSTALLWIZARD_DATA.Flags values

%NDW_INSTALLFLAG_DIDFACTDEFS         = &H00000001
%NDW_INSTALLFLAG_HARDWAREALLREADYIN  = &H00000002
%NDW_INSTALLFLAG_NEEDRESTART         = %DI_NEEDRESTART
%NDW_INSTALLFLAG_NEEDREBOOT          = %DI_NEEDREBOOT
%NDW_INSTALLFLAG_NEEDSHUTDOWN        = &H00000200
%NDW_INSTALLFLAG_EXPRESSINTRO        = &H00000400
%NDW_INSTALLFLAG_SKIPISDEVINSTALLED  = &H00000800
%NDW_INSTALLFLAG_NODETECTEDDEVS      = &H00001000
%NDW_INSTALLFLAG_INSTALLSPECIFIC     = &H00002000
%NDW_INSTALLFLAG_SKIPCLASSLIST       = &H00004000
%NDW_INSTALLFLAG_CI_PICKED_OEM       = &H00008000
%NDW_INSTALLFLAG_PCMCIAMODE          = &H00010000
%NDW_INSTALLFLAG_PCMCIADEVICE        = &H00020000
%NDW_INSTALLFLAG_USERCANCEL          = &H00040000
%NDW_INSTALLFLAG_KNOWNCLASS          = &H00080000



'  SP_INSTALLWIZARD_DATA.DynamicPageFlags values

'  This flag is set if a Class installer has added pages to the install wizard.

%DYNAWIZ_FLAG_PAGESADDED             = &H00000001


'  Set this flag if you jump to the analyze page, and want it to
'  handle conflicts for you.  NOTE.  You will not get control back
'  in the event of a conflict if you set this flag.

%DYNAWIZ_FLAG_ANALYZE_HANDLECONFLICT  =&H00000008


'  The following flags are not used by the Windows NT hardware wizard.

%DYNAWIZ_FLAG_INSTALLDET_NEXT        = &H00000002
%DYNAWIZ_FLAG_INSTALLDET_PREV        = &H00000004



'  Reserve a range of wizard page resource IDs for internal use.  Some of
'  these IDs are for use by class installers that respond to the obsolete
'  DIF_INSTALLWIZARD/DIF_DESTROYWIZARDDATA messages.  These IDs are listed
'  below.

%MIN_IDD_DYNAWIZ_RESOURCE_ID             = 10000
%MAX_IDD_DYNAWIZ_RESOURCE_ID             = 11000


'  Define wizard page resource IDs to be used when adding custom pages to the
'  hardware install wizard via DIF_INSTALLWIZARD.  Pages marked with
'  (CLASS INSTALLER PROVIDED) _must_ be supplied by the class installer if it
'  responds to the DIF_INSTALLWIZARD request.



'  Resource ID for the first page that the install wizard will go to after
'  adding the class installer pages.  (CLASS INSTALLER PROVIDED)

%IDD_DYNAWIZ_FIRSTPAGE                   = 10000


'  Resource ID for the page that the Select Device page will go back to.
'  (CLASS INSTALLER PROVIDED)

%IDD_DYNAWIZ_SELECT_PREVPAGE             = 10001


'  Resource ID for the page that the Select Device page will go forward to.
'  (CLASS INSTALLER PROVIDED)

%IDD_DYNAWIZ_SELECT_NEXTPAGE             = 10002


'  Resource ID for the page that the Analyze dialog should go back to
'  This will only be used in the event that there is a problem, and the user
'  selects Back from the analyze proc. (CLASS INSTALLER PROVIDED)

%IDD_DYNAWIZ_ANALYZE_PREVPAGE            = 10003


'  Resource ID for the page that the Analyze dialog should go to if it
'  continues from the analyze proc. (CLASS INSTALLER PROVIDED)

%IDD_DYNAWIZ_ANALYZE_NEXTPAGE            = 10004


'  Resource ID of the hardware install wizard's select device page.
'  This ID can be used to go directly to the hardware install wizard's select
'  device page.  (This is the resource ID of the Select Device wizard page
'  retrieved via SetupDiGetWizardPage when SPWPT_SELECTDEVICE is the requested
'  PageType.)

%IDD_DYNAWIZ_SELECTDEV_PAGE              = 10009


'  Resource ID of the hardware install wizard's device analysis page.
'  This ID can be use to go directly to the hardware install wizard's analysis
'  page.

%IDD_DYNAWIZ_ANALYZEDEV_PAGE             = 10010


'  Resource ID of the hardware install wizard's install detected devices page.
'  This ID can be use to go directly to the hardware install wizard's install
'  detected devices page.

%IDD_DYNAWIZ_INSTALLDETECTEDDEVS_PAGE    = 10011


'  Resource ID of the hardware install wizard's select class page.
'  This ID can be use to go directly to the hardware install wizard's select
'  class page.

%IDD_DYNAWIZ_SELECTCLASS_PAGE            = 10012


'  The following class installer-provided wizard page resource IDs are not used
'  by the Windows NT hardware wizard.

%IDD_DYNAWIZ_INSTALLDETECTED_PREVPAGE    = 10006
%IDD_DYNAWIZ_INSTALLDETECTED_NEXTPAGE    = 10007
%IDD_DYNAWIZ_INSTALLDETECTED_NODEVS      = 10008



'  Structure corresponding to the following DIF_NEWDEVICEWIZARD_* install
'  functions:

'      DIF_NEWDEVICEWIZARD_PRESELECT
'      DIF_NEWDEVICEWIZARD_SELECT
'      DIF_NEWDEVICEWIZARD_PREANALYZE
'      DIF_NEWDEVICEWIZARD_POSTANALYZE
'      DIF_NEWDEVICEWIZARD_FINISHINSTALL

TYPE SP_NEWDEVICEWIZARD_DATA
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     Flags AS DWORD                        '  presently unused--must be zero.
     DynamicPages(%MAX_INSTALLWIZARD_DYNAPAGES) AS DWORD
     NumDynamicPages AS DWORD
     hwndWizardDlg AS LONG
END TYPE


'  The same structure is also used for retrieval of property pages via the
'  following install functions:

'      DIF_ADDPROPERTYPAGE_ADVANCED
'      DIF_ADDPROPERTYPAGE_BASIC
'      DIF_ADDREMOTEPROPERTYPAGE_ADVANCED

MACRO SP_ADDPROPERTYPAGE_DATA = SP_NEWDEVICEWIZARD_DATA


'
'  Structure corresponding to the DIF_TROUBLESHOOTER install function
'
TYPE SP_TROUBLESHOOTER_PARAMS_A
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     ChmFile AS ASCIIZ * %MAX_PATH
     HtmlTroubleShooter AS ASCIIZ * %MAX_PATH
END TYPE

TYPE SP_TROUBLESHOOTER_PARAMS_W
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     ChmFile AS STRING * %MAX_PATH * 2
     HtmlTroubleShooter AS STRING * %MAX_PATH
END TYPE

#IF %DEF(%UNICODE)
    MACRO SP_TROUBLESHOOTER_PARAMS = SP_TROUBLESHOOTER_PARAMS_W
#ELSE
    MACRO SP_TROUBLESHOOTER_PARAMS = SP_TROUBLESHOOTER_PARAMS_A
#ENDIF


'
'  Structure corresponding to the DIF_POWERMESSAGEWAKE install function
'
TYPE SP_POWERMESSAGEWAKE_PARAMS_A
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     PowerMessageWake AS ASCIIZ * %LINE_LEN * 2
END TYPE

TYPE SP_POWERMESSAGEWAKE_PARAMS_W
     ClassInstallHeader AS SP_CLASSINSTALL_HEADER
     PowerMessageWake AS STRING * %LINE_LEN * 4
END TYPE

#IF %DEF(%UNICODE)
    MACRO SP_POWERMESSAGEWAKE_PARAMS = SP_POWERMESSAGEWAKE_PARAMS_W
#ELSE
    MACRO SP_POWERMESSAGEWAKE_PARAMS = SP_POWERMESSAGEWAKE_PARAMS_A
#ENDIF

'
'  Driver information structure (member of a driver info list that may be associated
'  with a particular device instance, or (globally) with a device information set)
'
TYPE SP_DRVINFO_DATA_V2_A
     cbSize AS DWORD
     DriverType AS DWORD
     Reserved AS DWORD
     Description AS ASCIIZ * %LINE_LEN
     MfgName AS ASCIIZ * %LINE_LEN
     ProviderName AS ASCIIZ * %LINE_LEN
     DriverDate AS FILETIME
     DriverVersion AS DWORD
END TYPE

TYPE SP_DRVINFO_DATA_V2_W
     cbSize AS DWORD
     DriverType AS DWORD
     Reserved AS DWORD
     Description AS STRING * %LINE_LEN * 2
     MfgName AS STRING * %LINE_LEN * 2
     ProviderName AS STRING * %LINE_LEN * 2
     DriverDate AS FILETIME
     DriverVersion AS DWORD
END TYPE

#IF %DEF(%UNICODE)
    MACRO SP_DRVINFO_DATA_V2 = SP_DRVINFO_DATA_V2_W
#ELSE
    MACRO SP_DRVINFO_DATA_V2 = SP_DRVINFO_DATA_V2_A
#ENDIF


'  Version 1 of the SP_DRVINFO_DATA structures, used only for compatibility
'  with Windows NT 4.0/Windows 95/98 SETUPAPI.DLL

TYPE SP_DRVINFO_DATA_V1_A
     cbSize AS DWORD
     DriverType AS DWORD
     Reserved AS DWORD
     Description AS ASCIIZ * %LINE_LEN
     MfgName AS ASCIIZ * %LINE_LEN
     ProviderName AS ASCIIZ * %LINE_LEN
END TYPE

TYPE SP_DRVINFO_DATA_V1_W
     cbSize AS DWORD
     DriverType AS DWORD
     Reserved AS DWORD
     Description AS STRING * %LINE_LEN * 2
     MfgName AS STRING * %LINE_LEN * 2
     ProviderName AS STRING * %LINE_LEN * 2
END TYPE

#IF %DEF(%UNICODE)
    MACRO SP_DRVINFO_DATA_V1 = SP_DRVINFO_DATA_V1_W
#ELSE
    MACRO SP_DRVINFO_DATA_V1 = SP_DRVINFO_DATA_V1_A
#ENDIF


#IF (%SETUPAPI_VER < &H0500)  ' use version 1 driver info data structure

    MACRO SP_DRVINFO_DATA   = SP_DRVINFO_DATA_V1
    MACRO SP_DRVINFO_DATA_A = SP_DRVINFO_DATA_V1
    MACRO SP_DRVINFO_DATA_W = SP_DRVINFO_DATA_V1

#ELSE                       ' use version 2 driver info data structure

    MACRO SP_DRVINFO_DATA   = SP_DRVINFO_DATA_V2
    MACRO SP_DRVINFO_DATA_A = SP_DRVINFO_DATA_V2
    MACRO SP_DRVINFO_DATA_W = SP_DRVINFO_DATA_V2

#ENDIF  ' use current version of driver info data structure



'  Driver information details structure (provides detailed information about a
'  particular driver information structure)

TYPE SP_DRVINFO_DETAIL_DATA_A
     cbSize AS DWORD
     InfDate AS FILETIME
     CompatIDsOffset AS DWORD
     CompatIDsLength AS DWORD
     Reserved AS DWORD
     SectionName AS ASCIIZ * %LINE_LEN
     InfFileName AS ASCIIZ * %MAX_PATH
     DrvDescription AS ASCIIZ * %LINE_LEN
     HardwareID AS ASCIIZ * %ANYSIZE_ARRAY
END TYPE

TYPE SP_DRVINFO_DETAIL_DATA_W
     cbSize AS DWORD
     InfDate AS FILETIME
     CompatIDsOffset AS DWORD
     CompatIDsLength AS DWORD
     Reserved AS DWORD
     SectionName AS STRING * %LINE_LEN * 2
     InfFileName AS STRING * %MAX_PATH * 2
     DrvDescription AS STRING * %LINE_LEN * 2
     HardwareID AS STRING * %ANYSIZE_ARRAY * 2
END TYPE

#IF %DEF(%UNICODE)
    MACRO SP_DRVINFO_DETAIL_DATA = SP_DRVINFO_DETAIL_DATA_W
#ELSE
    MACRO SP_DRVINFO_DETAIL_DATA = SP_DRVINFO_DETAIL_DATA_A
#ENDIF



' Driver installation parameters (associated with a particular driver
' information element)

TYPE SP_DRVINSTALL_PARAMS
     cbSize AS DWORD
     Rank AS DWORD
     Flags AS DWORD
     PrivateData AS DWORD
     Reserved AS DWORD
END TYPE


'  SP_DRVINSTALL_PARAMS.Flags values

%DNF_DUPDESC             = &H00000001  '  Multiple providers have same desc
%DNF_OLDDRIVER           = &H00000002  '  Driver node specifies old/current driver
%DNF_EXCLUDEFROMLIST     = &H00000004  '  If set, this driver node will not be
'  displayed in any driver select dialogs.
%DNF_NODRIVER            = &H00000008  '  if we want to install no driver
'  (e.g no mouse drv)
%DNF_LEGACYINF           = &H00000010  '  Driver node came from an old-style INF (obsolete)
%DNF_CLASS_DRIVER        = &H00000020  '  Driver node represents a class driver
%DNF_COMPATIBLE_DRIVER   = &H00000040  '  Driver node represents a compatible driver
%DNF_INET_DRIVER         = &H00000080  '  Driver comes from an internet source
%DNF_UNUSED1             = &H00000100
%DNF_INDEXED_DRIVER      = &H00000200  '  Driver is contained in the Windows Driver Index
%DNF_OLD_INET_DRIVER     = &H00000400  '  Driver came from the Internet, but we don't currently
'  have access to it's source files.  Never attempt to
'  install a driver with this flag!
%DNF_BAD_DRIVER          = &H00000800  '  Driver node should not be used at all
%DNF_DUPPROVIDER         = &H00001000  '  Multiple drivers have the same provider and desc

#IF %SETUPAPI_VER >= &H0501
%DNF_INF_IS_SIGNED       = &H00002000  '  If file is digitally signed
%DNF_OEM_F6_INF          = &H00004000  '  INF specified from F6 during textmode setup.
%DNF_DUPDRIVERVER        = &H00008000  '  Multipe drivers have the same desc, provider, and DriverVer values
%DNF_BASIC_DRIVER        = &H00010000  '  Driver provides basic functionality, but should
'  not be chosen if other signed drivers exist.
#ENDIF '  %SETUPAPI_VER >= &H0501


#IF %SETUPAPI_VER >= &H0502
    %DNF_AUTHENTICODE_SIGNED  =&H00020000  '  Inf file is signed by an Authenticode(tm) catalog.
#ENDIF '  %SETUPAPI_VER >= &H0502


'  Rank values (the lower the Rank number, the better the Rank)

%DRIVER_HARDWAREID_RANK  = &H00000FFF  '  Any rank less than or equal to
'  this value is a trusted
'  HardwareID match

%DRIVER_COMPATID_RANK    = &H00003FFF  '  Any rank less than or equal to
'  this (and greater than
'  DRIVER_HARDWAREID_RANK) is a
'  trusted CompatibleID match

%DRIVER_UNTRUSTED_RANK   = &H00008000  '  Any rank with this bit set is an
'  "untrusted" rank, meaning that
'  the INF was unsigned.

%DRIVER_UNTRUSTED_HARDWAREID_RANK  = &H00008FFF  '  Any rank less than or equal to
'  this value (and greater than
'  or equal to DRIVER_UNTRUSTED_RANK)
'  is an untrusted HardwareID match

%DRIVER_UNTRUSTED_COMPATID_RANK    = &H0000BFFF  '  Any rank less than or equal to
'  this value (and greater than
'  DRIVER_UNTRUSTED_HARDWAREID_RANK)
'  is an untrusted CompatibleID match

%DRIVER_W9X_SUSPECT_RANK            = &H0000C000 '  Any rank that is greater than
'  or equal to this value, and lesser
'  than or equal to &HFFFF is suspected
'  to be a Win9x-only driver, because
'  (a) it isn't signed, and (b) there
'  is no NT-specific decoration to
'  explicitly indicate that the INF
'  supports Windows NT/2000/XP

%DRIVER_W9X_SUSPECT_HARDWAREID_RANK  =&H0000CFFF '  Any rank less than or equal to this
'  (and greater than or equal to
'  DRIVER_W9X_SUSPECT_RANK) is a
'  hardware ID match suspected of being
'  only for Windows 9x platforms.

%DRIVER_W9X_SUSPECT_COMPATID_RANK   = &H0000FFFF '  Any rank less than or equal to
'  this (and greater than
'  DRIVER_W9X_SUSPECT_HARDWAREID_RANK)
'  is a compatible ID match suspected
'  of being only for Windows 9x
'  platforms.


'  Setup callback routine for comparing detection signatures

DECLARE FUNCTION SP_DETSIG_CMPPROC(BYREF NewDeviceData AS SP_DEVINFO_DATA, BYREF ExistingDeviceData AS SP_DEVINFO_DATA, BYREF CompareContext AS ANY) AS DWORD


TYPE COINSTALLER_CONTEXT_DATA
     PostProcessing AS LONG
     InstallResult AS DWORD
     PrivateData AS LONG
END TYPE


'  Structure containing class image list information.

TYPE SP_CLASSIMAGELIST_DATA
     cbSize AS DWORD
     ImageList AS DWORD
     Reserved AS DWORD
END TYPE


'  Structure to be passed as first parameter (LPVOID lpv) to ExtensionPropSheetPageProc
'  entry point in setupapi.dll or to "EnumPropPages32" or "BasicProperties32" entry
'  points provided by class/device property page providers.  Used to retrieve a handle
'  (or, potentially, multiple handles) to property pages for a specified property page type.

TYPE SP_PROPSHEETPAGE_REQUEST
     cbSize AS DWORD
     PageRequested AS DWORD
     DeviceInfoSet AS HDEVINFO
     DeviceInfoData AS SP_DEVINFO_DATA PTR
END TYPE


'  Property sheet codes used in SP_PROPSHEETPAGE_REQUEST.PageRequested

%SPPSR_SELECT_DEVICE_RESOURCES      = 1    '  supplied by setupapi.dll
%SPPSR_ENUM_BASIC_DEVICE_PROPERTIES = 2    '  supplied by device's BasicProperties32 provider
%SPPSR_ENUM_ADV_DEVICE_PROPERTIES   = 3    '  supplied by class and/or device's EnumPropPages32 provider


'  Structure used with SetupGetBackupInformation/SetupSetBackupInformation

TYPE SP_BACKUP_QUEUE_PARAMS_V2_A
     cbSize AS DWORD                       '  size of structure
     FullInfPath AS ASCIIZ * %MAX_PATH     '  buffer to hold ANSI pathname of INF file
     FilenameOffset AS LONG                '  offset in CHAR's of filename part (after '\')
     ReinstallInstance AS ASCIIZ * %MAX_PATH  '  Instance ID (if present)
END TYPE

TYPE SP_BACKUP_QUEUE_PARAMS_V2_W
     cbSize AS DWORD                       '  size of structure
     FullInfPath AS STRING * %MAX_PATH * 2 '  buffer to hold UNICODE pathname of INF file
     FilenameOffset AS LONG                '  offset in WCHAR's of filename part (after '\')
     ReinstallInstance AS STRING * %MAX_PATH * 2 '  Instance ID (if present)
END TYPE

#IF %DEF(%UNICODE)
    MACRO SP_BACKUP_QUEUE_PARAMS_V2 = SP_BACKUP_QUEUE_PARAMS_V2_W
#ELSE
    MACRO SP_BACKUP_QUEUE_PARAMS_V2 = SP_BACKUP_QUEUE_PARAMS_V2_A
#ENDIF


'  Version 1 of the SP_BACKUP_QUEUE_PARAMS structures, used only for compatibility
'  with Windows 2000/Windows 95/98/ME SETUPAPI.DLL

TYPE SP_BACKUP_QUEUE_PARAMS_V1_A
     cbSize AS DWORD                       '  size of structure
     FullInfPath AS ASCIIZ * %MAX_PATH     '  buffer to hold ANSI pathname of INF file
     FilenameOffset AS LONG                '  offset in CHAR's of filename part (after '\')
END TYPE

TYPE SP_BACKUP_QUEUE_PARAMS_V1_W
     cbSize AS DWORD                       '  size of structure
     FullInfPath AS ASCIIZ * %MAX_PATH     '  buffer to hold UNICODE pathname of INF file
     FilenameOffset AS LONG                '  offset in WCHAR's of filename part (after '\')
END TYPE

#IF %DEF(%UNICODE)
    MACRO SP_BACKUP_QUEUE_PARAMS_V1 = SP_BACKUP_QUEUE_PARAMS_V1_W
#ELSE
    MACRO SP_BACKUP_QUEUE_PARAMS_V1 = SP_BACKUP_QUEUE_PARAMS_V1_A
#ENDIF


#IF %SETUPAPI_VER < &H0501
    MACRO SP_BACKUP_QUEUE_PARAMS   = SP_BACKUP_QUEUE_PARAMS_V1
    MACRO SP_BACKUP_QUEUE_PARAMS_A = SP_BACKUP_QUEUE_PARAMS_V1
    MACRO SP_BACKUP_QUEUE_PARAMS_W = SP_BACKUP_QUEUE_PARAMS_V1
#ELSE
    MACRO SP_BACKUP_QUEUE_PARAMS   = SP_BACKUP_QUEUE_PARAMS_V2
    MACRO SP_BACKUP_QUEUE_PARAMS_A = SP_BACKUP_QUEUE_PARAMS_V2
    MACRO SP_BACKUP_QUEUE_PARAMS_W = SP_BACKUP_QUEUE_PARAMS_V2
#ENDIF


'
' Setupapi-specific error codes
'
' Inf parse outcomes
'
%ERROR_EXPECTED_SECTION_NAME  = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR 0)
%ERROR_BAD_SECTION_NAME_LINE  = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR 1)
%ERROR_SECTION_NAME_TOO_LONG  = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR 2)
%ERROR_GENERAL_SYNTAX         = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR 3)

'  Inf runtime errors

%ERROR_WRONG_INF_STYLE        = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H100)
%ERROR_SECTION_NOT_FOUND      = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H101)
%ERROR_LINE_NOT_FOUND         = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H102)
%ERROR_NO_BACKUP              = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H103)

'  Device Installer/other errors

%ERROR_NO_ASSOCIATED_CLASS                = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H200)
%ERROR_CLASS_MISMATCH                     = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H201)
%ERROR_DUPLICATE_FOUND                    = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H202)
%ERROR_NO_DRIVER_SELECTED                 = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H203)
%ERROR_KEY_DOES_NOT_EXIST                 = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H204)
%ERROR_INVALID_DEVINST_NAME               = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H205)
%ERROR_INVALID_CLASS                      = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H206)
%ERROR_DEVINST_ALREADY_EXISTS             = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H207)
%ERROR_DEVINFO_NOT_REGISTERED             = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H208)
%ERROR_INVALID_REG_PROPERTY               = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H209)
%ERROR_NO_INF                             = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H20A)
%ERROR_NO_SUCH_DEVINST                    = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H20B)
%ERROR_CANT_LOAD_CLASS_ICON               = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H20C)
%ERROR_INVALID_CLASS_INSTALLER            = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H20D)
%ERROR_DI_DO_DEFAULT                      = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H20E)
%ERROR_DI_NOFILECOPY                      = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H20F)
%ERROR_INVALID_HWPROFILE                  = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H210)
%ERROR_NO_DEVICE_SELECTED                 = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H211)
%ERROR_DEVINFO_LIST_LOCKED                = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H212)
%ERROR_DEVINFO_DATA_LOCKED                = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H213)
%ERROR_DI_BAD_PATH                        = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H214)
%ERROR_NO_CLASSINSTALL_PARAMS             = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H215)
%ERROR_FILEQUEUE_LOCKED                   = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H216)
%ERROR_BAD_SERVICE_INSTALLSECT            = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H217)
%ERROR_NO_CLASS_DRIVER_LIST               = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H218)
%ERROR_NO_ASSOCIATED_SERVICE              = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H219)
%ERROR_NO_DEFAULT_DEVICE_INTERFACE        = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H21A)
%ERROR_DEVICE_INTERFACE_ACTIVE            = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H21B)
%ERROR_DEVICE_INTERFACE_REMOVED           = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H21C)
%ERROR_BAD_INTERFACE_INSTALLSECT          = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H21D)
%ERROR_NO_SUCH_INTERFACE_CLASS            = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H21E)
%ERROR_INVALID_REFERENCE_STRING           = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H21F)
%ERROR_INVALID_MACHINENAME                = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H220)
%ERROR_REMOTE_COMM_FAILURE                = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H221)
%ERROR_MACHINE_UNAVAILABLE                = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H222)
%ERROR_NO_CONFIGMGR_SERVICES              = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H223)
%ERROR_INVALID_PROPPAGE_PROVIDER          = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H224)
%ERROR_NO_SUCH_DEVICE_INTERFACE           = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H225)
%ERROR_DI_POSTPROCESSING_REQUIRED         = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H226)
%ERROR_INVALID_COINSTALLER                = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H227)
%ERROR_NO_COMPAT_DRIVERS                  = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H228)
%ERROR_NO_DEVICE_ICON                     = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H229)
%ERROR_INVALID_INF_LOGCONFIG              = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H22A)
%ERROR_DI_DONT_INSTALL                    = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H22B)
%ERROR_INVALID_FILTER_DRIVER              = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H22C)
%ERROR_NON_WINDOWS_NT_DRIVER              = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H22D)
%ERROR_NON_WINDOWS_DRIVER                 = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H22E)
%ERROR_NO_CATALOG_FOR_OEM_INF             = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H22F)
%ERROR_DEVINSTALL_QUEUE_NONNATIVE         = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H230)
%ERROR_NOT_DISABLEABLE                    = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H231)
%ERROR_CANT_REMOVE_DEVINST                = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H232)
%ERROR_INVALID_TARGET                     = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H233)
%ERROR_DRIVER_NONNATIVE                   = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H234)
%ERROR_IN_WOW64                           = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H235)
%ERROR_SET_SYSTEM_RESTORE_POINT           = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H236)
%ERROR_INCORRECTLY_COPIED_INF             = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H237)
%ERROR_SCE_DISABLED                       = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H238)
%ERROR_UNKNOWN_EXCEPTION                  = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H239)
%ERROR_PNP_REGISTRY_ERROR                 = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H23A)
%ERROR_REMOTE_REQUEST_UNSUPPORTED         = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H23B)
%ERROR_NOT_AN_INSTALLED_OEM_INF           = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H23C)
%ERROR_INF_IN_USE_BY_DEVICES              = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H23D)
%ERROR_DI_FUNCTION_OBSOLETE               = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H23E)
%ERROR_NO_AUTHENTICODE_CATALOG            = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H23F)
%ERROR_AUTHENTICODE_DISALLOWED            = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H240)
%ERROR_AUTHENTICODE_TRUSTED_PUBLISHER     = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H241)
%ERROR_AUTHENTICODE_TRUST_NOT_ESTABLISHED  =(%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H242)
%ERROR_AUTHENTICODE_PUBLISHER_NOT_TRUSTED  =(%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H243)
%ERROR_SIGNATURE_OSATTRIBUTE_MISMATCH     = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H244)
%ERROR_ONLY_VALIDATE_VIA_AUTHENTICODE     = (%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H245)


'  Setupapi exception codes

%ERROR_UNRECOVERABLE_STACK_OVERFLOW  =(%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H300)
%EXCEPTION_SPAPI_UNRECOVERABLE_STACK_OVERFLOW  =%ERROR_UNRECOVERABLE_STACK_OVERFLOW


'  Backward compatibility--do not use.

%ERROR_NO_DEFAULT_INTERFACE_DEVICE  =%ERROR_NO_DEFAULT_DEVICE_INTERFACE
%ERROR_INTERFACE_DEVICE_ACTIVE     = %ERROR_DEVICE_INTERFACE_ACTIVE
%ERROR_INTERFACE_DEVICE_REMOVED    = %ERROR_DEVICE_INTERFACE_REMOVED
%ERROR_NO_SUCH_INTERFACE_DEVICE    = %ERROR_NO_SUCH_DEVICE_INTERFACE


'  Win9x migration DLL error code

%ERROR_NOT_INSTALLED  =(%APPLICATION_ERROR_MASK OR %ERROR_SEVERITY_ERROR OR &H1000)


'  SearchControl flags for SetupGetInfInformation

%INFINFO_INF_SPEC_IS_HINF        = 1
%INFINFO_INF_NAME_IS_ABSOLUTE    = 2
%INFINFO_DEFAULT_SEARCH          = 3
%INFINFO_REVERSE_DEFAULT_SEARCH  = 4
%INFINFO_INF_PATH_LIST_SEARCH    = 5

'  Compression types

%FILE_COMPRESSION_NONE       = 0
%FILE_COMPRESSION_WINLZA     = 1
%FILE_COMPRESSION_MSZIP      = 2
%FILE_COMPRESSION_NTCAB      = 3

'  Define flags for SourceList APIs.

%SRCLIST_TEMPORARY       = &H00000001
%SRCLIST_NOBROWSE        = &H00000002
%SRCLIST_SYSTEM          = &H00000010
%SRCLIST_USER            = &H00000020
%SRCLIST_SYSIFADMIN      = &H00000040
%SRCLIST_SUBDIRS         = &H00000100
%SRCLIST_APPEND          = &H00000200
%SRCLIST_NOSTRIPPLATFORM  =&H00000400

'  Styles for SetupPromptForDisk, SetupCopyError,
'  SetupRenameError, SetupDeleteError

%IDF_NOBROWSE                    = &H00000001
%IDF_NOSKIP                      = &H00000002
%IDF_NODETAILS                   = &H00000004
%IDF_NOCOMPRESSED                = &H00000008
%IDF_CHECKFIRST                  = &H00000100
%IDF_NOBEEP                      = &H00000200
%IDF_NOFOREGROUND                = &H00000400
%IDF_WARNIFSKIP                  = &H00000800

#IF %SETUPAPI_VER >= &H0501

%IDF_NOREMOVABLEMEDIAPROMPT      = &H00001000
%IDF_USEDISKNAMEASPROMPT         = &H00002000
%IDF_OEMDISK                     = &H80000000

#ENDIF '  %SETUPAPI_VER >= &H0501


'  Return values for SetupPromptForDisk, SetupCopyError,
'  SetupRenameError, SetupDeleteError, SetupBackupError

%DPROMPT_SUCCESS         = 0
%DPROMPT_CANCEL          = 1
%DPROMPT_SKIPFILE        = 2
%DPROMPT_BUFFERTOOSMALL  = 3
%DPROMPT_OUTOFMEMORY     = 4

'  Flags for SetupSetDirectoryIdEx

%SETDIRID_NOT_FULL_PATH      = &H00000001


'  InfoDesired values for SetupGetSourceInfo

%SRCINFO_PATH            = 1
%SRCINFO_TAGFILE         = 2
%SRCINFO_DESCRIPTION     = 3
%SRCINFO_FLAGS           = 4

#IF %SETUPAPI_VER >= &H0501

'  SRC_FLAGS allow special treatment of source
'  lower 4 bits are reserved for OS use
'  the flags may determine what other parameters exist

%SRCINFO_TAGFILE2        = 5  '  alternate tagfile, when SRCINFO_TAGFILE is a cabfile

%SRC_FLAGS_CABFILE       = (&H0010) '  if set, treat SRCINFO_TAGFILE as a cabfile and specify alternate tagfile

#ENDIF '  %SETUPAPI_VER >= &H0501

'  CopyStyle values for copy and queue-related APIs

%SP_COPY_DELETESOURCE        = &H0000001   '  delete source file on successful copy
%SP_COPY_REPLACEONLY         = &H0000002   '  copy only if target file already present
%SP_COPY_NEWER               = &H0000004   '  copy only if source newer than or same as target
%SP_COPY_NEWER_OR_SAME       = %SP_COPY_NEWER
%SP_COPY_NOOVERWRITE         = &H0000008   '  copy only if target doesn't exist
%SP_COPY_NODECOMP            = &H0000010   '  don't decompress source file while copying
%SP_COPY_LANGUAGEAWARE       = &H0000020   '  don't overwrite file of different language
%SP_COPY_SOURCE_ABSOLUTE     = &H0000040   '  SourceFile is a full source path
%SP_COPY_SOURCEPATH_ABSOLUTE  =&H0000080   '  SourcePathRoot is the full path
%SP_COPY_IN_USE_NEEDS_REBOOT  =&H0000100   '  System needs reboot if file in use
%SP_COPY_FORCE_IN_USE        = &H0000200   '  Force target-in-use behavior
%SP_COPY_NOSKIP              = &H0000400   '  Skip is disallowed for this file or section
%SP_FLAG_CABINETCONTINUATION  =&H0000800   '  Used with need media notification
%SP_COPY_FORCE_NOOVERWRITE   = &H0001000   '  like NOOVERWRITE but no callback nofitication
%SP_COPY_FORCE_NEWER         = &H0002000   '  like NEWER but no callback nofitication
%SP_COPY_WARNIFSKIP          = &H0004000   '  system critical file: warn if user tries to skip
%SP_COPY_NOBROWSE            = &H0008000   '  Browsing is disallowed for this file or section
%SP_COPY_NEWER_ONLY          = &H0010000   '  copy only if source file newer than target
%SP_COPY_SOURCE_SIS_MASTER   = &H0020000   '  source is single-instance store master
%SP_COPY_OEMINF_CATALOG_ONLY  =&H0040000   '  (SetupCopyOEMInf only) don't copy INF--just catalog
%SP_COPY_REPLACE_BOOT_FILE   = &H0080000   '  file must be present upon reboot (i.e., it's
'  needed by the loader); this flag implies a reboot
%SP_COPY_NOPRUNE             = &H0100000   '  never prune this file

#IF %SETUPAPI_VER >= &H0501

%SP_COPY_OEM_F6_INF          = &H0200000   '  Used when calling SetupCopyOemInf

#ENDIF ' %SETUPAPI_VER >= &H0501

#IF %SETUPAPI_VER >= &H0501


'  Flags passed to Backup notification

%SP_BACKUP_BACKUPPASS        = &H00000001  '  file backed up during backup pass
%SP_BACKUP_DEMANDPASS        = &H00000002  '  file backed up on demand
%SP_BACKUP_SPECIAL           = &H00000004  '  if set, special type of backup
%SP_BACKUP_BOOTFILE          = &H00000008  '  file marked with COPYFLG_REPLACE_BOOT_FILE


#ENDIF ' %SETUPAPI_VER >= &H0501


'  Define flags for SetupScanFileQueue.

%SPQ_SCAN_FILE_PRESENCE                  = &H00000001
%SPQ_SCAN_FILE_VALIDITY                  = &H00000002
%SPQ_SCAN_USE_CALLBACK                   = &H00000004
%SPQ_SCAN_USE_CALLBACKEX                 = &H00000008
%SPQ_SCAN_INFORM_USER                    = &H00000010
%SPQ_SCAN_PRUNE_COPY_QUEUE               = &H00000020

#IF %SETUPAPI_VER >= &H0501

%SPQ_SCAN_USE_CALLBACK_SIGNERINFO        = &H00000040
%SPQ_SCAN_PRUNE_DELREN                   = &H00000080 '  remote Delete/Rename queue

#ENDIF '  %SETUPAPI_VER >= &H0501


'  Define flags used with Param2 for SPFILENOTIFY_QUEUESCAN

%SPQ_DELAYED_COPY                        = &H00000001  '  file was in use; registered for delayed copy

#IF %SETUPAPI_VER >= &H0501


'  Flags/FlagMask for use with SetupSetFileQueueFlags and returned by SetupGetFileQueueFlags

%SPQ_FLAG_BACKUP_AWARE      = &H00000001  '  If set, SetupCommitFileQueue will
'  issue backup notifications.

%SPQ_FLAG_ABORT_IF_UNSIGNED  =&H00000002  '  If set, SetupCommitFileQueue will
'  fail with ERROR_SET_SYSTEM_RESTORE_POINT
'  if the user elects to proceed with an
'  unsigned queue committal.  This allows
'  the caller to set a system restore point,
'  then re-commit the file queue.

%SPQ_FLAG_FILES_MODIFIED    = &H00000004  '  If set, at least one file was
'  replaced by a different version

%SPQ_FLAG_VALID             = &H00000007  '  mask of valid flags (can be passed as FlagMask)

#ENDIF  '  %SETUPAPI_VER >= &H0501


'  Define OEM Source Type values for use in SetupCopyOEMInf.

%SPOST_NONE  = 0
%SPOST_PATH  = 1
%SPOST_URL   = 2
%SPOST_MAX   = 3


#IF %SETUPAPI_VER >= &H0501


'  Flags used by SetupUninstallOEMInf

%SUOI_FORCEDELETE   = &H00000001

#ENDIF '  %SETUPAPI_VER >= &H0501


'  Flags for SetupCreateDiskSpaceList

%SPDSL_IGNORE_DISK              = &H00000001  '  ignore deletes and on-disk files in copies
%SPDSL_DISALLOW_NEGATIVE_ADJUST  =&H00000002


'  Define flags that are returned by SetupPromptReboot

%SPFILEQ_FILE_IN_USE         = &H00000001
%SPFILEQ_REBOOT_RECOMMENDED  = &H00000002
%SPFILEQ_REBOOT_IN_PROGRESS  = &H00000004


'  Flags for AddReg section lines in INF.  The corresponding value
'  is <ValueType> in the AddReg line format given below:

'  <RegRootString>,<SubKey>,<ValueName>,<ValueType>,<Value>...

'  The low word contains basic flags concerning the general data type
'  and AddReg action. The high word contains values that more specifically
'  identify the data type of the registry value.  The high word is ignored
'  by the 16-bit Windows 95 SETUPX APIs.

'  If <ValueType> has FLG_ADDREG_DELREG_BIT set, it will be ignored by AddReg
'  (not supported by SetupX).


#IF %SETUPAPI_VER >= &H0501

%FLG_ADDREG_DELREG_BIT       = ( &H00008000 ) '  if set, interpret as DELREG, see below

#ENDIF '  %SETUPAPI_VER >= &H0501

%FLG_ADDREG_BINVALUETYPE     = ( &H00000001 )
%FLG_ADDREG_NOCLOBBER        = ( &H00000002 )
%FLG_ADDREG_DELVAL           = ( &H00000004 )
%FLG_ADDREG_APPEND           = ( &H00000008 ) '  Currently supported only
'  for REG_MULTI_SZ values.
%FLG_ADDREG_KEYONLY          = ( &H00000010 ) '  Just create the key, ignore value
%FLG_ADDREG_OVERWRITEONLY    = ( &H00000020 ) '  Set only if value already exists

#IF %SETUPAPI_VER >= &H0501

%FLG_ADDREG_64BITKEY         = ( &H00001000 ) '  make this change in the 64 bit registry.
%FLG_ADDREG_KEYONLY_COMMON   = ( &H00002000 ) '  same as FLG_ADDREG_KEYONLY but also works for DELREG
%FLG_ADDREG_32BITKEY         = ( &H00004000 ) '  make this change in the 32 bit registry.

#ENDIF '  %SETUPAPI_VER >= &H0501


'  The INF may supply any arbitrary data type ordinal in the highword except
'  for the following: REG_NONE, REG_SZ, REG_EXPAND_SZ, REG_MULTI_SZ.  If this
'  technique is used, then the data is given in binary format, one byte per
'  field.

%FLG_ADDREG_TYPE_MASK        = ( &HFFFF0000 OR %FLG_ADDREG_BINVALUETYPE )
%FLG_ADDREG_TYPE_SZ          = ( &H00000000                           )
%FLG_ADDREG_TYPE_MULTI_SZ    = ( &H00010000                           )
%FLG_ADDREG_TYPE_EXPAND_SZ   = ( &H00020000                           )
%FLG_ADDREG_TYPE_BINARY      = ( &H00000000 OR %FLG_ADDREG_BINVALUETYPE )
%FLG_ADDREG_TYPE_DWORD       = ( &H00010000 OR %FLG_ADDREG_BINVALUETYPE )
%FLG_ADDREG_TYPE_NONE        = ( &H00020000 OR %FLG_ADDREG_BINVALUETYPE )


'  Flags for DelReg section lines in INF.  The corresponding value
'  is <Operation> in the extended DelReg line format given below:

'  <RegRootString>,<SubKey>,<ValueName>,<Operation>[,...]

'  In SetupX and some versions of SetupAPI, <Operation> will be ignored and <ValueName> will
'  be deleted. Use with care.

'  The bits determined by mask FLG_DELREG_TYPE_MASK indicates type of data expected.
'  <Operation> must have FLG_ADDREG_DELREG_BIT set, otherwise it is ignored and specified
'  value will be deleted (allowing an AddReg section to also be used as a DelReg section)
'  if <Operation> is not specified, <ValueName> will be deleted (if specified) otherwise
'  <SubKey> will be deleted.

'  the compatability flag

%FLG_DELREG_VALUE            = (&H00000000)

#IF %SETUPAPI_VER >= &H0501

%FLG_DELREG_TYPE_MASK        = %FLG_ADDREG_TYPE_MASK        '  &HFFFF0001
%FLG_DELREG_TYPE_SZ          = %FLG_ADDREG_TYPE_SZ          '  &H00000000
%FLG_DELREG_TYPE_MULTI_SZ    = %FLG_ADDREG_TYPE_MULTI_SZ    '  &H00010000
%FLG_DELREG_TYPE_EXPAND_SZ   = %FLG_ADDREG_TYPE_EXPAND_SZ   '  &H00020000
%FLG_DELREG_TYPE_BINARY      = %FLG_ADDREG_TYPE_BINARY      '  &H00000001
%FLG_DELREG_TYPE_DWORD       = %FLG_ADDREG_TYPE_DWORD       '  &H00010001
%FLG_DELREG_TYPE_NONE        = %FLG_ADDREG_TYPE_NONE        '  &H00020001
%FLG_DELREG_64BITKEY         = %FLG_ADDREG_64BITKEY         '  &H00001000
%FLG_DELREG_KEYONLY_COMMON   = %FLG_ADDREG_KEYONLY_COMMON   '  &H00002000
%FLG_DELREG_32BITKEY         = %FLG_ADDREG_32BITKEY         '  &H00004000


'  <Operation> = FLG_DELREG_MULTI_SZ_DELSTRING
'                <RegRootString>,<SubKey>,<ValueName>,&H00018002,<String>
'                removes all entries matching <String> (case ignored) from multi-sz registry value


%FLG_DELREG_OPERATION_MASK   = (&H000000FE)
%FLG_DELREG_MULTI_SZ_DELSTRING ( = %FLG_DELREG_TYPE_MULTI_SZ OR %FLG_ADDREG_DELREG_BIT OR &H00000002 ) '  &H00018002

#ENDIF '  %SETUPAPI_VER >= &H0501


'  Flags for BitReg section lines in INF.

%FLG_BITREG_CLEARBITS        = ( &H00000000 )
%FLG_BITREG_SETBITS          = ( &H00000001 )

#IF %SETUPAPI_VER >= &H0501

%FLG_BITREG_64BITKEY         = ( &H00001000 )
%FLG_BITREG_32BITKEY         = ( &H00004000 )

#ENDIF '  %SETUPAPI_VER >= &H0501


'  Flags for Ini2Reg section lines in INF.

#IF %SETUPAPI_VER >= &H0501

%FLG_INI2REG_64BITKEY        = ( &H00001000 )
%FLG_INI2REG_32BITKEY        = ( &H00004000 )

#ENDIF '  %SETUPAPI_VER >= &H0501


'  Flags for RegSvr section lines in INF

%FLG_REGSVR_DLLREGISTER      = ( &H00000001 )
%FLG_REGSVR_DLLINSTALL       = ( &H00000002 )


'  Flags for RegSvr section lines in INF

%FLG_PROFITEM_CURRENTUSER    = ( &H00000001 )
%FLG_PROFITEM_DELETE         = ( &H00000002 )
%FLG_PROFITEM_GROUP          = ( &H00000004 )
%FLG_PROFITEM_CSIDL          = ( &H00000008 )


'  Flags for SetupInstallFromInfSection

%SPINST_LOGCONFIG                = &H00000001
%SPINST_INIFILES                 = &H00000002
%SPINST_REGISTRY                 = &H00000004
%SPINST_INI2REG                  = &H00000008
%SPINST_FILES                    = &H00000010
%SPINST_BITREG                   = &H00000020
%SPINST_REGSVR                   = &H00000040
%SPINST_UNREGSVR                 = &H00000080
%SPINST_PROFILEITEMS             = &H00000100

#IF %SETUPAPI_VER >= &H0501

%SPINST_COPYINF                  = &H00000200
%SPINST_ALL                      = &H000003ff

#ELSE

%SPINST_ALL                      = &H000001ff

#ENDIF '  %SETUPAPI_VER >= &H0501

%SPINST_SINGLESECTION            = &H00010000
%SPINST_LOGCONFIG_IS_FORCED      = &H00020000
%SPINST_LOGCONFIGS_ARE_OVERRIDES  =&H00040000

#IF %SETUPAPI_VER >= &H0501

%SPINST_REGISTERCALLBACKAWARE    = &H00080000

#ENDIF '  %SETUPAPI_VER >= &H0501


'  Flags for SetupInstallServicesFromInfSection(Ex).  These flags are also used
'  in the flags field of AddService or DelService lines in a device INF.  Some
'  of these flags are not permitted in the non-Ex API.  These flags are marked
'  as such below.



'  (AddService) move service's tag to front of its group order list

%SPSVCINST_TAGTOFRONT               = (&H00000001)


'  (AddService) **Ex API only** mark this service as the function driver for the
'  device being installed

%SPSVCINST_ASSOCSERVICE             = (&H00000002)


'  (DelService) delete the associated event log entry for a service specified in
'  a DelService entry

%SPSVCINST_DELETEEVENTLOGENTRY      = (&H00000004)


'  (AddService) don't overwrite display name if it already exists

%SPSVCINST_NOCLOBBER_DISPLAYNAME    = (&H00000008)


'  (AddService) don't overwrite start type value if service already exists

%SPSVCINST_NOCLOBBER_STARTTYPE      = (&H00000010)


'  (AddService) don't overwrite error control value if service already exists

%SPSVCINST_NOCLOBBER_ERRORCONTROL   = (&H00000020)


'  (AddService) don't overwrite load order group if it already exists

%SPSVCINST_NOCLOBBER_LOADORDERGROUP  =(&H00000040)


'  (AddService) don't overwrite dependencies list if it already exists

%SPSVCINST_NOCLOBBER_DEPENDENCIES   = (&H00000080)


'  (AddService) don't overwrite description if it already exists

%SPSVCINST_NOCLOBBER_DESCRIPTION    = (&H00000100)

'  (DelService) stop the associated service specified in
'  a DelService entry before deleting the service

%SPSVCINST_STOPSERVICE              = (&H00000200)

#IF %SETUPAPI_VER >= &H0501

'  (AddService) force overwrite of security settings

%SPSVCINST_CLOBBER_SECURITY         = (&H00000400)

#ENDIF '  %SETUPAPI_VER >= &H0501


'  Define handle type for Setup file log.

MACRO HSPFILELOG = DWORD


'  Flags for SetupInitializeFileLog

%SPFILELOG_SYSTEMLOG     = &H00000001  '  use system log -- must be Administrator
%SPFILELOG_FORCENEW      = &H00000002  '  not valid with SPFILELOG_SYSTEMLOG
%SPFILELOG_QUERYONLY     = &H00000004  '  allows non-administrators to read system log


'  Flags for SetupLogFile

%SPFILELOG_OEMFILE   = &H00000001


'  Items retrievable from SetupQueryFileLog()

MACRO SetupFileLogSourceFilename        = 0
MACRO SetupFileLogChecksum              = 1
MACRO SetupFileLogDiskTagfile           = 2
MACRO SetupFileLogDiskDescription       = 3
MACRO SetupFileLogOtherInfo             = 4
MACRO SetupFileLogMax                   = 5


'  Text logging APIs

MACRO LogSeverity            = DWORD
%LogSevInformation           = &H00000000
%LogSevWarning               = &H00000001
%LogSevError                 = &H00000002
%LogSevFatalError            = &H00000003
%LogSevMaximum               = &H00000004


'  Flags for SetupDiCreateDeviceInfo

%DICD_GENERATE_ID        = &H00000001
%DICD_INHERIT_CLASSDRVS  = &H00000002


'  Flags for SetupDiOpenDeviceInfo

%DIOD_INHERIT_CLASSDRVS  = &H00000002
%DIOD_CANCEL_REMOVE      = &H00000004


'  Flags for SetupDiOpenDeviceInterface

%DIODI_NO_ADD    = &H00000001


'  Flags for SetupDiRegisterDeviceInfo

%SPRDI_FIND_DUPS        = &H00000001


'  Ordinal values distinguishing between class drivers and
'  device drivers.
'  (Passed in 'DriverType' parameter of driver information list APIs)

%SPDIT_NODRIVER           = &H00000000
%SPDIT_CLASSDRIVER        = &H00000001
%SPDIT_COMPATDRIVER       = &H00000002


'  Flags controlling what is included in the device information set built
'  by SetupDiGetClassDevs

%DIGCF_DEFAULT           = &H00000001  '  only valid with DIGCF_DEVICEINTERFACE
%DIGCF_PRESENT           = &H00000002
%DIGCF_ALLCLASSES        = &H00000004
%DIGCF_PROFILE           = &H00000008
%DIGCF_DEVICEINTERFACE   = &H00000010


'  Backward compatibility--do not use.

%DIGCF_INTERFACEDEVICE  =%DIGCF_DEVICEINTERFACE


'  Flags controlling exclusion from the class information list built
'  by SetupDiBuildClassInfoList(Ex)

%DIBCI_NOINSTALLCLASS   = &H00000001
%DIBCI_NODISPLAYCLASS   = &H00000002


'  KeyType values for SetupDiCreateDevRegKey, SetupDiOpenDevRegKey, and
'  SetupDiDeleteDevRegKey.

%DIREG_DEV       = &H00000001          '  Open/Create/Delete device key
%DIREG_DRV       = &H00000002          '  Open/Create/Delete driver key
%DIREG_BOTH      = &H00000004          '  Delete both driver and Device key


'  Device registry property codes
'  (Codes marked as read-only (R) may only be used for
'  SetupDiGetDeviceRegistryProperty)

'  These values should cover the same set of registry properties
'  as defined by the CM_DRP codes in cfgmgr32.h.

'  Note that SPDRP codes are zero based while CM_DRP codes are one based!

%SPDRP_DEVICEDESC                  = (&H00000000)  '  DeviceDesc (R/W)
%SPDRP_HARDWAREID                  = (&H00000001)  '  HardwareID (R/W)
%SPDRP_COMPATIBLEIDS               = (&H00000002)  '  CompatibleIDs (R/W)
%SPDRP_UNUSED0                     = (&H00000003)  '  unused
%SPDRP_SERVICE                     = (&H00000004)  '  Service (R/W)
%SPDRP_UNUSED1                     = (&H00000005)  '  unused
%SPDRP_UNUSED2                     = (&H00000006)  '  unused
%SPDRP_CLASS                       = (&H00000007)  '  Class (R--tied to ClassGUID)
%SPDRP_CLASSGUID                   = (&H00000008)  '  ClassGUID (R/W)
%SPDRP_DRIVER                      = (&H00000009)  '  Driver (R/W)
%SPDRP_CONFIGFLAGS                 = (&H0000000A)  '  ConfigFlags (R/W)
%SPDRP_MFG                         = (&H0000000B)  '  Mfg (R/W)
%SPDRP_FRIENDLYNAME                = (&H0000000C)  '  FriendlyName (R/W)
%SPDRP_LOCATION_INFORMATION        = (&H0000000D)  '  LocationInformation (R/W)
%SPDRP_PHYSICAL_DEVICE_OBJECT_NAME  =(&H0000000E)  '  PhysicalDeviceObjectName (R)
%SPDRP_CAPABILITIES                = (&H0000000F)  '  Capabilities (R)
%SPDRP_UI_NUMBER                   = (&H00000010)  '  UiNumber (R)
%SPDRP_UPPERFILTERS                = (&H00000011)  '  UpperFilters (R/W)
%SPDRP_LOWERFILTERS                = (&H00000012)  '  LowerFilters (R/W)
%SPDRP_BUSTYPEGUID                 = (&H00000013)  '  BusTypeGUID (R)
%SPDRP_LEGACYBUSTYPE               = (&H00000014)  '  LegacyBusType (R)
%SPDRP_BUSNUMBER                   = (&H00000015)  '  BusNumber (R)
%SPDRP_ENUMERATOR_NAME             = (&H00000016)  '  Enumerator Name (R)
%SPDRP_SECURITY                    = (&H00000017)  '  Security (R/W, binary form)
%SPDRP_SECURITY_SDS                = (&H00000018)  '  Security (W, SDS form)
%SPDRP_DEVTYPE                     = (&H00000019)  '  Device Type (R/W)
%SPDRP_EXCLUSIVE                   = (&H0000001A)  '  Device is exclusive-access (R/W)
%SPDRP_CHARACTERISTICS             = (&H0000001B)  '  Device Characteristics (R/W)
%SPDRP_ADDRESS                     = (&H0000001C)  '  Device Address (R)
%SPDRP_UI_NUMBER_DESC_FORMAT       = (&H0000001D)  '  UiNumberDescFormat (R/W)
%SPDRP_DEVICE_POWER_DATA           = (&H0000001E)  '  Device Power Data (R)
%SPDRP_REMOVAL_POLICY              = (&H0000001F)  '  Removal Policy (R)
%SPDRP_REMOVAL_POLICY_HW_DEFAULT   = (&H00000020)  '  Hardware Removal Policy (R)
%SPDRP_REMOVAL_POLICY_OVERRIDE     = (&H00000021)  '  Removal Policy Override (RW)
%SPDRP_INSTALL_STATE               = (&H00000022)  '  Device Install State (R)
%SPDRP_LOCATION_PATHS              = (&H00000023)  '  Device Location Paths (R)

%SPDRP_MAXIMUM_PROPERTY            = (&H00000024)  '  Upper bound on ordinals


'  Class registry property codes
'  (Codes marked as read-only (R) may only be used for
'  SetupDiGetClassRegistryProperty)

'  These values should cover the same set of registry properties
'  as defined by the CM_CRP codes in cfgmgr32.h.
'  they should also have a 1:1 correspondence with Device registers, where applicable
'  but no overlap otherwise

%SPCRP_SECURITY                    = (&H00000017)  '  Security (R/W, binary form)
%SPCRP_SECURITY_SDS                = (&H00000018)  '  Security (W, SDS form)
%SPCRP_DEVTYPE                     = (&H00000019)  '  Device Type (R/W)
%SPCRP_EXCLUSIVE                   = (&H0000001A)  '  Device is exclusive-access (R/W)
%SPCRP_CHARACTERISTICS             = (&H0000001B)  '  Device Characteristics (R/W)
%SPCRP_MAXIMUM_PROPERTY            = (&H0000001C)  '  Upper bound on ordinals


'  Flags controlling the drawing of mini-icons

%DMI_MASK      = &H00000001
%DMI_BKCOLOR   = &H00000002
%DMI_USERECT   = &H00000004


'  PropertySheetType values for the SetupDiGetClassDevPropertySheets API

%DIGCDP_FLAG_BASIC           = &H00000001
%DIGCDP_FLAG_ADVANCED        = &H00000002

#IF %SETUPAPI_VER >= &H0501

%DIGCDP_FLAG_REMOTE_BASIC    = &H00000003  '  not presently implemented
%DIGCDP_FLAG_REMOTE_ADVANCED  =&H00000004

#ENDIF '  %SETUPAPI_VER >= &H0501


'  Define ICON IDs publicly exposed from setupapi.

%IDI_RESOURCEFIRST           = 159
%IDI_RESOURCE                = 159
%IDI_RESOURCELAST            = 161
%IDI_RESOURCEOVERLAYFIRST    = 161
%IDI_RESOURCEOVERLAYLAST     = 161
%IDI_CONFLICT                = 161

%IDI_CLASSICON_OVERLAYFIRST  = 500
%IDI_CLASSICON_OVERLAYLAST   = 502
%IDI_PROBLEM_OVL             = 500
%IDI_DISABLED_OVL            = 501
%IDI_FORCED_OVL              = 502



'  PageType values for SetupDiGetWizardPage API

%SPWPT_SELECTDEVICE      = &H00000001


'  Flags for SetupDiGetWizardPage API

%SPWP_USE_DEVINFO_DATA   = &H00000001



'  SetupEnumInfSections is for low-level parsing of an INF

TYPE SP_INF_SIGNER_INFO_A
     cbSize AS DWORD
     CatalogFile AS ASCIIZ * %MAX_PATH
     DigitalSigner AS ASCIIZ * %MAX_PATH
     DigitalSignerVersion AS ASCIIZ * %MAX_PATH
END TYPE

TYPE SP_INF_SIGNER_INFO_W
     cbSize AS DWORD
     CatalogFile AS STRING * %MAX_PATH * 2
     DigitalSigner AS STRING * %MAX_PATH * 2
     DigitalSignerVersion AS STRING * %MAX_PATH * 2
END TYPE

#IF %DEF(%UNICODE)
    MACRO SP_INF_SIGNER_INFO = SP_INF_SIGNER_INFO_W
#ELSE
    MACRO SP_INF_SIGNER_INFO = PSP_INF_SIGNER_INFO_A
#ENDIF


#IF %SETUPAPI_VER >= &H0501

'  Flags for use by SetupDiGetCustomDeviceProperty

%DICUSTOMDEVPROP_MERGE_MULTISZ    = &H00000001

#ENDIF ' %SETUPAPI_VER >= &H0501



#IF %SETUPAPI_VER >= &H0502

'  To configure WMI security for downlevel platforms where the [DDInstall.WMI]
'  section isn't natively supported by setupapi, a redistributable co-installer
'  is supplied in the DDK for use on those platforms.



'  Flags for use by SetupConfigureWmiFromInfSection

%SCWMI_CLOBBER_SECURITY  = &H00000001

#ENDIF ' %SETUPAPI_VER >= &H0502





#IF %DEF(%UNICODE) ' UNICODE specific functions...

DECLARE FUNCTION SetupGetInfInformationW LIB "SETUPAPI.DLL" ALIAS "SetupGetInfInformationW" (BYREF InfSpec AS ANY, _
                                                                                             BYVAL SearchControl AS DWORD, _
                                                                                             BYREF ReturnBuffer AS SP_INF_INFORMATION, _
                                                                                             BYVAL ReturnBufferSize AS DWORD, _
                                                                                             BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetInfInformation(InfSpec, SearchControl, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetInfInformationW(InfSpec, SearchControl, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupQueryInfFileInformationW LIB "SETUPAPI.DLL" ALIAS "SetupQueryInfFileInformationW" (BYREF InfInformation AS SP_INF_INFORMATION, _
                                                                                                         BYVAL InfIndex AS DWORD, _
                                                                                                         BYREF ReturnBuffer AS ANY, _
                                                                                                         BYVAL ReturnBufferSize AS DWORD, _
                                                                                                         BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupQueryInfFileInformation(InfInformation, InfIndex, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupQueryInfFileInformationW(InfInformation, InfIndex, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupQueryInfOriginalFileInformationW LIB "SETUPAPI.DLL" ALIAS "SetupQueryInfOriginalFileInformationW" (BYREF InfInformation AS SP_INF_INFORMATION, _
                                                                                                                         BYVAL InfIndex AS DWORD, _
                                                                                                                         BYREF AlternatePlatformInfo AS SP_ALTPLATFORM_INFO, _
                                                                                                                         BYREF OriginalFileInfo AS SP_ORIGINAL_FILE_INFO_W) AS LONG
MACRO SetupQueryInfOriginalFileInformation(InfInformation, InfIndex, AlternatePlatformInfo, OriginalFileInfo) = SetupQueryInfOriginalFileInformationW(InfInformation, InfIndex, AlternatePlatformInfo, OriginalFileInfo)

DECLARE FUNCTION SetupQueryInfVersionInformationW LIB "SETUPAPI.DLL" ALIAS "SetupQueryInfVersionInformationW" (BYREF InfInformation AS SP_INF_INFORMATION, _
                                                                                                               BYVAL InfIndex AS DWORD, _
                                                                                                               BYREF Key AS ANY, _
                                                                                                               BYREF ReturnBuffer AS ANY, _
                                                                                                               BYVAL ReturnBufferSize AS DWORD, _
                                                                                                               BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupQueryInfVersionInformation(InfInformation, InfIndex, Key, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupQueryInfVersionInformationW(InfInformation, InfIndex, Key, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupGetInfFileListW LIB "SETUPAPI.DLL" ALIAS "SetupGetInfFileListW" (BYREF DirectoryPath AS ANY, _
                                                                                       BYVAL InfStyle AS DWORD, _
                                                                                       BYREF ReturnBuffer AS ANY, _
                                                                                       BYVAL ReturnBufferSize AS DWORD, _
                                                                                       BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetInfFileList(DirectoryPath, InfStyle, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetInfFileListW(DirectoryPath, InfStyle, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupOpenInfFileW LIB "SETUPAPI.DLL" ALIAS "SetupOpenInfFileW" (BYREF FileName AS ANY, _
                                                                                 BYREF InfClass AS ANY, _
                                                                                 BYVAL InfStyle AS DWORD, _
                                                                                 BYREF ErrorLine AS DWORD) AS HINF
MACRO SetupOpenInfFile(FileName, InfClass, InfStyle, ErrorLine) = SetupOpenInfFileW(FileName, InfClass, InfStyle, ErrorLine)

DECLARE FUNCTION SetupOpenAppendInfFileW LIB "SETUPAPI.DLL" ALIAS "SetupOpenAppendInfFileW" (BYREF FileName AS ANY, _
                                                                                             BYVAL InfHandle AS HINF, _
                                                                                             BYREF ErrorLine AS DWORD) AS LONG
MACRO SetupOpenAppendInfFile(FileName, InfHandle, ErrorLine) = SetupOpenAppendInfFileW(FileName, InfHandle, ErrorLine)

DECLARE FUNCTION SetupFindFirstLineW LIB "SETUPAPI.DLL" ALIAS "SetupFindFirstLineW" (BYVAL InfHandle AS HINF, _
                                                                                     BYREF Section AS ANY, _
                                                                                     BYREF Key AS ANY, _
                                                                                     BYREF inContext AS INFCONTEXT) AS LONG
MACRO SetupFindFirstLine(InfHandle, Section, Key, inContext) = SetupFindFirstLineW(InfHandle, Section, Key, inContext)

DECLARE FUNCTION SetupFindNextMatchLineW LIB "SETUPAPI.DLL" ALIAS "SetupFindNextMatchLineW" (BYREF ContextIn AS INFCONTEXT, _
                                                                                             BYREF Key AS ANY, _
                                                                                             BYREF ContextOut AS INFCONTEXT) AS LONG
MACRO SetupFindNextMatchLine(ContextIn, Key, ContextOut) = SetupFindNextMatchLineW(ContextIn, Key, ContextOut)

DECLARE FUNCTION SetupGetLineByIndexW LIB "SETUPAPI.DLL" ALIAS "SetupGetLineByIndexW" (BYVAL InfHandle AS HINF, _
                                                                                       BYREF Section AS ANY, _
                                                                                       BYVAL Index AS DWORD, _
                                                                                       BYREF inContext AS INFCONTEXT) AS LONG
MACRO SetupGetLineByIndex(InfHandle, Section, Index, inContext) = SetupGetLineByIndexW(InfHandle, Section, Index, inContext)

DECLARE FUNCTION SetupGetLineCountW LIB "SETUPAPI.DLL" ALIAS "SetupGetLineCountW" (BYVAL InfHandle AS HINF, _
                                                                                   BYREF Section AS ANY) AS LONG
MACRO SetupGetLineCount(InfHandle, Section) = SetupGetLineCountW(InfHandle, Section)

DECLARE FUNCTION SetupGetLineTextW LIB "SETUPAPI.DLL" ALIAS "SetupGetLineTextW" (BYREF inContext AS INFCONTEXT, _
                                                                                 BYVAL InfHandle AS HINF, _
                                                                                 BYREF Section AS ANY, _
                                                                                 BYREF Key AS ANY, _
                                                                                 BYREF ReturnBuffer AS ANY, _
                                                                                 BYVAL ReturnBufferSize AS DWORD, _
                                                                                 BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetLineText(inContext, InfHandle, Section, Key, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetLineTextW(inContext, InfHandle, Section, Key, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupGetStringFieldW LIB "SETUPAPI.DLL" ALIAS "SetupGetStringFieldW" (BYREF inContext AS INFCONTEXT, _
                                                                                       BYVAL FieldIndex AS DWORD, _
                                                                                       BYREF ReturnBuffer AS ANY, _
                                                                                       BYVAL ReturnBufferSize AS DWORD, _
                                                                                       BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetStringField(inContext, FieldIndex, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetStringFieldW(inContext, FieldIndex, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupGetMultiSzFieldW LIB "SETUPAPI.DLL" ALIAS "SetupGetMultiSzFieldW" (BYREF inContext AS INFCONTEXT, _
                                                                                         BYVAL FieldIndex AS DWORD, _
                                                                                         BYREF ReturnBuffer AS ANY, _
                                                                                         BYVAL ReturnBufferSize AS DWORD, _
                                                                                         BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetMultiSzField(inContext, FieldIndex, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetMultiSzFieldW(inContext, FieldIndex, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupGetFileCompressionInfoW LIB "SETUPAPI.DLL" ALIAS "SetupGetFileCompressionInfoW" (BYREF SourceFileName AS ANY, _
                                                                                                       BYREF ActualSourceFileName AS ANY, _
                                                                                                       BYREF SourceFileSize AS DWORD, _
                                                                                                       BYREF TargetFileSize AS DWORD, _
                                                                                                       BYREF CompressionType AS DWORD) AS DWORD
MACRO SetupGetFileCompressionInfo(SourceFileName, ActualSourceFileName, SourceFileSize, TargetFileSize, CompressionType) = SetupGetFileCompressionInfoW(SourceFileName, ActualSourceFileName, SourceFileSize, TargetFileSize, CompressionType)

DECLARE FUNCTION SetupGetFileCompressionInfoExW LIB "SETUPAPI.DLL" ALIAS "SetupGetFileCompressionInfoExW" (BYREF SourceFileName AS ANY, _
                                                                                                           BYREF ActualSourceFileNameBuffer AS ANY, _
                                                                                                           BYVAL ActualSourceFileNameBufferLen AS DWORD, _
                                                                                                           BYREF RequiredBufferLen AS DWORD, _
                                                                                                           BYREF SourceFileSize AS DWORD, _
                                                                                                           BYREF TargetFileSize AS DWORD, _
                                                                                                           BYREF CompressionType AS DWORD) AS LONG
MACRO SetupGetFileCompressionInfoEx(SourceFileName, ActualSourceFileNameBuffer, ActualSourceFileNameBufferLen, RequiredBufferLen, SourceFileSize, TargetFileSize, CompressionType) = _
SetupGetFileCompressionInfoExW(SourceFileName, ActualSourceFileNameBuffer, ActualSourceFileNameBufferLen, RequiredBufferLen, SourceFileSize, TargetFileSize, CompressionType)

DECLARE FUNCTION SetupDecompressOrCopyFileW LIB "SETUPAPI.DLL" ALIAS "SetupDecompressOrCopyFileW" (BYREF SourceFileName AS ANY, _
                                                                                                   BYREF TargetFileName AS ANY, _
                                                                                                   BYREF CompressionType AS DWORD) AS DWORD
MACRO SetupDecompressOrCopyFile(SourceFileName, TargetFileName, CompressionType) = SetupDecompressOrCopyFileW(SourceFileName, TargetFileName, CompressionType)

DECLARE FUNCTION SetupGetSourceFileLocationW LIB "SETUPAPI.DLL" ALIAS "SetupGetSourceFileLocationW" (BYVAL InfHandle AS HINF, _
                                                                                                     BYREF inContext AS INFCONTEXT, _
                                                                                                     BYREF FileName AS ANY, _
                                                                                                     BYREF SourceId AS DWORD, _
                                                                                                     BYREF ReturnBuffer AS ANY, _
                                                                                                     BYVAL ReturnBufferSize AS DWORD, _
                                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetSourceFileLocation(InfHandle, inContext, FileName, SourceId, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetSourceFileLocationW(InfHandle, inContext, FileName, SourceId, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupGetSourceFileSizeW LIB "SETUPAPI.DLL" ALIAS "SetupGetSourceFileSizeW" (BYVAL InfHandle AS HINF, _
                                                                                             BYREF inContext AS INFCONTEXT, _
                                                                                             BYREF FileName AS ANY, _
                                                                                             BYREF Section AS ANY, _
                                                                                             BYREF FileSize AS DWORD, _
                                                                                             BYVAL RoundingFactor AS DWORD) AS LONG
MACRO SetupGetSourceFileSize(InfHandle, inContext, FileName, Section, FileSize, RoundingFactor) = SetupGetSourceFileSizeW(InfHandle, inContext, FileName, Section, FileSize, RoundingFactor)

DECLARE FUNCTION SetupGetTargetPathW LIB "SETUPAPI.DLL" ALIAS "SetupGetTargetPathW" (BYVAL InfHandle AS HINF, _
                                                                                     BYREF inContext AS INFCONTEXT, _
                                                                                     BYREF Section AS ANY, _
                                                                                     BYREF ReturnBuffer AS ANY, _
                                                                                     BYVAL ReturnBufferSize AS DWORD, _
                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetTargetPath(InfHandle, inContext, Section, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetTargetPathW(InfHandle, inContext, Section, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupSetSourceListW LIB "SETUPAPI.DLL" ALIAS "SetupSetSourceListW" (BYVAL Flags AS DWORD, _
                                                                                     BYREF SourceList AS ANY, _
                                                                                     BYVAL SourceCount AS DWORD) AS LONG
MACRO SetupSetSourceList(Flags, SourceList, SourceCount) = SetupSetSourceListW(Flags, SourceList, SourceCount)

DECLARE FUNCTION SetupAddToSourceListW LIB "SETUPAPI.DLL" ALIAS "SetupAddToSourceListW" (BYVAL Flags AS DWORD, _
                                                                                         BYREF Source AS ANY) AS LONG
MACRO SetupAddToSourceList(Flags, Source) = SetupAddToSourceListW(Flags, Source)

DECLARE FUNCTION SetupRemoveFromSourceListW LIB "SETUPAPI.DLL" ALIAS "SetupRemoveFromSourceListW" (BYVAL Flags AS DWORD, _
                                                                                                   BYREF Source AS ANY) AS LONG
MACRO SetupRemoveFromSourceList(Flags, Source) = SetupRemoveFromSourceListW(Flags, Source)

DECLARE FUNCTION SetupQuerySourceListW LIB "SETUPAPI.DLL" ALIAS "SetupQuerySourceListW" (BYVAL Flags AS DWORD, _
                                                                                         BYREF List AS ANY, _
                                                                                         BYREF Count AS DWORD) AS LONG
MACRO SetupQuerySourceList(Flags, List, Count) = SetupQuerySourceListW(Flags, List, Count)

DECLARE FUNCTION SetupFreeSourceListW LIB "SETUPAPI.DLL" ALIAS "SetupFreeSourceListW" (BYREF List AS ANY, _
                                                                                       BYVAL Count AS DWORD) AS LONG
MACRO SetupFreeSourceList(List, Count) = SetupFreeSourceListW(List, Count)

DECLARE FUNCTION SetupPromptForDiskW LIB "SETUPAPI.DLL" ALIAS "SetupPromptForDiskW" (BYVAL hwndParent AS DWORD, _
                                                                                     BYREF DialogTitle AS ANY, _
                                                                                     BYREF DiskName AS ANY, _
                                                                                     BYREF PathToSource AS ANY, _
                                                                                     BYREF FileSought AS ANY, _
                                                                                     BYREF TagFile AS ANY, _
                                                                                     BYVAL DiskPromptStyle AS DWORD, _
                                                                                     BYREF PathBuffer AS ANY, _
                                                                                     BYVAL PathBufferSize AS DWORD, _
                                                                                     BYREF PathRequiredSize AS DWORD) AS DWORD
MACRO SetupPromptForDisk(hwndParent, DialogTitle, DiskName, PathToSource, FileSought, TagFile, DiskPromptStyle, PathBuffer, PathBufferSize, PathRequiredSize) = _
SetupPromptForDiskW(hwndParent, DialogTitle, DiskName, PathToSource, FileSought, TagFile, DiskPromptStyle, PathBuffer, PathBufferSize, PathRequiredSize)

DECLARE FUNCTION SetupCopyErrorW LIB "SETUPAPI.DLL" ALIAS "SetupCopyErrorW" (BYVAL hwndParent AS DWORD, _
                                                                             BYREF DialogTitle AS ANY, _
                                                                             BYREF DiskName AS ANY, _
                                                                             BYREF PathToSource AS ANY, _
                                                                             BYREF SourceFile AS ANY, _
                                                                             BYREF TargetPathFile AS ANY, _
                                                                             BYVAL Win32ErrorCode AS DWORD, _
                                                                             BYVAL Style AS DWORD, _
                                                                             BYREF PathBuffer AS ANY, _
                                                                             BYVAL PathBufferSize AS DWORD, _
                                                                             BYREF PathRequiredSize AS DWORD) AS DWORD
MACRO SetupCopyError(hwndParent, DialogTitle, DiskName, PathToSource, SourceFile, TargetPathFile, Win32ErrorCode, Style, PathBuffer, PathBufferSize, PathRequiredSize) = _
SetupCopyErrorW(hwndParent, DialogTitle, DiskName, PathToSource, SourceFile, TargetPathFile, Win32ErrorCode, Style, PathBuffer, PathBufferSize, PathRequiredSize)

DECLARE FUNCTION SetupRenameErrorW LIB "SETUPAPI.DLL" ALIAS "SetupRenameErrorW" (BYVAL hwndParent AS DWORD, _
                                                                                 BYREF DialogTitle AS ANY, _
                                                                                 BYREF SourceFile AS ANY, _
                                                                                 BYREF TargetFile AS ANY, _
                                                                                 BYVAL Win32ErrorCode AS DWORD, _
                                                                                 BYVAL Style AS DWORD) AS DWORD
MACRO SetupRenameError(hwndParent, DialogTitle, SourceFile, TargetFile, Win32ErrorCode, Style) = SetupRenameErrorW(hwndParent, DialogTitle, SourceFile, TargetFile, Win32ErrorCode, Style)

DECLARE FUNCTION SetupDeleteErrorW LIB "SETUPAPI.DLL" ALIAS "SetupDeleteErrorW" (BYVAL hwndParent AS DWORD, _
                                                                                 BYREF DialogTitle AS ANY, _
                                                                                 BYREF File AS ANY, _
                                                                                 BYVAL Win32ErrorCode AS DWORD, _
                                                                                 BYVAL Style AS DWORD) AS DWORD
MACRO SetupDeleteError(hwndParent, DialogTitle, File, Win32ErrorCode, Style) = SetupDeleteErrorW(hwndParent, DialogTitle, File, Win32ErrorCode, Style)

DECLARE FUNCTION SetupBackupErrorW LIB "SETUPAPI.DLL" ALIAS "SetupBackupErrorW" (BYVAL hwndParent AS DWORD, _
                                                                                 BYREF DialogTitle AS ANY, _
                                                                                 BYREF SourceFile AS ANY, _
                                                                                 BYREF TargetFile AS ANY, _
                                                                                 BYVAL Win32ErrorCode AS DWORD, _
                                                                                 BYVAL Style AS DWORD) AS DWORD
MACRO SetupBackupError(hwndParent, DialogTitle, SourceFile, TargetFile, Win32ErrorCode, Style) = SetupBackupErrorW(hwndParent, DialogTitle, SourceFile, TargetFile, Win32ErrorCode, Style)

DECLARE FUNCTION SetupSetDirectoryIdW LIB "SETUPAPI.DLL" ALIAS "SetupSetDirectoryIdW" (BYVAL InfHandle AS HINF, _
                                                                                       BYVAL Id AS DWORD, _
                                                                                       BYREF Directory AS ANY) AS LONG
MACRO SetupSetDirectoryId(InfHandle, Id, Directory) = SetupSetDirectoryIdW(InfHandle, Id, Directory)

DECLARE FUNCTION SetupSetDirectoryIdExW LIB "SETUPAPI.DLL" ALIAS "SetupSetDirectoryIdExW" (BYVAL InfHandle AS HINF, _
                                                                                           BYVAL Id AS DWORD, _
                                                                                           BYREF Directory AS ANY, _
                                                                                           BYVAL Flags AS DWORD, _
                                                                                           BYVAL Reserved1 AS DWORD, _
                                                                                           BYREF Reserved2 AS ANY) AS LONG
MACRO SetupSetDirectoryIdEx(InfHandle, Id, Directory, Flags, Reserved1, Reserved2) = SetupSetDirectoryIdExW(InfHandle, Id, Directory, Flags, Reserved1, Reserved2)

DECLARE FUNCTION SetupGetSourceInfoW LIB "SETUPAPI.DLL" ALIAS "SetupGetSourceInfoW" (BYVAL InfHandle AS HINF, _
                                                                                     BYVAL SourceId AS DWORD, _
                                                                                     BYVAL InfoDesired AS DWORD, _
                                                                                     BYREF ReturnBuffer AS ANY, _
                                                                                     BYVAL ReturnBufferSize AS DWORD, _
                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetSourceInfo(InfHandle, SourceId, InfoDesired, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetSourceInfoW(InfHandle, SourceId, InfoDesired, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupInstallFileW LIB "SETUPAPI.DLL" ALIAS "SetupInstallFileW" (BYVAL InfHandle AS HINF, _
                                                                                 BYREF inContext AS INFCONTEXT, _
                                                                                 BYREF SourceFile AS ANY, _
                                                                                 BYREF SourcePathRoot AS ANY, _
                                                                                 BYREF DestinationName AS ANY, _
                                                                                 BYVAL CopyStyle AS DWORD, _
                                                                                 BYVAL CopyMsgHandler AS DWORD, _
                                                                                 BYREF inContext AS ANY) AS LONG
MACRO SetupInstallFile(InfHandle, inContext, SourceFile, SourcePathRoot, DestinationName, CopyStyle, CopyMsgHandler, inContext) = SetupInstallFileW(InfHandle, inContext, SourceFile, SourcePathRoot, DestinationName, CopyStyle, CopyMsgHandler, inContext)

DECLARE FUNCTION SetupInstallFileExW LIB "SETUPAPI.DLL" ALIAS "SetupInstallFileExW" (BYVAL InfHandle AS HINF, _
                                                                                     BYREF inContext AS INFCONTEXT, _
                                                                                     BYREF SourceFile AS ANY, _
                                                                                     BYREF SourcePathRoot AS ANY, _
                                                                                     BYREF DestinationName AS ANY, _
                                                                                     BYVAL CopyStyle AS DWORD, _
                                                                                     BYVAL CopyMsgHandler AS DWORD, _
                                                                                     BYREF inContext AS ANY, _
                                                                                     BYREF FileWasInUse AS LONG) AS LONG
MACRO SetupInstallFileEx(InfHandle, inContext, SourceFile, SourcePathRoot, DestinationName, CopyStyle, CopyMsgHandler, inContext, FileWasInUse) = _
SetupInstallFileExW(InfHandle, inContext, SourceFile, SourcePathRoot, DestinationName, CopyStyle, CopyMsgHandler, inContext, FileWasInUse)

DECLARE FUNCTION SetupSetFileQueueAlternatePlatformW LIB "SETUPAPI.DLL" ALIAS "SetupSetFileQueueAlternatePlatformW" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                                                     BYREF AlternatePlatformInfo AS SP_ALTPLATFORM_INFO, _
                                                                                                                     BYREF AlternateDefaultCatalogFile AS ANY) AS LONG
MACRO SetupSetFileQueueAlternatePlatform(QueueHandle, AlternatePlatformInfo, AlternateDefaultCatalogFile) = SetupSetFileQueueAlternatePlatformW(QueueHandle, AlternatePlatformInfo, AlternateDefaultCatalogFile)

DECLARE FUNCTION SetupSetPlatformPathOverrideW LIB "SETUPAPI.DLL" ALIAS "SetupSetPlatformPathOverrideW" (BYREF Override AS ANY) AS LONG
MACRO SetupSetPlatformPathOverride(Override) = SetupSetPlatformPathOverrideW(Override)

DECLARE FUNCTION SetupQueueCopyW LIB "SETUPAPI.DLL" ALIAS "SetupQueueCopyW" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                             BYREF SourceRootPath AS ANY, _
                                                                             BYREF SourcePath AS ANY, _
                                                                             BYREF SourceFilename AS ANY, _
                                                                             BYREF SourceDescription AS ANY, _
                                                                             BYREF SourceTagfile AS ANY, _
                                                                             BYREF TargetDirectory AS ANY, _
                                                                             BYREF TargetFilename AS ANY, _
                                                                             BYVAL CopyStyle AS DWORD) AS LONG
MACRO SetupQueueCopy(QueueHandle, SourceRootPath, SourcePath, SourceFilename, SourceDescription, SourceTagfile, TargetDirectory, TargetFilename, CopyStyle) = _
SetupQueueCopyW(QueueHandle, SourceRootPath, SourcePath, SourceFilename, SourceDescription, SourceTagfile, TargetDirectory, TargetFilename, CopyStyle)

DECLARE FUNCTION SetupQueueCopyIndirectW LIB "SETUPAPI.DLL" ALIAS "SetupQueueCopyIndirectW" (BYREF CopyParams AS SP_FILE_COPY_PARAMS_W) AS LONG
MACRO SetupQueueCopyIndirect(CopyParams) = SetupQueueCopyIndirectW(CopyParams)

DECLARE FUNCTION SetupQueueDefaultCopyW LIB "SETUPAPI.DLL" ALIAS "SetupQueueDefaultCopyW" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                           BYVAL InfHandle AS HINF, _
                                                                                           BYREF SourceRootPath AS ANY, _
                                                                                           BYREF SourceFilename AS ANY, _
                                                                                           BYREF TargetFilename AS ANY, _
                                                                                           BYVAL CopyStyle AS DWORD) AS LONG
MACRO SetupQueueDefaultCopy(QueueHandle, InfHandle, SourceRootPath, SourceFilename, TargetFilename, CopyStyle) = SetupQueueDefaultCopyW(QueueHandle, InfHandle, SourceRootPath, SourceFilename, TargetFilename, CopyStyle)

DECLARE FUNCTION SetupQueueCopySectionW LIB "SETUPAPI.DLL" ALIAS "SetupQueueCopySectionW" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                           BYREF SourceRootPath AS ANY, _
                                                                                           BYVAL InfHandle AS HINF, _
                                                                                           BYVAL ListInfHandle AS HINF, _
                                                                                           BYREF Section AS ANY, _
                                                                                           BYVAL CopyStyle AS DWORD) AS LONG
MACRO SetupQueueCopySection(QueueHandle, SourceRootPath, InfHandle, ListInfHandle, Section, CopyStyle) = SetupQueueCopySectionW(QueueHandle, SourceRootPath, InfHandle, ListInfHandle, Section, CopyStyle)

DECLARE FUNCTION SetupQueueDeleteW LIB "SETUPAPI.DLL" ALIAS "SetupQueueDeleteW" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                 BYREF PathPart1 AS ANY, _
                                                                                 BYREF PathPart2 AS ANY) AS LONG
MACRO SetupQueueDelete(QueueHandle, PathPart1, PathPart2) = SetupQueueDeleteW(QueueHandle, PathPart1, PathPart2)

DECLARE FUNCTION SetupQueueDeleteSectionW LIB "SETUPAPI.DLL" ALIAS "SetupQueueDeleteSectionW" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                               BYVAL InfHandle AS HINF, _
                                                                                               BYVAL ListInfHandle AS HINF, _
                                                                                               BYREF Section AS ANY) AS LONG
MACRO SetupQueueDeleteSection(QueueHandle, InfHandle, ListInfHandle, Section) = SetupQueueDeleteSectionW(QueueHandle, InfHandle, ListInfHandle, Section)

DECLARE FUNCTION SetupQueueRenameW LIB "SETUPAPI.DLL" ALIAS "SetupQueueRenameW" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                 BYREF SourcePath AS ANY, _
                                                                                 BYREF SourceFilename AS ANY, _
                                                                                 BYREF TargetPath AS ANY, _
                                                                                 BYREF TargetFilename AS ANY) AS LONG
MACRO SetupQueueRename(QueueHandle, SourcePath, SourceFilename, TargetPath, TargetFilename) = SetupQueueRenameW(QueueHandle, SourcePath, SourceFilename, TargetPath, TargetFilename)

DECLARE FUNCTION SetupQueueRenameSectionW LIB "SETUPAPI.DLL" ALIAS "SetupQueueRenameSectionW" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                               BYVAL InfHandle AS HINF, _
                                                                                               BYVAL ListInfHandle AS HINF, _
                                                                                               BYREF Section AS ANY) AS LONG
MACRO SetupQueueRenameSection(QueueHandle, InfHandle, ListInfHandle, Section) = SetupQueueRenameSectionW(QueueHandle, InfHandle, ListInfHandle, Section)

DECLARE FUNCTION SetupCommitFileQueueW LIB "SETUPAPI.DLL" ALIAS "SetupCommitFileQueueW" (BYVAL Owner AS DWORD, _
                                                                                         BYVAL QueueHandle AS HSPFILEQ, _
                                                                                         BYVAL MsgHandler AS DWORD, _
                                                                                         BYREF inContext AS ANY) AS LONG
MACRO SetupCommitFileQueue(Owner, QueueHandle, MsgHandler, inContext) = SetupCommitFileQueueW(Owner, QueueHandle, MsgHandler, inContext)

DECLARE FUNCTION SetupScanFileQueueW LIB "SETUPAPI.DLL" ALIAS "SetupScanFileQueueW" (BYVAL FileQueue AS HSPFILEQ, _
                                                                                     BYVAL Flags AS DWORD, _
                                                                                     BYVAL Window AS DWORD, _
                                                                                     BYVAL CallbackRoutine AS DWORD, _
                                                                                     BYREF CallbackContext AS ANY, _
                                                                                     BYREF Result AS DWORD) AS LONG
MACRO SetupScanFileQueue(FileQueue, Flags, Window, CallbackRoutine, CallbackContext, Result) = SetupScanFileQueueW(FileQueue, Flags, Window, CallbackRoutine, CallbackContext, Result)

DECLARE FUNCTION SetupCopyOEMInfW LIB "SETUPAPI.DLL" ALIAS "SetupCopyOEMInfW" (BYREF SourceInfFileName AS ANY, _
                                                                               BYREF OEMSourceMediaLocation AS ANY, _
                                                                               BYVAL OEMSourceMediaType AS DWORD, _
                                                                               BYVAL CopyStyle AS DWORD, _
                                                                               BYREF DestinationInfFileName AS ANY, _
                                                                               BYVAL DestinationInfFileNameSize AS DWORD, _
                                                                               BYREF RequiredSize AS DWORD, _
                                                                               BYREF DestinationInfFileNameComponent AS ANY) AS LONG
MACRO SetupCopyOEMInf(SourceInfFileName, OEMSourceMediaLocation, OEMSourceMediaType, CopyStyle, DestinationInfFileName, DestinationInfFileNameSize, RequiredSize, DestinationInfFileNameComponent) = _
SetupCopyOEMInfW(SourceInfFileName, OEMSourceMediaLocation, OEMSourceMediaType, CopyStyle, DestinationInfFileName, DestinationInfFileNameSize, RequiredSize, DestinationInfFileNameComponent)

DECLARE FUNCTION SetupUninstallOEMInfW LIB "SETUPAPI.DLL" ALIAS "SetupUninstallOEMInfW" (BYREF InfFileName AS ANY, _
                                                                                         BYVAL Flags AS DWORD, _
                                                                                         BYREF Reserved AS ANY) AS LONG
MACRO SetupUninstallOEMInf(InfFileName, Flags, Reserved) = SetupUninstallOEMInfW(InfFileName, Flags, Reserved)

DECLARE FUNCTION SetupCreateDiskSpaceListW LIB "SETUPAPI.DLL" ALIAS "SetupCreateDiskSpaceListW" (BYREF Reserved1 AS ANY, _
                                                                                                 BYVAL Reserved2 AS DWORD, _
                                                                                                 BYVAL Flags AS DWORD) AS HDSKSPC
MACRO SetupCreateDiskSpaceList(Reserved1, Reserved2, Flags) = SetupCreateDiskSpaceListW(Reserved1, Reserved2, Flags)

DECLARE FUNCTION SetupDuplicateDiskSpaceListW LIB "SETUPAPI.DLL" ALIAS "SetupDuplicateDiskSpaceListW" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                       BYREF Reserved1 AS ANY, _
                                                                                                       BYVAL Reserved2 AS DWORD, _
                                                                                                       BYVAL Flags AS DWORD) AS HDSKSPC
MACRO SetupDuplicateDiskSpaceList(DiskSpace, Reserved1, Reserved2, Flags) = SetupDuplicateDiskSpaceListW(DiskSpace, Reserved1, Reserved2, Flags)

DECLARE FUNCTION SetupQueryDrivesInDiskSpaceListW LIB "SETUPAPI.DLL" ALIAS "SetupQueryDrivesInDiskSpaceListW" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                               BYREF ReturnBuffer AS ANY, _
                                                                                                               BYVAL ReturnBufferSize AS DWORD, _
                                                                                                               BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupQueryDrivesInDiskSpaceList(DiskSpace, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupQueryDrivesInDiskSpaceListW(DiskSpace, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupQuerySpaceRequiredOnDriveW LIB "SETUPAPI.DLL" ALIAS "SetupQuerySpaceRequiredOnDriveW" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                             BYREF DriveSpec AS ANY, _
                                                                                                             BYREF SpaceRequired AS QUAD, _
                                                                                                             BYREF Reserved1 AS ANY, _
                                                                                                             BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupQuerySpaceRequiredOnDrive(DiskSpace, DriveSpec, SpaceRequired, Reserved1, Reserved2) = SetupQuerySpaceRequiredOnDriveW(DiskSpace, DriveSpec, SpaceRequired, Reserved1, Reserved2)

DECLARE FUNCTION SetupAdjustDiskSpaceListW LIB "SETUPAPI.DLL" ALIAS "SetupAdjustDiskSpaceListW" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                 BYREF DriveRoot AS ANY, _
                                                                                                 BYVAL Amount AS QUAD, _
                                                                                                 BYREF Reserved1 AS ANY, _
                                                                                                 BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupAdjustDiskSpaceList(DiskSpace, DriveRoot, Amount, Reserved1, Reserved2) = SetupAdjustDiskSpaceListW(DiskSpace, DriveRoot, Amount, Reserved1, Reserved2)

DECLARE FUNCTION SetupAddToDiskSpaceListW LIB "SETUPAPI.DLL" ALIAS "SetupAddToDiskSpaceListW" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                               BYREF TargetFilespec AS ANY, _
                                                                                               BYVAL FileSize AS QUAD, _
                                                                                               BYVAL Operation AS DWORD, _
                                                                                               BYREF Reserved1 AS ANY, _
                                                                                               BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupAddToDiskSpaceList(DiskSpace, TargetFilespec, FileSize, Operation, Reserved1, Reserved2) = SetupAddToDiskSpaceListW(DiskSpace, TargetFilespec, FileSize, Operation, Reserved1, Reserved2)

DECLARE FUNCTION SetupAddSectionToDiskSpaceListW LIB "SETUPAPI.DLL" ALIAS "SetupAddSectionToDiskSpaceListW" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                             BYVAL InfHandle AS HINF, _
                                                                                                             BYVAL ListInfHandle AS HINF, _
                                                                                                             BYREF SectionName AS ANY, _
                                                                                                             BYVAL Operation AS DWORD, _
                                                                                                             BYREF Reserved1 AS ANY, _
                                                                                                             BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupAddSectionToDiskSpaceList(DiskSpace, InfHandle, ListInfHandle, SectionName, Operation, Reserved1, Reserved2) = SetupAddSectionToDiskSpaceListW(DiskSpace, InfHandle, ListInfHandle, SectionName, Operation, Reserved1, Reserved2)

DECLARE FUNCTION SetupAddInstallSectionToDiskSpaceListW LIB "SETUPAPI.DLL" ALIAS "SetupAddInstallSectionToDiskSpaceListW" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                                           BYVAL InfHandle AS HINF, _
                                                                                                                           BYVAL LayoutInfHandle AS HINF, _
                                                                                                                           BYREF SectionName AS ANY, _
                                                                                                                           BYREF Reserved1 AS ANY, _
                                                                                                                           BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupAddInstallSectionToDiskSpaceList(DiskSpace, InfHandle, LayoutInfHandle, SectionName, Reserved1, Reserved2) = SetupAddInstallSectionToDiskSpaceListW(DiskSpace, InfHandle, LayoutInfHandle, SectionName, Reserved1, Reserved2)

DECLARE FUNCTION SetupRemoveFromDiskSpaceListW LIB "SETUPAPI.DLL" ALIAS "SetupRemoveFromDiskSpaceListW" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                         BYREF TargetFilespec AS ANY, _
                                                                                                         BYVAL Operation AS DWORD, _
                                                                                                         BYREF Reserved1 AS ANY, _
                                                                                                         BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupRemoveFromDiskSpaceList(DiskSpace, TargetFilespec, Operation, Reserved1, Reserved2) = SetupRemoveFromDiskSpaceListW(DiskSpace, TargetFilespec, Operation, Reserved1, Reserved2)

DECLARE FUNCTION SetupRemoveSectionFromDiskSpaceListW LIB "SETUPAPI.DLL" ALIAS "SetupRemoveSectionFromDiskSpaceListW" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                                       BYVAL InfHandle AS HINF, _
                                                                                                                       BYVAL ListInfHandle AS HINF, _
                                                                                                                       BYREF SectionName AS ANY, _
                                                                                                                       BYVAL Operation AS DWORD, _
                                                                                                                       BYREF Reserved1 AS ANY, _
                                                                                                                       BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupRemoveSectionFromDiskSpaceList(DiskSpace, InfHandle, ListInfHandle, SectionName, Operation, Reserved1, Reserved2) = SetupRemoveSectionFromDiskSpaceListW(DiskSpace, InfHandle, ListInfHandle, SectionName, Operation, Reserved1, Reserved2)

DECLARE FUNCTION SetupRemoveInstallSectionFromDiskSpaceListW LIB "SETUPAPI.DLL" ALIAS "SetupRemoveInstallSectionFromDiskSpaceListW" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                                                     BYVAL InfHandle AS HINF, _
                                                                                                                                     BYVAL LayoutInfHandle AS HINF, _
                                                                                                                                     BYREF SectionName AS ANY, _
                                                                                                                                     BYREF Reserved1 AS ANY, _
                                                                                                                                     BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupRemoveInstallSectionFromDiskSpaceList(DiskSpace, InfHandle, LayoutInfHandle, SectionName, Reserved1, Reserved2) = SetupRemoveInstallSectionFromDiskSpaceListW(DiskSpace, InfHandle, LayoutInfHandle, SectionName, Reserved1, Reserved2)

DECLARE FUNCTION SetupIterateCabinetW LIB "SETUPAPI.DLL" ALIAS "SetupIterateCabinetW" (BYREF CabinetFile AS ANY, _
                                                                                       BYVAL Reserved AS DWORD, _
                                                                                       BYVAL MsgHandler AS DWORD, _
                                                                                       BYREF inContext AS ANY) AS LONG
MACRO SetupIterateCabinet(CabinetFile, Reserved, MsgHandler, inContext) = SetupIterateCabinetW(CabinetFile, Reserved, MsgHandler, inContext)

DECLARE FUNCTION SetupDefaultQueueCallbackW LIB "SETUPAPI.DLL" ALIAS "SetupDefaultQueueCallbackW" (BYREF inContext AS ANY, _
                                                                                                   BYVAL Notification AS DWORD, _
                                                                                                   BYREF Param1 AS DWORD, _
                                                                                                   BYREF Param2 AS DWORD) AS DWORD
MACRO SetupDefaultQueueCallback(inContext, Notification, Param1, Param2) = SetupDefaultQueueCallbackW(inContext, Notification, Param1, Param2)

DECLARE FUNCTION SetupInstallFromInfSectionW LIB "SETUPAPI.DLL" ALIAS "SetupInstallFromInfSectionW" (BYVAL Owner AS DWORD, _
                                                                                                     BYVAL InfHandle AS HINF, _
                                                                                                     BYREF SectionName AS ANY, _
                                                                                                     BYVAL Flags AS DWORD, _
                                                                                                     BYVAL RelativeKeyRoot AS DWORD, _
                                                                                                     BYREF SourceRootPath AS ANY, _
                                                                                                     BYVAL CopyFlags AS DWORD, _
                                                                                                     BYVAL MsgHandler AS DWORD, _
                                                                                                     BYREF inContext AS ANY, _
                                                                                                     BYVAL DeviceInfoSet AS DWORD, _
                                                                                                     BYREF PSP_DEVINFO_DATA AS SP_DEVINFO_DATA) AS LONG
MACRO SetupInstallFromInfSection(Owner, InfHandle, SectionName, Flags, RelativeKeyRoot, SourceRootPath, CopyFlags, MsgHandler, inContext, DeviceInfoSet, PSP_DEVINFO_DATA) = _
SetupInstallFromInfSectionW(Owner, InfHandle, SectionName, Flags, RelativeKeyRoot, SourceRootPath, CopyFlags, MsgHandler, inContext, DeviceInfoSet, PSP_DEVINFO_DATA)

DECLARE FUNCTION SetupInstallFilesFromInfSectionW LIB "SETUPAPI.DLL" ALIAS "SetupInstallFilesFromInfSectionW" (BYVAL InfHandle AS HINF, _
                                                                                                               BYVAL LayoutInfHandle AS HINF, _
                                                                                                               BYVAL FileQueue AS HSPFILEQ, _
                                                                                                               BYREF SectionName AS ANY, _
                                                                                                               BYREF SourceRootPath AS ANY, _
                                                                                                               BYVAL CopyFlags AS DWORD) AS LONG
MACRO SetupInstallFilesFromInfSection(InfHandle, LayoutInfHandle, FileQueue, SectionName, SourceRootPath, CopyFlags) = SetupInstallFilesFromInfSectionW(InfHandle, LayoutInfHandle, FileQueue, SectionName, SourceRootPath, CopyFlags)

DECLARE FUNCTION SetupInstallServicesFromInfSectionW LIB "SETUPAPI.DLL" ALIAS "SetupInstallServicesFromInfSectionW" (BYVAL InfHandle AS HINF, _
                                                                                                                     BYREF SectionName AS ANY, _
                                                                                                                     BYVAL Flags AS DWORD) AS LONG
MACRO SetupInstallServicesFromInfSection(InfHandle, SectionName, Flags) = SetupInstallServicesFromInfSectionW(InfHandle, SectionName, Flags)

DECLARE FUNCTION SetupInstallServicesFromInfSectionExW LIB "SETUPAPI.DLL" ALIAS "SetupInstallServicesFromInfSectionExW" (BYVAL InfHandle AS HINF, _
                                                                                                                         BYREF SectionName AS ANY, _
                                                                                                                         BYVAL Flags AS DWORD, _
                                                                                                                         BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                         BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                                         BYREF Reserved1 AS ANY, _
                                                                                                                         BYREF Reserved2 AS ANY) AS LONG
MACRO SetupInstallServicesFromInfSectionEx(InfHandle, SectionName, Flags, DeviceInfoSet, DeviceInfoData, Reserved1, Reserved2) = SetupInstallServicesFromInfSectionExW(InfHandle, SectionName, Flags, DeviceInfoSet, DeviceInfoData, Reserved1, Reserved2)

DECLARE FUNCTION SetupInitializeFileLogW LIB "SETUPAPI.DLL" ALIAS "SetupInitializeFileLogW" (BYREF LogFileName AS ANY, _
                                                                                             BYVAL Flags AS DWORD) AS HSPFILELOG
MACRO SetupInitializeFileLog(LogFileName, Flags) = SetupInitializeFileLogW(LogFileName, Flags)

DECLARE FUNCTION SetupLogFileW LIB "SETUPAPI.DLL" ALIAS "SetupLogFileW" (BYVAL FileLogHandle AS HSPFILELOG, _
                                                                         BYREF LogSectionName AS ANY, _
                                                                         BYREF SourceFilename AS ANY, _
                                                                         BYREF TargetFilename AS ANY, _
                                                                         BYVAL Checksum AS DWORD, _
                                                                         BYREF DiskTagfile AS ANY, _
                                                                         BYREF DiskDescription AS ANY, _
                                                                         BYREF OtherInfo AS ANY, _
                                                                         BYVAL Flags AS DWORD) AS LONG
MACRO SetupLogFile(FileLogHandle, LogSectionName, SourceFilename, TargetFilename, Checksum, DiskTagfile, DiskDescription, OtherInfo, Flags) = _
SetupLogFileW(FileLogHandle, LogSectionName, SourceFilename, TargetFilename, Checksum, DiskTagfile, DiskDescription, OtherInfo, Flags)

DECLARE FUNCTION SetupRemoveFileLogEntryW LIB "SETUPAPI.DLL" ALIAS "SetupRemoveFileLogEntryW" (BYVAL FileLogHandle AS HSPFILELOG, _
                                                                                               BYREF LogSectionName AS ANY, _
                                                                                               BYREF TargetFilename AS ANY) AS LONG
MACRO SetupRemoveFileLogEntry(FileLogHandle, LogSectionName, TargetFilename) = SetupRemoveFileLogEntryW(FileLogHandle, LogSectionName, TargetFilename)

DECLARE FUNCTION SetupQueryFileLogW LIB "SETUPAPI.DLL" ALIAS "SetupQueryFileLogW" (BYVAL FileLogHandle AS HSPFILELOG, _
                                                                                   BYREF LogSectionName AS ANY, _
                                                                                   BYREF TargetFilename AS ANY, _
                                                                                   BYVAL DesiredInfo AS LONG, _
                                                                                   BYREF DataOut AS ANY, _
                                                                                   BYVAL ReturnBufferSize AS DWORD, _
                                                                                   BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupQueryFileLog(FileLogHandle, LogSectionName, TargetFilename, DesiredInfo, DataOut, ReturnBufferSize, RequiredSize) = SetupQueryFileLogW(FileLogHandle, LogSectionName, TargetFilename, DesiredInfo, DataOut, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupLogErrorW LIB "SETUPAPI.DLL" ALIAS "SetupLogErrorW" (BYREF MessageString AS ANY, _
                                                                           BYVAL Severity AS LogSeverity) AS LONG
MACRO SetupLogError(MessageString, Severity) = SetupLogErrorW(MessageString, Severity)

DECLARE FUNCTION SetupGetBackupInformationW LIB "SETUPAPI.DLL" ALIAS "SetupGetBackupInformationW" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                                   BYREF BackupParams AS SP_BACKUP_QUEUE_PARAMS_W) AS LONG
MACRO SetupGetBackupInformation(QueueHandle, BackupParams) = SetupGetBackupInformationW(QueueHandle, BackupParams)

DECLARE FUNCTION SetupPrepareQueueForRestoreW LIB "SETUPAPI.DLL" ALIAS "SetupPrepareQueueForRestoreW" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                                       BYREF BackupPath AS ANY, _
                                                                                                       BYVAL RestoreFlags AS DWORD) AS LONG
MACRO SetupPrepareQueueForRestore(QueueHandle, BackupPath, RestoreFlags) = SetupPrepareQueueForRestoreW(QueueHandle, BackupPath, RestoreFlags)

DECLARE FUNCTION SetupDiCreateDeviceInfoListExW LIB "SETUPAPI.DLL" ALIAS "SetupDiCreateDeviceInfoListExW" (BYREF ClassGuid AS GUID, _
                                                                                                           BYVAL hwndParent AS DWORD, _
                                                                                                           BYREF MachineName AS ANY, _
                                                                                                           BYREF Reserved AS ANY) AS DWORD
MACRO SetupDiCreateDeviceInfoListEx(ClassGuid, hwndParent, MachineName, Reserved) = SetupDiCreateDeviceInfoListExW(ClassGuid, hwndParent, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetDeviceInfoListDetailW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceInfoListDetailW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                             BYREF DeviceInfoSetDetailData AS SP_DEVINFO_LIST_DETAIL_DATA_W) AS LONG
MACRO SetupDiGetDeviceInfoListDetail(DeviceInfoSet, DeviceInfoSetDetailData) = SetupDiGetDeviceInfoListDetailW(DeviceInfoSet, DeviceInfoSetDetailData)

DECLARE FUNCTION SetupDiCreateDeviceInfoW LIB "SETUPAPI.DLL" ALIAS "SetupDiCreateDeviceInfoW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                               BYREF DeviceName AS ANY, _
                                                                                               BYREF ClassGuid AS GUID, _
                                                                                               BYREF DeviceDescription AS ANY, _
                                                                                               BYVAL hwndParent AS DWORD, _
                                                                                               BYVAL CreationFlags AS DWORD, _
                                                                                               BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
MACRO SetupDiCreateDeviceInfo(DeviceInfoSet, DeviceName, ClassGuid, DeviceDescription, hwndParent, CreationFlags, DeviceInfoData) = SetupDiCreateDeviceInfoW(DeviceInfoSet, DeviceName, ClassGuid, DeviceDescription, hwndParent, CreationFlags, DeviceInfoData)

DECLARE FUNCTION SetupDiOpenDeviceInfoW LIB "SETUPAPI.DLL" ALIAS "SetupDiOpenDeviceInfoW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                           BYREF DeviceInstanceId AS ANY, _
                                                                                           BYVAL hwndParent AS DWORD, _
                                                                                           BYVAL OpenFlags AS DWORD, _
                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
MACRO SetupDiOpenDeviceInfo(DeviceInfoSet, DeviceInstanceId, hwndParent, OpenFlags, DeviceInfoData) = SetupDiOpenDeviceInfoW(DeviceInfoSet, DeviceInstanceId, hwndParent, OpenFlags, DeviceInfoData)

DECLARE FUNCTION SetupDiGetDeviceInstanceIdW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceInstanceIdW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                     BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                     BYREF DeviceInstanceId AS ANY, _
                                                                                                     BYVAL DeviceInstanceIdSize AS DWORD, _
                                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetDeviceInstanceId(DeviceInfoSet, DeviceInfoData, DeviceInstanceId, DeviceInstanceIdSize, RequiredSize) = SetupDiGetDeviceInstanceIdW(DeviceInfoSet, DeviceInfoData, DeviceInstanceId, DeviceInstanceIdSize, RequiredSize)

DECLARE FUNCTION SetupDiCreateDeviceInterfaceW LIB "SETUPAPI.DLL" ALIAS "SetupDiCreateDeviceInterfaceW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                         BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                         BYREF InterfaceClassGuid AS GUID, _
                                                                                                         BYREF ReferenceString AS ANY, _
                                                                                                         BYVAL CreationFlags AS DWORD, _
                                                                                                         BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA) AS LONG
MACRO SetupDiCreateDeviceInterface(DeviceInfoSet, DeviceInfoData, InterfaceClassGuid, ReferenceString, CreationFlags, DeviceInterfaceData) = _
SetupDiCreateDeviceInterfaceW(DeviceInfoSet, DeviceInfoData, InterfaceClassGuid, ReferenceString, CreationFlags, DeviceInterfaceData)

DECLARE FUNCTION SetupDiOpenDeviceInterfaceW LIB "SETUPAPI.DLL" ALIAS "SetupDiOpenDeviceInterfaceW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                     BYREF DevicePath AS ANY, _
                                                                                                     BYVAL OpenFlags AS DWORD, _
                                                                                                     BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA) AS LONG
MACRO SetupDiOpenDeviceInterface(DeviceInfoSet, DevicePath, OpenFlags, DeviceInterfaceData) = SetupDiOpenDeviceInterfaceW(DeviceInfoSet, DevicePath, OpenFlags, DeviceInterfaceData)

DECLARE FUNCTION SetupDiGetDeviceInterfaceDetailW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceInterfaceDetailW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                               BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA, _
                                                                                                               BYREF DeviceInterfaceDetailData AS SP_DEVICE_INTERFACE_DETAIL_DATA_W, _
                                                                                                               BYVAL DeviceInterfaceDetailDataSize AS DWORD, _
                                                                                                               BYREF RequiredSize AS DWORD, _
                                                                                                               BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
MACRO SetupDiGetDeviceInterfaceDetail(DeviceInfoSet, DeviceInterfaceData, DeviceInterfaceDetailData, DeviceInterfaceDetailDataSize, RequiredSize, DeviceInfoData) = _
SetupDiGetDeviceInterfaceDetailW(DeviceInfoSet, DeviceInterfaceData, DeviceInterfaceDetailData, DeviceInterfaceDetailDataSize, RequiredSize, DeviceInfoData)

DECLARE FUNCTION SetupDiEnumDriverInfoW LIB "SETUPAPI.DLL" ALIAS "SetupDiEnumDriverInfoW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                           BYVAL DriverType AS DWORD, _
                                                                                           BYVAL MemberIndex AS DWORD, _
                                                                                           BYREF DriverInfoData AS SP_DRVINFO_DATA_W) AS LONG
MACRO SetupDiEnumDriverInfo(DeviceInfoSet, DeviceInfoData, DriverType, MemberIndex, DriverInfoData) = SetupDiEnumDriverInfoW(DeviceInfoSet, DeviceInfoData, DriverType, MemberIndex, DriverInfoData)

DECLARE FUNCTION SetupDiGetSelectedDriverW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetSelectedDriverW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                 BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                 BYREF DriverInfoData AS SP_DRVINFO_DATA_W) AS LONG
MACRO SetupDiGetSelectedDriver(DeviceInfoSet, DeviceInfoData, DriverInfoData) = SetupDiGetSelectedDriverW(DeviceInfoSet, DeviceInfoData, DriverInfoData)

DECLARE FUNCTION SetupDiSetSelectedDriverW LIB "SETUPAPI.DLL" ALIAS "SetupDiSetSelectedDriverW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                 BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                 BYREF DriverInfoData AS ANY) AS LONG
MACRO SetupDiSetSelectedDriver(DeviceInfoSet, DeviceInfoData, DriverInfoData) = SetupDiSetSelectedDriverW(DeviceInfoSet, DeviceInfoData, DriverInfoData)

DECLARE FUNCTION SetupDiGetDriverInfoDetailW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDriverInfoDetailW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                     BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                     BYREF DriverInfoData AS SP_DRVINFO_DATA_W, _
                                                                                                     BYREF DriverInfoDetailData AS SP_DRVINFO_DETAIL_DATA_W, _
                                                                                                     BYVAL DriverInfoDetailDataSize AS DWORD, _
                                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetDriverInfoDetail(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInfoDetailData, DriverInfoDetailDataSize, RequiredSize) = _
SetupDiGetDriverInfoDetailW(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInfoDetailData, DriverInfoDetailDataSize, RequiredSize)

DECLARE FUNCTION SetupDiGetClassDevsW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassDevsW" (BYREF ClassGuid AS GUID, _
                                                                                       BYREF Enumerator AS ANY, _
                                                                                       BYVAL hwndParent AS DWORD, _
                                                                                       BYVAL Flags AS DWORD) AS DWORD
MACRO SetupDiGetClassDevs(ClassGuid, Enumerator, hwndParent, Flags) = SetupDiGetClassDevsW(ClassGuid, Enumerator, hwndParent, Flags)

DECLARE FUNCTION SetupDiGetClassDevsExW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassDevsExW" (BYREF ClassGuid AS GUID, _
                                                                                           BYREF Enumerator AS ANY, _
                                                                                           BYVAL hwndParent AS DWORD, _
                                                                                           BYVAL Flags AS DWORD, _
                                                                                           BYVAL DeviceInfoSet AS DWORD, _
                                                                                           BYREF MachineName AS ANY, _
                                                                                           BYREF Reserved AS ANY) AS DWORD
MACRO SetupDiGetClassDevsEx(ClassGuid, Enumerator, hwndParent, Flags, DeviceInfoSet, MachineName, Reserved) = SetupDiGetClassDevsExW(ClassGuid, Enumerator, hwndParent, Flags, DeviceInfoSet, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetINFClassW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetINFClassW" (BYREF InfName AS ANY, _
                                                                                     BYREF ClassGuid AS GUID, _
                                                                                     BYREF ClassName AS ANY, _
                                                                                     BYVAL ClassNameSize AS DWORD, _
                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetINFClass(InfName, ClassGuid, ClassName, ClassNameSize, RequiredSize) = SetupDiGetINFClassW(InfName, ClassGuid, ClassName, ClassNameSize, RequiredSize)

DECLARE FUNCTION SetupDiBuildClassInfoListExW LIB "SETUPAPI.DLL" ALIAS "SetupDiBuildClassInfoListExW" (BYVAL Flags AS DWORD, _
                                                                                                       BYREF ClassGuidList AS GUID, _
                                                                                                       BYVAL ClassGuidListSize AS DWORD, _
                                                                                                       BYREF RequiredSize AS DWORD, _
                                                                                                       BYREF MachineName AS ANY, _
                                                                                                       BYREF Reserved AS ANY) AS LONG
MACRO SetupDiBuildClassInfoListEx(Flags, ClassGuidList, ClassGuidListSize, RequiredSize, MachineName, Reserved) = SetupDiBuildClassInfoListExW(Flags, ClassGuidList, ClassGuidListSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetClassDescriptionW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassDescriptionW" (BYREF ClassGuid AS GUID, _
                                                                                                     BYREF ClassDescription AS ANY, _
                                                                                                     BYVAL ClassDescriptionSize AS DWORD, _
                                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetClassDescription(ClassGuid, ClassDescription, ClassDescriptionSize, RequiredSize) = SetupDiGetClassDescriptionW(ClassGuid, ClassDescription, ClassDescriptionSize, RequiredSize)

DECLARE FUNCTION SetupDiGetClassDescriptionExW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassDescriptionExW" (BYREF ClassGuid AS GUID, _
                                                                                                         BYREF ClassDescription AS ANY, _
                                                                                                         BYVAL ClassDescriptionSize AS DWORD, _
                                                                                                         BYREF RequiredSize AS DWORD, _
                                                                                                         BYREF MachineName AS ANY, _
                                                                                                         BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetClassDescriptionEx(ClassGuid, ClassDescription, ClassDescriptionSize, RequiredSize, MachineName, Reserved) = SetupDiGetClassDescriptionExW(ClassGuid, ClassDescription, ClassDescriptionSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiInstallClassW LIB "SETUPAPI.DLL" ALIAS "SetupDiInstallClassW" (BYVAL hwndParent AS DWORD, _
                                                                                       BYREF InfFileName AS ANY, _
                                                                                       BYVAL Flags AS DWORD, _
                                                                                       BYVAL FileQueue AS HSPFILEQ) AS LONG
MACRO SetupDiInstallClass(hwndParent, InfFileName, Flags, FileQueue) = SetupDiInstallClassW(hwndParent, InfFileName, Flags, FileQueue)

DECLARE FUNCTION SetupDiInstallClassExW LIB "SETUPAPI.DLL" ALIAS "SetupDiInstallClassExW" (BYVAL hwndParent AS DWORD, _
                                                                                           BYREF InfFileName AS ANY, _
                                                                                           BYVAL Flags AS DWORD, _
                                                                                           BYVAL FileQueue AS HSPFILEQ, _
                                                                                           BYREF InterfaceClassGuid AS GUID, _
                                                                                           BYREF Reserved1 AS ANY, _
                                                                                           BYREF Reserved2 AS ANY) AS LONG
MACRO SetupDiInstallClassEx(hwndParent, InfFileName, Flags, FileQueue, InterfaceClassGuid, Reserved1, Reserved2) = SetupDiInstallClassExW(hwndParent, InfFileName, Flags, FileQueue, InterfaceClassGuid, Reserved1, Reserved2)

DECLARE FUNCTION SetupDiOpenClassRegKeyExW LIB "SETUPAPI.DLL" ALIAS "SetupDiOpenClassRegKeyExW" (BYREF ClassGuid AS GUID, _
                                                                                                 BYVAL samDesired AS DWORD, _
                                                                                                 BYVAL Flags AS DWORD, _
                                                                                                 BYREF MachineName AS ANY, _
                                                                                                 BYREF Reserved AS ANY) AS DWORD
MACRO SetupDiOpenClassRegKeyEx(ClassGuid, samDesired, Flags, MachineName, Reserved) = SetupDiOpenClassRegKeyExW(ClassGuid, samDesired, Flags, MachineName, Reserved)

DECLARE FUNCTION SetupDiCreateDeviceInterfaceRegKeyW LIB "SETUPAPI.DLL" ALIAS "SetupDiCreateDeviceInterfaceRegKeyW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                     BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA, _
                                                                                                                     BYVAL Reserved AS DWORD, _
                                                                                                                     BYVAL samDesired AS DWORD, _
                                                                                                                     BYVAL InfHandle AS HINF, _
                                                                                                                     BYREF InfSectionName AS ANY) AS DWORD
MACRO SetupDiCreateDeviceInterfaceRegKey(DeviceInfoSet, DeviceInterfaceData, Reserved, samDesired, InfHandle, InfSectionName) = SetupDiCreateDeviceInterfaceRegKeyW(DeviceInfoSet, DeviceInterfaceData, Reserved, samDesired, InfHandle, InfSectionName)

DECLARE FUNCTION SetupDiCreateDevRegKeyW LIB "SETUPAPI.DLL" ALIAS "SetupDiCreateDevRegKeyW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                             BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                             BYVAL Scope AS DWORD, _
                                                                                             BYVAL HwProfile AS DWORD, _
                                                                                             BYVAL KeyType AS DWORD, _
                                                                                             BYVAL InfHandle AS HINF, _
                                                                                             BYREF InfSectionName AS ANY) AS DWORD
MACRO SetupDiCreateDevRegKey(DeviceInfoSet, DeviceInfoData, Scope, HwProfile, KeyType, InfHandle, InfSectionName) = SetupDiCreateDevRegKeyW(DeviceInfoSet, DeviceInfoData, Scope, HwProfile, KeyType, InfHandle, InfSectionName)

DECLARE FUNCTION SetupDiGetHwProfileListExW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetHwProfileListExW" (BYREF HwProfileList AS DWORD, _
                                                                                                   BYVAL HwProfileListSize AS DWORD, _
                                                                                                   BYREF RequiredSize AS DWORD, _
                                                                                                   BYREF CurrentlyActiveIndex AS DWORD, _
                                                                                                   BYREF MachineName AS ANY, _
                                                                                                   BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetHwProfileListEx(HwProfileList, HwProfileListSize, RequiredSize, CurrentlyActiveIndex, MachineName, Reserved) = SetupDiGetHwProfileListExW(HwProfileList, HwProfileListSize, RequiredSize, CurrentlyActiveIndex, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetDeviceRegistryPropertyW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceRegistryPropertyW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                 BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                                 BYVAL Property AS DWORD, _
                                                                                                                 BYREF PropertyRegDataType AS DWORD, _
                                                                                                                 BYREF PropertyBuffer AS ANY, _
                                                                                                                 BYVAL PropertyBufferSize AS DWORD, _
                                                                                                                 BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetDeviceRegistryProperty(DeviceInfoSet, DeviceInfoData, Property, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize) = _
SetupDiGetDeviceRegistryPropertyW(DeviceInfoSet, DeviceInfoData, Property, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize)

DECLARE FUNCTION SetupDiGetClassRegistryPropertyW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassRegistryPropertyW" (BYREF ClassGuid AS GUID, _
                                                                                                               BYVAL Property AS DWORD, _
                                                                                                               BYREF PropertyRegDataType AS DWORD, _
                                                                                                               BYREF PropertyBuffer AS ANY, _
                                                                                                               BYVAL PropertyBufferSize AS DWORD, _
                                                                                                               BYREF RequiredSize AS DWORD, _
                                                                                                               BYREF MachineName AS ANY, _
                                                                                                               BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetClassRegistryProperty(ClassGuid, Property, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize, MachineName, Reserved) = _
SetupDiGetClassRegistryPropertyW(ClassGuid, Property, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiSetDeviceRegistryPropertyW LIB "SETUPAPI.DLL" ALIAS "SetupDiSetDeviceRegistryPropertyW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                 BYREF DeviceInfoData AS ANY, _
                                                                                                                 BYVAL Property AS DWORD, _
                                                                                                                 BYREF PropertyBuffer AS BYTE, _
                                                                                                                 BYVAL PropertyBufferSize AS DWORD) AS LONG
MACRO SetupDiSetDeviceRegistryProperty(DeviceInfoSet, DeviceInfoData, Property, PropertyBuffer, PropertyBufferSize) = SetupDiSetDeviceRegistryPropertyW(DeviceInfoSet, DeviceInfoData, Property, PropertyBuffer, PropertyBufferSize)

DECLARE FUNCTION SetupDiSetClassRegistryPropertyW LIB "SETUPAPI.DLL" ALIAS "SetupDiSetClassRegistryPropertyW" (BYREF ClassGuid AS GUID, _
                                                                                                               BYVAL Property AS DWORD, _
                                                                                                               BYREF PropertyBuffer AS BYTE, _
                                                                                                               BYVAL PropertyBufferSize AS DWORD, _
                                                                                                               BYREF MachineName AS ANY, _
                                                                                                               BYREF Reserved AS ANY) AS LONG
MACRO SetupDiSetClassRegistryProperty(ClassGuid, Property, PropertyBuffer, PropertyBufferSize, MachineName, Reserved) = SetupDiSetClassRegistryPropertyW(ClassGuid, Property, PropertyBuffer, PropertyBufferSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetDeviceInstallParamsW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceInstallParamsW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                           BYREF DeviceInstallParams AS SP_DEVINSTALL_PARAMS_W) AS LONG
MACRO SetupDiGetDeviceInstallParams(DeviceInfoSet, DeviceInfoData, DeviceInstallParams) = SetupDiGetDeviceInstallParamsW(DeviceInfoSet, DeviceInfoData, DeviceInstallParams)

DECLARE FUNCTION SetupDiGetClassInstallParamsW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassInstallParamsW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                         BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                         BYREF ClassInstallParams AS SP_CLASSINSTALL_HEADER, _
                                                                                                         BYVAL ClassInstallParamsSize AS DWORD, _
                                                                                                         BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetClassInstallParams(DeviceInfoSet, DeviceInfoData, ClassInstallParams, ClassInstallParamsSize, RequiredSize) = SetupDiGetClassInstallParamsW(DeviceInfoSet, DeviceInfoData, ClassInstallParams, ClassInstallParamsSize, RequiredSize)

DECLARE FUNCTION SetupDiSetDeviceInstallParamsW LIB "SETUPAPI.DLL" ALIAS "SetupDiSetDeviceInstallParamsW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                           BYREF DeviceInstallParams AS SP_DEVINSTALL_PARAMS_W) AS LONG
MACRO SetupDiSetDeviceInstallParams(DeviceInfoSet, DeviceInfoData, DeviceInstallParams) = SetupDiSetDeviceInstallParamsW(DeviceInfoSet, DeviceInfoData, DeviceInstallParams)

DECLARE FUNCTION SetupDiSetClassInstallParamsW LIB "SETUPAPI.DLL" ALIAS "SetupDiSetClassInstallParamsW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                         BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                         BYREF ClassInstallParams AS SP_CLASSINSTALL_HEADER, _
                                                                                                         BYVAL ClassInstallParamsSize AS DWORD) AS LONG
MACRO SetupDiSetClassInstallParams(DeviceInfoSet, DeviceInfoData, ClassInstallParams, ClassInstallParamsSize) = SetupDiSetClassInstallParamsW(DeviceInfoSet, DeviceInfoData, ClassInstallParams, ClassInstallParamsSize)

DECLARE FUNCTION SetupDiGetDriverInstallParamsW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDriverInstallParamsW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                           BYREF DriverInfoData AS SP_DRVINFO_DATA_W, _
                                                                                                           BYREF DriverInstallParams AS SP_DRVINSTALL_PARAMS) AS LONG
MACRO SetupDiGetDriverInstallParams(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInstallParams) = SetupDiGetDriverInstallParamsW(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInstallParams)

DECLARE FUNCTION SetupDiSetDriverInstallParamsW LIB "SETUPAPI.DLL" ALIAS "SetupDiSetDriverInstallParamsW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                           BYREF DriverInfoData AS SP_DRVINFO_DATA_W, _
                                                                                                           BYREF DriverInstallParams AS SP_DRVINSTALL_PARAMS) AS LONG
MACRO SetupDiSetDriverInstallParams(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInstallParams) = SetupDiSetDriverInstallParamsW(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInstallParams)

DECLARE FUNCTION SetupDiGetClassImageListExW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassImageListExW" (BYREF ClassImageListData AS SP_CLASSIMAGELIST_DATA, _
                                                                                                     BYREF MachineName AS ANY, _
                                                                                                     BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetClassImageListEx(ClassImageListData, MachineName, Reserved) = SetupDiGetClassImageListExW(ClassImageListData, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetClassDevPropertySheetsW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassDevPropertySheetsW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                 BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                                 BYVAL PropertySheetHeader AS DWORD, _
                                                                                                                 BYVAL PropertySheetHeaderPageListSize AS DWORD, _
                                                                                                                 BYREF RequiredSize AS DWORD, _
                                                                                                                 BYVAL PropertySheetType AS DWORD) AS LONG
MACRO SetupDiGetClassDevPropertySheets(DeviceInfoSet, DeviceInfoData, PropertySheetHeader, PropertySheetHeaderPageListSize, RequiredSize, PropertySheetType) = _
SetupDiGetClassDevPropertySheetsW(DeviceInfoSet, DeviceInfoData, PropertySheetHeader, PropertySheetHeaderPageListSize, RequiredSize, PropertySheetType)

DECLARE FUNCTION SetupDiClassNameFromGuidW LIB "SETUPAPI.DLL" ALIAS "SetupDiClassNameFromGuidW" (BYREF ClassGuid AS GUID, _
                                                                                                 BYREF ClassName AS ANY, _
                                                                                                 BYVAL ClassNameSize AS DWORD, _
                                                                                                 BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiClassNameFromGuid(ClassGuid, ClassName, ClassNameSize, RequiredSize) = SetupDiClassNameFromGuidW(ClassGuid, ClassName, ClassNameSize, RequiredSize)

DECLARE FUNCTION SetupDiClassNameFromGuidExW LIB "SETUPAPI.DLL" ALIAS "SetupDiClassNameFromGuidExW" (BYREF ClassGuid AS GUID, _
                                                                                                     BYREF ClassName AS ANY, _
                                                                                                     BYVAL ClassNameSize AS DWORD, _
                                                                                                     BYREF RequiredSize AS DWORD, _
                                                                                                     BYREF MachineName AS ANY, _
                                                                                                     BYREF Reserved AS ANY) AS LONG
MACRO SetupDiClassNameFromGuidEx(ClassGuid, ClassName, ClassNameSize, RequiredSize, MachineName, Reserved) = SetupDiClassNameFromGuidExW(ClassGuid, ClassName, ClassNameSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiClassGuidsFromNameW LIB "SETUPAPI.DLL" ALIAS "SetupDiClassGuidsFromNameW" (BYREF ClassName AS ANY, _
                                                                                                   BYREF ClassGuidList AS GUID, _
                                                                                                   BYVAL ClassGuidListSize AS DWORD, _
                                                                                                   BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiClassGuidsFromName(ClassName, ClassGuidList, ClassGuidListSize, RequiredSize) = SetupDiClassGuidsFromNameW(ClassName, ClassGuidList, ClassGuidListSize, RequiredSize)

DECLARE FUNCTION SetupDiClassGuidsFromNameExW LIB "SETUPAPI.DLL" ALIAS "SetupDiClassGuidsFromNameExW" (BYREF ClassName AS ANY, _
                                                                                                       BYREF ClassGuidList AS GUID, _
                                                                                                       BYVAL ClassGuidListSize AS DWORD, _
                                                                                                       BYREF RequiredSize AS DWORD, _
                                                                                                       BYREF MachineName AS ANY, _
                                                                                                       BYREF Reserved AS ANY) AS LONG
MACRO SetupDiClassGuidsFromNameEx(ClassName, ClassGuidList, ClassGuidListSize, RequiredSize, MachineName, Reserved) = SetupDiClassGuidsFromNameExW(ClassName, ClassGuidList, ClassGuidListSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetHwProfileFriendlyNameW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetHwProfileFriendlyNameW" (BYVAL HwProfile AS DWORD, _
                                                                                                               BYREF FriendlyName AS ANY, _
                                                                                                               BYVAL FriendlyNameSize AS DWORD, _
                                                                                                               BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetHwProfileFriendlyName(HwProfile, FriendlyName, FriendlyNameSize, RequiredSize) = SetupDiGetHwProfileFriendlyNameW(HwProfile, FriendlyName, FriendlyNameSize, RequiredSize)

DECLARE FUNCTION SetupDiGetHwProfileFriendlyNameExW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetHwProfileFriendlyNameExW" (BYVAL HwProfile AS DWORD, _
                                                                                                                   BYREF FriendlyName AS ANY, _
                                                                                                                   BYVAL FriendlyNameSize AS DWORD, _
                                                                                                                   BYREF RequiredSize AS DWORD, _
                                                                                                                   BYREF MachineName AS ANY, _
                                                                                                                   BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetHwProfileFriendlyNameEx(HwProfile, FriendlyName, FriendlyNameSize, RequiredSize, MachineName, Reserved) = SetupDiGetHwProfileFriendlyNameExW(HwProfile, FriendlyName, FriendlyNameSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetActualSectionToInstallW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetActualSectionToInstallW" (BYVAL InfHandle AS HINF, _
                                                                                                                 BYREF InfSectionName AS ANY, _
                                                                                                                 BYREF InfSectionWithExt AS ANY, _
                                                                                                                 BYVAL InfSectionWithExtSize AS DWORD, _
                                                                                                                 BYREF RequiredSize AS DWORD, _
                                                                                                                 BYREF Extension AS ANY) AS LONG
MACRO SetupDiGetActualSectionToInstall(InfHandle, InfSectionName, InfSectionWithExt, InfSectionWithExtSize, RequiredSize, Extension) = _
SetupDiGetActualSectionToInstallW(InfHandle, InfSectionName, InfSectionWithExt, InfSectionWithExtSize, RequiredSize, Extension)

DECLARE FUNCTION SetupDiGetActualSectionToInstallExW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetActualSectionToInstallExW" (BYVAL InfHandle AS HINF, _
                                                                                                                     BYREF InfSectionName AS ANY, _
                                                                                                                     BYREF AlternatePlatformInfo AS SP_ALTPLATFORM_INFO, _
                                                                                                                     BYREF InfSectionWithExt AS ANY, _
                                                                                                                     BYVAL InfSectionWithExtSize AS DWORD, _
                                                                                                                     BYREF RequiredSize AS DWORD, _
                                                                                                                     BYREF Extension AS ANY, _
                                                                                                                     BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetActualSectionToInstallEx(InfHandle, InfSectionName, AlternatePlatformInfo, InfSectionWithExt, InfSectionWithExtSize, RequiredSize, Extension, Reserved) = _
SetupDiGetActualSectionToInstallExW(InfHandle, InfSectionName, AlternatePlatformInfo, InfSectionWithExt, InfSectionWithExtSize, RequiredSize, Extension, Reserved)

DECLARE FUNCTION SetupEnumInfSectionsW LIB "SETUPAPI.DLL" ALIAS "SetupEnumInfSectionsW" (BYVAL InfHandle AS HINF, _
                                                                                         BYVAL Index AS DWORD, _
                                                                                         BYREF Buffer AS ANY, _
                                                                                         BYVAL SIZE AS DWORD, _
                                                                                         BYREF SizeNeeded AS DWORD) AS LONG
MACRO SetupEnumInfSections(InfHandle, Index, Buffer, SIZE, SizeNeeded) = SetupEnumInfSectionsW(InfHandle, Index, Buffer, SIZE, SizeNeeded)

DECLARE FUNCTION SetupVerifyInfFileW LIB "SETUPAPI.DLL" ALIAS "SetupVerifyInfFileW" (BYREF InfName AS ANY, _
                                                                                     BYREF AltPlatformInfo AS SP_ALTPLATFORM_INFO, _
                                                                                     BYREF InfSignerInfo AS SP_INF_SIGNER_INFO_W) AS LONG
MACRO SetupVerifyInfFile(InfName, AltPlatformInfo, InfSignerInfo) = SetupVerifyInfFileW(InfName, AltPlatformInfo, InfSignerInfo)

DECLARE FUNCTION SetupDiGetCustomDevicePropertyW LIB "SETUPAPI.DLL" ALIAS "SetupDiGetCustomDevicePropertyW" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                             BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                             BYREF CustomPropertyName AS ANY, _
                                                                                                             BYVAL Flags AS DWORD, _
                                                                                                             BYREF PropertyRegDataType AS DWORD, _
                                                                                                             BYREF PropertyBuffer AS ANY, _
                                                                                                             BYVAL PropertyBufferSize AS DWORD, _
                                                                                                             BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetCustomDeviceProperty(DeviceInfoSet, DeviceInfoData, CustomPropertyName, Flags, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize) = _
SetupDiGetCustomDevicePropertyW(DeviceInfoSet, DeviceInfoData, CustomPropertyName, Flags, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize)

DECLARE FUNCTION SetupConfigureWmiFromInfSectionW LIB "SETUPAPI.DLL" ALIAS "SetupConfigureWmiFromInfSectionW" (BYVAL InfHandle AS HINF, _
                                                                                                               BYREF SectionName AS ANY, _
                                                                                                               BYVAL Flags AS DWORD) AS LONG
MACRO SetupConfigureWmiFromInfSection(InfHandle, SectionName, Flags) = SetupConfigureWmiFromInfSectionW(InfHandle, SectionName, Flags)


#ELSE ' ANSI specific function declarations...


DECLARE FUNCTION SetupGetInfInformationA LIB "SETUPAPI.DLL" ALIAS "SetupGetInfInformationA" (BYREF InfSpec AS ANY, _
                                                                                             BYVAL SearchControl AS DWORD, _
                                                                                             BYREF ReturnBuffer AS SP_INF_INFORMATION, _
                                                                                             BYVAL ReturnBufferSize AS DWORD, _
                                                                                             BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetInfInformation(InfSpec, SearchControl, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetInfInformationA(InfSpec, SearchControl, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupQueryInfFileInformationA LIB "SETUPAPI.DLL" ALIAS "SetupQueryInfFileInformationA" (BYREF InfInformation AS SP_INF_INFORMATION, _
                                                                                                         BYVAL InfIndex AS DWORD, _
                                                                                                         BYREF ReturnBuffer AS ASCIIZ, _
                                                                                                         BYVAL ReturnBufferSize AS DWORD, _
                                                                                                         BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupQueryInfFileInformation(InfInformation, InfIndex, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupQueryInfFileInformationA(InfInformation, InfIndex, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupQueryInfOriginalFileInformationA LIB "SETUPAPI.DLL" ALIAS "SetupQueryInfOriginalFileInformationA" (BYREF InfInformation AS SP_INF_INFORMATION, _
                                                                                                                         BYVAL InfIndex AS DWORD, _
                                                                                                                         BYREF AlternatePlatformInfo AS SP_ALTPLATFORM_INFO, _
                                                                                                                         BYREF OriginalFileInfo AS SP_ORIGINAL_FILE_INFO_A) AS LONG
MACRO SetupQueryInfOriginalFileInformation(InfInformation, InfIndex, AlternatePlatformInfo, OriginalFileInfo) = SetupQueryInfOriginalFileInformationA(InfInformation, InfIndex, AlternatePlatformInfo, OriginalFileInfo)

DECLARE FUNCTION SetupQueryInfVersionInformationA LIB "SETUPAPI.DLL" ALIAS "SetupQueryInfVersionInformationA" (BYREF InfInformation AS SP_INF_INFORMATION, _
                                                                                                               BYVAL InfIndex AS DWORD, _
                                                                                                               BYREF Key AS ASCIIZ, _
                                                                                                               BYREF ReturnBuffer AS ASCIIZ, _
                                                                                                               BYVAL ReturnBufferSize AS DWORD, _
                                                                                                               BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupQueryInfVersionInformation(InfInformation, InfIndex, Key, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupQueryInfVersionInformationA(InfInformation, InfIndex, Key, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupGetInfFileListA LIB "SETUPAPI.DLL" ALIAS "SetupGetInfFileListA" (BYREF DirectoryPath AS ASCIIZ, _
                                                                                       BYVAL InfStyle AS DWORD, _
                                                                                       BYREF ReturnBuffer AS ASCIIZ, _
                                                                                       BYVAL ReturnBufferSize AS DWORD, _
                                                                                       BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetInfFileList(DirectoryPath, InfStyle, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetInfFileListA(DirectoryPath, InfStyle, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupOpenInfFileA LIB "SETUPAPI.DLL" ALIAS "SetupOpenInfFileA" (BYREF FileName AS ASCIIZ, _
                                                                                 BYREF InfClass AS ASCIIZ, _
                                                                                 BYVAL InfStyle AS DWORD, _
                                                                                 BYREF ErrorLine AS DWORD) AS HINF
MACRO SetupOpenInfFile(FileName, InfClass, InfStyle, ErrorLine) = SetupOpenInfFileA(FileName, InfClass, InfStyle, ErrorLine)

DECLARE FUNCTION SetupOpenAppendInfFileA LIB "SETUPAPI.DLL" ALIAS "SetupOpenAppendInfFileA" (BYREF FileName AS ASCIIZ, _
                                                                                             BYVAL InfHandle AS HINF, _
                                                                                             BYREF ErrorLine AS DWORD) AS LONG
MACRO SetupOpenAppendInfFile(FileName, InfHandle, ErrorLine) = SetupOpenAppendInfFileA(FileName, InfHandle, ErrorLine)

DECLARE FUNCTION SetupFindFirstLineA LIB "SETUPAPI.DLL" ALIAS "SetupFindFirstLineA" (BYVAL InfHandle AS HINF, _
                                                                                     BYREF Section AS ASCIIZ, _
                                                                                     BYREF Key AS ASCIIZ, _
                                                                                     BYREF inContext AS INFCONTEXT) AS LONG
MACRO SetupFindFirstLine(InfHandle, Section, Key, inContext) = SetupFindFirstLineA(InfHandle, Section, Key, inContext)

DECLARE FUNCTION SetupFindNextMatchLineA LIB "SETUPAPI.DLL" ALIAS "SetupFindNextMatchLineA" (BYREF ContextIn AS INFCONTEXT, _
                                                                                             BYREF Key AS ASCIIZ, _
                                                                                             BYREF ContextOut AS INFCONTEXT) AS LONG
MACRO SetupFindNextMatchLine(ContextIn, Key, ContextOut) = SetupFindNextMatchLineA(ContextIn, Key, ContextOut)

DECLARE FUNCTION SetupGetLineByIndexA LIB "SETUPAPI.DLL" ALIAS "SetupGetLineByIndexA" (BYVAL InfHandle AS HINF, _
                                                                                       BYREF Section AS ASCIIZ, _
                                                                                       BYVAL Index AS DWORD, _
                                                                                       BYREF inContext AS INFCONTEXT) AS LONG
MACRO SetupGetLineByIndex(InfHandle, Section, Index, inContext) = SetupGetLineByIndexA(InfHandle, Section, Index, inContext)

DECLARE FUNCTION SetupGetLineCountA LIB "SETUPAPI.DLL" ALIAS "SetupGetLineCountA" (BYVAL InfHandle AS HINF, _
                                                                                   BYREF Section AS ASCIIZ) AS LONG
MACRO SetupGetLineCount(InfHandle, Section) = SetupGetLineCountA(InfHandle, Section)

DECLARE FUNCTION SetupGetLineTextA LIB "SETUPAPI.DLL" ALIAS "SetupGetLineTextA" (BYREF inContext AS INFCONTEXT, _
                                                                                 BYVAL InfHandle AS HINF, _
                                                                                 BYREF Section AS ASCIIZ, _
                                                                                 BYREF Key AS ASCIIZ, _
                                                                                 BYREF ReturnBuffer AS ASCIIZ, _
                                                                                 BYVAL ReturnBufferSize AS DWORD, _
                                                                                 BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetLineText(inContext, InfHandle, Section, Key, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetLineTextA(inContext, InfHandle, Section, Key, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupGetStringFieldA LIB "SETUPAPI.DLL" ALIAS "SetupGetStringFieldA" (BYREF inContext AS INFCONTEXT, _
                                                                                       BYVAL FieldIndex AS DWORD, _
                                                                                       BYREF ReturnBuffer AS ASCIIZ, _
                                                                                       BYVAL ReturnBufferSize AS DWORD, _
                                                                                       BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetStringField(inContext, FieldIndex, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetStringFieldA(inContext, FieldIndex, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupGetMultiSzFieldA LIB "SETUPAPI.DLL" ALIAS "SetupGetMultiSzFieldA" (BYREF inContext AS INFCONTEXT, _
                                                                                         BYVAL FieldIndex AS DWORD, _
                                                                                         BYREF ReturnBuffer AS ASCIIZ, _
                                                                                         BYVAL ReturnBufferSize AS DWORD, _
                                                                                         BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetMultiSzField(inContext, FieldIndex, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetMultiSzFieldA(inContext, FieldIndex, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupGetFileCompressionInfoA LIB "SETUPAPI.DLL" ALIAS "SetupGetFileCompressionInfoA" (BYREF SourceFileName AS ASCIIZ, _
                                                                                                       BYREF ActualSourceFileName AS ASCIIZ, _
                                                                                                       BYREF SourceFileSize AS DWORD, _
                                                                                                       BYREF TargetFileSize AS DWORD, _
                                                                                                       BYREF CompressionType AS DWORD) AS DWORD
MACRO SetupGetFileCompressionInfo(SourceFileName, ActualSourceFileName, SourceFileSize, TargetFileSize, CompressionType) = SetupGetFileCompressionInfoA(SourceFileName, ActualSourceFileName, SourceFileSize, TargetFileSize, CompressionType)

DECLARE FUNCTION SetupGetFileCompressionInfoExA LIB "SETUPAPI.DLL" ALIAS "SetupGetFileCompressionInfoExA" (BYREF SourceFileName AS ASCIIZ, _
                                                                                                           BYREF ActualSourceFileNameBuffer AS ASCIIZ, _
                                                                                                           BYVAL ActualSourceFileNameBufferLen AS DWORD, _
                                                                                                           BYREF RequiredBufferLen AS DWORD, _
                                                                                                           BYREF SourceFileSize AS DWORD, _
                                                                                                           BYREF TargetFileSize AS DWORD, _
                                                                                                           BYREF CompressionType AS DWORD) AS LONG
MACRO SetupGetFileCompressionInfoEx(SourceFileName, ActualSourceFileNameBuffer, ActualSourceFileNameBufferLen, RequiredBufferLen, SourceFileSize, TargetFileSize, CompressionType) = _
SetupGetFileCompressionInfoExA(SourceFileName, ActualSourceFileNameBuffer, ActualSourceFileNameBufferLen, RequiredBufferLen, SourceFileSize, TargetFileSize, CompressionType)

DECLARE FUNCTION SetupDecompressOrCopyFileA LIB "SETUPAPI.DLL" ALIAS "SetupDecompressOrCopyFileA" (BYREF SourceFileName AS ASCIIZ, _
                                                                                                   BYREF TargetFileName AS ASCIIZ, _
                                                                                                   BYREF CompressionType AS DWORD) AS DWORD
MACRO SetupDecompressOrCopyFile(SourceFileName, TargetFileName, CompressionType) = SetupDecompressOrCopyFileA(SourceFileName, TargetFileName, CompressionType)

DECLARE FUNCTION SetupGetSourceFileLocationA LIB "SETUPAPI.DLL" ALIAS "SetupGetSourceFileLocationA" (BYVAL InfHandle AS HINF, _
                                                                                                     BYREF inContext AS INFCONTEXT, _
                                                                                                     BYREF FileName AS ASCIIZ, _
                                                                                                     BYREF SourceId AS DWORD, _
                                                                                                     BYREF ReturnBuffer AS ASCIIZ, _
                                                                                                     BYVAL ReturnBufferSize AS DWORD, _
                                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetSourceFileLocation(InfHandle, inContext, FileName, SourceId, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetSourceFileLocationA(InfHandle, inContext, FileName, SourceId, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupGetSourceFileSizeA LIB "SETUPAPI.DLL" ALIAS "SetupGetSourceFileSizeA" (BYVAL InfHandle AS HINF, _
                                                                                             BYREF inContext AS INFCONTEXT, _
                                                                                             BYREF FileName AS ASCIIZ, _
                                                                                             BYREF Section AS ASCIIZ, _
                                                                                             BYREF FileSize AS DWORD, _
                                                                                             BYVAL RoundingFactor AS DWORD) AS LONG
MACRO SetupGetSourceFileSize(InfHandle, inContext, FileName, Section, FileSize, RoundingFactor) = SetupGetSourceFileSizeA(InfHandle, inContext, FileName, Section, FileSize, RoundingFactor)

DECLARE FUNCTION SetupGetTargetPathA LIB "SETUPAPI.DLL" ALIAS "SetupGetTargetPathA" (BYVAL InfHandle AS HINF, _
                                                                                     BYREF inContext AS INFCONTEXT, _
                                                                                     BYREF Section AS ASCIIZ, _
                                                                                     BYREF ReturnBuffer AS ASCIIZ, _
                                                                                     BYVAL ReturnBufferSize AS DWORD, _
                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetTargetPath(InfHandle, inContext, Section, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetTargetPathA(InfHandle, inContext, Section, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupSetSourceListA LIB "SETUPAPI.DLL" ALIAS "SetupSetSourceListA" (BYVAL Flags AS DWORD, _
                                                                                     BYREF SourceList AS ASCIIZ, _
                                                                                     BYVAL SourceCount AS DWORD) AS LONG
MACRO SetupSetSourceList(Flags, SourceList, SourceCount) = SetupSetSourceListA(Flags, SourceList, SourceCount)

DECLARE FUNCTION SetupAddToSourceListA LIB "SETUPAPI.DLL" ALIAS "SetupAddToSourceListA" (BYVAL Flags AS DWORD, _
                                                                                         BYREF Source AS ASCIIZ) AS LONG
MACRO SetupAddToSourceList(Flags, Source) = SetupAddToSourceListA(Flags, Source)

DECLARE FUNCTION SetupRemoveFromSourceListA LIB "SETUPAPI.DLL" ALIAS "SetupRemoveFromSourceListA" (BYVAL Flags AS DWORD, _
                                                                                                   BYREF Source AS ASCIIZ) AS LONG
MACRO SetupRemoveFromSourceList(Flags, Source) = SetupRemoveFromSourceListA(Flags, Source)

DECLARE FUNCTION SetupQuerySourceListA LIB "SETUPAPI.DLL" ALIAS "SetupQuerySourceListA" (BYVAL Flags AS DWORD, _
                                                                                         BYREF List AS ASCIIZ, _
                                                                                         BYREF Count AS DWORD) AS LONG
MACRO SetupQuerySourceList(Flags, List, Count) = SetupQuerySourceListA(Flags, List, Count)

DECLARE FUNCTION SetupFreeSourceListA LIB "SETUPAPI.DLL" ALIAS "SetupFreeSourceListA" (BYREF List AS ANY, _
                                                                                       BYVAL Count AS DWORD) AS LONG
MACRO SetupFreeSourceList(List, Count) = SetupFreeSourceListA(List, Count)

DECLARE FUNCTION SetupPromptForDiskA LIB "SETUPAPI.DLL" ALIAS "SetupPromptForDiskA" (BYVAL hwndParent AS DWORD, _
                                                                                     BYREF DialogTitle AS ASCIIZ, _
                                                                                     BYREF DiskName AS ASCIIZ, _
                                                                                     BYREF PathToSource AS ASCIIZ, _
                                                                                     BYREF FileSought AS ASCIIZ, _
                                                                                     BYREF TagFile AS ASCIIZ, _
                                                                                     BYVAL DiskPromptStyle AS DWORD, _
                                                                                     BYREF PathBuffer AS ASCIIZ, _
                                                                                     BYVAL PathBufferSize AS DWORD, _
                                                                                     BYREF PathRequiredSize AS DWORD) AS DWORD
MACRO SetupPromptForDisk(hwndParent, DialogTitle, DiskName, PathToSource, FileSought, TagFile, DiskPromptStyle, PathBuffer, PathBufferSize, PathRequiredSize) = _
SetupPromptForDiskA(hwndParent, DialogTitle, DiskName, PathToSource, FileSought, TagFile, DiskPromptStyle, PathBuffer, PathBufferSize, PathRequiredSize)

DECLARE FUNCTION SetupCopyErrorA LIB "SETUPAPI.DLL" ALIAS "SetupCopyErrorA" (BYVAL hwndParent AS DWORD, _
                                                                             BYREF DialogTitle AS ASCIIZ, _
                                                                             BYREF DiskName AS ASCIIZ, _
                                                                             BYREF PathToSource AS ASCIIZ, _
                                                                             BYREF SourceFile AS ASCIIZ, _
                                                                             BYREF TargetPathFile AS ASCIIZ, _
                                                                             BYVAL Win32ErrorCode AS DWORD, _
                                                                             BYVAL Style AS DWORD, _
                                                                             BYREF PathBuffer AS ASCIIZ, _
                                                                             BYVAL PathBufferSize AS DWORD, _
                                                                             BYREF PathRequiredSize AS DWORD) AS DWORD
MACRO SetupCopyError(hwndParent, DialogTitle, DiskName, PathToSource, SourceFile, TargetPathFile, Win32ErrorCode, Style, PathBuffer, PathBufferSize, PathRequiredSize) = _
SetupCopyErrorA(hwndParent, DialogTitle, DiskName, PathToSource, SourceFile, TargetPathFile, Win32ErrorCode, Style, PathBuffer, PathBufferSize, PathRequiredSize)

DECLARE FUNCTION SetupRenameErrorA LIB "SETUPAPI.DLL" ALIAS "SetupRenameErrorA" (BYVAL hwndParent AS DWORD, _
                                                                                 BYREF DialogTitle AS ASCIIZ, _
                                                                                 BYREF SourceFile AS ASCIIZ, _
                                                                                 BYREF TargetFile AS ASCIIZ, _
                                                                                 BYVAL Win32ErrorCode AS DWORD, _
                                                                                 BYVAL Style AS DWORD) AS DWORD
MACRO SetupRenameError(hwndParent, DialogTitle, SourceFile, TargetFile, Win32ErrorCode, Style) = SetupRenameErrorA(hwndParent, DialogTitle, SourceFile, TargetFile, Win32ErrorCode, Style)

DECLARE FUNCTION SetupDeleteErrorA LIB "SETUPAPI.DLL" ALIAS "SetupDeleteErrorA" (BYVAL hwndParent AS DWORD, _
                                                                                 BYREF DialogTitle AS ASCIIZ, _
                                                                                 BYREF File AS ASCIIZ, _
                                                                                 BYVAL Win32ErrorCode AS DWORD, _
                                                                                 BYVAL Style AS DWORD) AS DWORD
MACRO SetupDeleteError(hwndParent, DialogTitle, File, Win32ErrorCode, Style) = SetupDeleteErrorA(hwndParent, DialogTitle, File, Win32ErrorCode, Style)

DECLARE FUNCTION SetupBackupErrorA LIB "SETUPAPI.DLL" ALIAS "SetupBackupErrorA" (BYVAL hwndParent AS DWORD, _
                                                                                 BYREF DialogTitle AS ASCIIZ, _
                                                                                 BYREF SourceFile AS ASCIIZ, _
                                                                                 BYREF TargetFile AS ASCIIZ, _
                                                                                 BYVAL Win32ErrorCode AS DWORD, _
                                                                                 BYVAL Style AS DWORD) AS DWORD
MACRO SetupBackupError(hwndParent, DialogTitle, SourceFile, TargetFile, Win32ErrorCode, Style) = SetupBackupErrorA(hwndParent, DialogTitle, SourceFile, TargetFile, Win32ErrorCode, Style)

DECLARE FUNCTION SetupSetDirectoryIdA LIB "SETUPAPI.DLL" ALIAS "SetupSetDirectoryIdA" (BYVAL InfHandle AS HINF, _
                                                                                       BYVAL Id AS DWORD, _
                                                                                       BYREF Directory AS ASCIIZ) AS LONG
MACRO SetupSetDirectoryId(InfHandle, Id, Directory) = SetupSetDirectoryIdA(InfHandle, Id, Directory)

DECLARE FUNCTION SetupSetDirectoryIdExA LIB "SETUPAPI.DLL" ALIAS "SetupSetDirectoryIdExA" (BYVAL InfHandle AS HINF, _
                                                                                           BYVAL Id AS DWORD, _
                                                                                           BYREF Directory AS ASCIIZ, _
                                                                                           BYVAL Flags AS DWORD, _
                                                                                           BYVAL Reserved1 AS DWORD, _
                                                                                           BYREF Reserved2 AS ANY) AS LONG
MACRO SetupSetDirectoryIdEx(InfHandle, Id, Directory, Flags, Reserved1, Reserved2) = SetupSetDirectoryIdExA(InfHandle, Id, Directory, Flags, Reserved1, Reserved2)

DECLARE FUNCTION SetupGetSourceInfoA LIB "SETUPAPI.DLL" ALIAS "SetupGetSourceInfoA" (BYVAL InfHandle AS HINF, _
                                                                                     BYVAL SourceId AS DWORD, _
                                                                                     BYVAL InfoDesired AS DWORD, _
                                                                                     BYREF ReturnBuffer AS ASCIIZ, _
                                                                                     BYVAL ReturnBufferSize AS DWORD, _
                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupGetSourceInfo(InfHandle, SourceId, InfoDesired, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupGetSourceInfoA(InfHandle, SourceId, InfoDesired, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupInstallFileA LIB "SETUPAPI.DLL" ALIAS "SetupInstallFileA" (BYVAL InfHandle AS HINF, _
                                                                                 BYREF inContext AS INFCONTEXT, _
                                                                                 BYREF SourceFile AS ASCIIZ, _
                                                                                 BYREF SourcePathRoot AS ASCIIZ, _
                                                                                 BYREF DestinationName AS ASCIIZ, _
                                                                                 BYVAL CopyStyle AS DWORD, _
                                                                                 BYVAL CopyMsgHandler AS DWORD, _
                                                                                 BYREF inContext AS ANY) AS LONG
MACRO SetupInstallFile(InfHandle, inContext, SourceFile, SourcePathRoot, DestinationName, CopyStyle, CopyMsgHandler, inContext) = SetupInstallFileA(InfHandle, inContext, SourceFile, SourcePathRoot, DestinationName, CopyStyle, CopyMsgHandler, inContext)

DECLARE FUNCTION SetupInstallFileExA LIB "SETUPAPI.DLL" ALIAS "SetupInstallFileExA" (BYVAL InfHandle AS HINF, _
                                                                                     BYREF inContext AS INFCONTEXT, _
                                                                                     BYREF SourceFile AS ASCIIZ, _
                                                                                     BYREF SourcePathRoot AS ASCIIZ, _
                                                                                     BYREF DestinationName AS ASCIIZ, _
                                                                                     BYVAL CopyStyle AS DWORD, _
                                                                                     BYVAL CopyMsgHandler AS DWORD, _
                                                                                     BYREF inContext AS ANY, _
                                                                                     BYREF FileWasInUse AS LONG) AS LONG
MACRO SetupInstallFileEx(InfHandle, inContext, SourceFile, SourcePathRoot, DestinationName, CopyStyle, CopyMsgHandler, inContext, FileWasInUse) = _
SetupInstallFileExA(InfHandle, inContext, SourceFile, SourcePathRoot, DestinationName, CopyStyle, CopyMsgHandler, inContext, FileWasInUse)

DECLARE FUNCTION SetupSetFileQueueAlternatePlatformA LIB "SETUPAPI.DLL" ALIAS "SetupSetFileQueueAlternatePlatformA" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                                                     BYREF AlternatePlatformInfo AS SP_ALTPLATFORM_INFO, _
                                                                                                                     BYREF AlternateDefaultCatalogFile AS ASCIIZ) AS LONG
MACRO SetupSetFileQueueAlternatePlatform(QueueHandle, AlternatePlatformInfo, AlternateDefaultCatalogFile) = SetupSetFileQueueAlternatePlatformA(QueueHandle, AlternatePlatformInfo, AlternateDefaultCatalogFile)

DECLARE FUNCTION SetupSetPlatformPathOverrideA LIB "SETUPAPI.DLL" ALIAS "SetupSetPlatformPathOverrideA" (BYREF Override AS ASCIIZ) AS LONG
MACRO SetupSetPlatformPathOverride(Override) = SetupSetPlatformPathOverrideA(Override)

DECLARE FUNCTION SetupQueueCopyA LIB "SETUPAPI.DLL" ALIAS "SetupQueueCopyA" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                             BYREF SourceRootPath AS ASCIIZ, _
                                                                             BYREF SourcePath AS ASCIIZ, _
                                                                             BYREF SourceFilename AS ASCIIZ, _
                                                                             BYREF SourceDescription AS ASCIIZ, _
                                                                             BYREF SourceTagfile AS ASCIIZ, _
                                                                             BYREF TargetDirectory AS ASCIIZ, _
                                                                             BYREF TargetFilename AS ASCIIZ, _
                                                                             BYVAL CopyStyle AS DWORD) AS LONG
MACRO SetupQueueCopy(QueueHandle, SourceRootPath, SourcePath, SourceFilename, SourceDescription, SourceTagfile, TargetDirectory, TargetFilename, CopyStyle) = _
SetupQueueCopyA(QueueHandle, SourceRootPath, SourcePath, SourceFilename, SourceDescription, SourceTagfile, TargetDirectory, TargetFilename, CopyStyle)

DECLARE FUNCTION SetupQueueCopyIndirectA LIB "SETUPAPI.DLL" ALIAS "SetupQueueCopyIndirectA" (BYREF CopyParams AS SP_FILE_COPY_PARAMS_A) AS LONG
MACRO SetupQueueCopyIndirect(CopyParams) = SetupQueueCopyIndirectA(CopyParams)

DECLARE FUNCTION SetupQueueDefaultCopyA LIB "SETUPAPI.DLL" ALIAS "SetupQueueDefaultCopyA" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                           BYVAL InfHandle AS HINF, _
                                                                                           BYREF SourceRootPath AS ASCIIZ, _
                                                                                           BYREF SourceFilename AS ASCIIZ, _
                                                                                           BYREF TargetFilename AS ASCIIZ, _
                                                                                           BYVAL CopyStyle AS DWORD) AS LONG
MACRO SetupQueueDefaultCopy(QueueHandle, InfHandle, SourceRootPath, SourceFilename, TargetFilename, CopyStyle) = SetupQueueDefaultCopyA(QueueHandle, InfHandle, SourceRootPath, SourceFilename, TargetFilename, CopyStyle)

DECLARE FUNCTION SetupQueueCopySectionA LIB "SETUPAPI.DLL" ALIAS "SetupQueueCopySectionA" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                           BYREF SourceRootPath AS ASCIIZ, _
                                                                                           BYVAL InfHandle AS HINF, _
                                                                                           BYVAL ListInfHandle AS HINF, _
                                                                                           BYREF Section AS ASCIIZ, _
                                                                                           BYVAL CopyStyle AS DWORD) AS LONG
MACRO SetupQueueCopySection(QueueHandle, SourceRootPath, InfHandle, ListInfHandle, Section, CopyStyle) = SetupQueueCopySectionA(QueueHandle, SourceRootPath, InfHandle, ListInfHandle, Section, CopyStyle)

DECLARE FUNCTION SetupQueueDeleteA LIB "SETUPAPI.DLL" ALIAS "SetupQueueDeleteA" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                 BYREF PathPart1 AS ASCIIZ, _
                                                                                 BYREF PathPart2 AS ASCIIZ) AS LONG
MACRO SetupQueueDelete(QueueHandle, PathPart1, PathPart2) = SetupQueueDeleteA(QueueHandle, PathPart1, PathPart2)

DECLARE FUNCTION SetupQueueDeleteSectionA LIB "SETUPAPI.DLL" ALIAS "SetupQueueDeleteSectionA" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                               BYVAL InfHandle AS HINF, _
                                                                                               BYVAL ListInfHandle AS HINF, _
                                                                                               BYREF Section AS ASCIIZ) AS LONG
MACRO SetupQueueDeleteSection(QueueHandle, InfHandle, ListInfHandle, Section) = SetupQueueDeleteSectionA(QueueHandle, InfHandle, ListInfHandle, Section)

DECLARE FUNCTION SetupQueueRenameA LIB "SETUPAPI.DLL" ALIAS "SetupQueueRenameA" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                 BYREF SourcePath AS ASCIIZ, _
                                                                                 BYREF SourceFilename AS ASCIIZ, _
                                                                                 BYREF TargetPath AS ASCIIZ, _
                                                                                 BYREF TargetFilename AS ASCIIZ) AS LONG
MACRO SetupQueueRename(QueueHandle, SourcePath, SourceFilename, TargetPath, TargetFilename) = SetupQueueRenameA(QueueHandle, SourcePath, SourceFilename, TargetPath, TargetFilename)

DECLARE FUNCTION SetupQueueRenameSectionA LIB "SETUPAPI.DLL" ALIAS "SetupQueueRenameSectionA" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                               BYVAL InfHandle AS HINF, _
                                                                                               BYVAL ListInfHandle AS HINF, _
                                                                                               BYREF Section AS ASCIIZ) AS LONG
MACRO SetupQueueRenameSection(QueueHandle, InfHandle, ListInfHandle, Section) = SetupQueueRenameSectionA(QueueHandle, InfHandle, ListInfHandle, Section)

DECLARE FUNCTION SetupCommitFileQueueA LIB "SETUPAPI.DLL" ALIAS "SetupCommitFileQueueA" (BYVAL Owner AS DWORD, _
                                                                                         BYVAL QueueHandle AS HSPFILEQ, _
                                                                                         BYVAL MsgHandler AS DWORD, _
                                                                                         BYREF inContext AS ANY) AS LONG
MACRO SetupCommitFileQueue(Owner, QueueHandle, MsgHandler, inContext) = SetupCommitFileQueueA(Owner, QueueHandle, MsgHandler, inContext)

DECLARE FUNCTION SetupScanFileQueueA LIB "SETUPAPI.DLL" ALIAS "SetupScanFileQueueA" (BYVAL FileQueue AS HSPFILEQ, _
                                                                                     BYVAL Flags AS DWORD, _
                                                                                     BYVAL Window AS DWORD, _
                                                                                     BYVAL CallbackRoutine AS DWORD, _
                                                                                     BYREF CallbackContext AS ANY, _
                                                                                     BYREF Result AS DWORD) AS LONG
MACRO SetupScanFileQueue(FileQueue, Flags, Window, CallbackRoutine, CallbackContext, Result) = SetupScanFileQueueA(FileQueue, Flags, Window, CallbackRoutine, CallbackContext, Result)

DECLARE FUNCTION SetupCopyOEMInfA LIB "SETUPAPI.DLL" ALIAS "SetupCopyOEMInfA" (BYREF SourceInfFileName AS ASCIIZ, _
                                                                               BYREF OEMSourceMediaLocation AS ASCIIZ, _
                                                                               BYVAL OEMSourceMediaType AS DWORD, _
                                                                               BYVAL CopyStyle AS DWORD, _
                                                                               BYREF DestinationInfFileName AS ASCIIZ, _
                                                                               BYVAL DestinationInfFileNameSize AS DWORD, _
                                                                               BYREF RequiredSize AS DWORD, _
                                                                               BYREF DestinationInfFileNameComponent AS ASCIIZ) AS LONG
MACRO SetupCopyOEMInf(SourceInfFileName, OEMSourceMediaLocation, OEMSourceMediaType, CopyStyle, DestinationInfFileName, DestinationInfFileNameSize, RequiredSize, DestinationInfFileNameComponent) = _
SetupCopyOEMInfA(SourceInfFileName, OEMSourceMediaLocation, OEMSourceMediaType, CopyStyle, DestinationInfFileName, DestinationInfFileNameSize, RequiredSize, DestinationInfFileNameComponent)

DECLARE FUNCTION SetupUninstallOEMInfA LIB "SETUPAPI.DLL" ALIAS "SetupUninstallOEMInfA" (BYREF InfFileName AS ASCIIZ, _
                                                                                         BYVAL Flags AS DWORD, _
                                                                                         BYREF Reserved AS ANY) AS LONG
MACRO SetupUninstallOEMInf(InfFileName, Flags, Reserved) = SetupUninstallOEMInfA(InfFileName, Flags, Reserved)

DECLARE FUNCTION SetupCreateDiskSpaceListA LIB "SETUPAPI.DLL" ALIAS "SetupCreateDiskSpaceListA" (BYREF Reserved1 AS ANY, _
                                                                                                 BYVAL Reserved2 AS DWORD, _
                                                                                                 BYVAL Flags AS DWORD) AS HDSKSPC
MACRO SetupCreateDiskSpaceList(Reserved1, Reserved2, Flags) = SetupCreateDiskSpaceListA(Reserved1, Reserved2, Flags)

DECLARE FUNCTION SetupDuplicateDiskSpaceListA LIB "SETUPAPI.DLL" ALIAS "SetupDuplicateDiskSpaceListA" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                       BYREF Reserved1 AS ANY, _
                                                                                                       BYVAL Reserved2 AS DWORD, _
                                                                                                       BYVAL Flags AS DWORD) AS HDSKSPC
MACRO SetupDuplicateDiskSpaceList(DiskSpace, Reserved1, Reserved2, Flags) = SetupDuplicateDiskSpaceListA(DiskSpace, Reserved1, Reserved2, Flags)

DECLARE FUNCTION SetupQueryDrivesInDiskSpaceListA LIB "SETUPAPI.DLL" ALIAS "SetupQueryDrivesInDiskSpaceListA" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                               BYREF ReturnBuffer AS ASCIIZ, _
                                                                                                               BYVAL ReturnBufferSize AS DWORD, _
                                                                                                               BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupQueryDrivesInDiskSpaceList(DiskSpace, ReturnBuffer, ReturnBufferSize, RequiredSize) = SetupQueryDrivesInDiskSpaceListA(DiskSpace, ReturnBuffer, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupQuerySpaceRequiredOnDriveA LIB "SETUPAPI.DLL" ALIAS "SetupQuerySpaceRequiredOnDriveA" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                             BYREF DriveSpec AS ASCIIZ, _
                                                                                                             BYREF SpaceRequired AS QUAD, _
                                                                                                             BYREF Reserved1 AS ANY, _
                                                                                                             BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupQuerySpaceRequiredOnDrive(DiskSpace, DriveSpec, SpaceRequired, Reserved1, Reserved2) = SetupQuerySpaceRequiredOnDriveA(DiskSpace, DriveSpec, SpaceRequired, Reserved1, Reserved2)

DECLARE FUNCTION SetupAdjustDiskSpaceListA LIB "SETUPAPI.DLL" ALIAS "SetupAdjustDiskSpaceListA" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                 BYREF DriveRoot AS ASCIIZ, _
                                                                                                 BYVAL Amount AS QUAD, _
                                                                                                 BYREF Reserved1 AS ANY, _
                                                                                                 BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupAdjustDiskSpaceList(DiskSpace, DriveRoot, Amount, Reserved1, Reserved2) = SetupAdjustDiskSpaceListA(DiskSpace, DriveRoot, Amount, Reserved1, Reserved2)

DECLARE FUNCTION SetupAddToDiskSpaceListA LIB "SETUPAPI.DLL" ALIAS "SetupAddToDiskSpaceListA" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                               BYREF TargetFilespec AS ASCIIZ, _
                                                                                               BYVAL FileSize AS QUAD, _
                                                                                               BYVAL Operation AS DWORD, _
                                                                                               BYREF Reserved1 AS ANY, _
                                                                                               BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupAddToDiskSpaceList(DiskSpace, TargetFilespec, FileSize, Operation, Reserved1, Reserved2) = SetupAddToDiskSpaceListA(DiskSpace, TargetFilespec, FileSize, Operation, Reserved1, Reserved2)

DECLARE FUNCTION SetupAddSectionToDiskSpaceListA LIB "SETUPAPI.DLL" ALIAS "SetupAddSectionToDiskSpaceListA" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                             BYVAL InfHandle AS HINF, _
                                                                                                             BYVAL ListInfHandle AS HINF, _
                                                                                                             BYREF SectionName AS ASCIIZ, _
                                                                                                             BYVAL Operation AS DWORD, _
                                                                                                             BYREF Reserved1 AS ANY, _
                                                                                                             BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupAddSectionToDiskSpaceList(DiskSpace, InfHandle, ListInfHandle, SectionName, Operation, Reserved1, Reserved2) = SetupAddSectionToDiskSpaceListA(DiskSpace, InfHandle, ListInfHandle, SectionName, Operation, Reserved1, Reserved2)

DECLARE FUNCTION SetupAddInstallSectionToDiskSpaceListA LIB "SETUPAPI.DLL" ALIAS "SetupAddInstallSectionToDiskSpaceListA" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                                           BYVAL InfHandle AS HINF, _
                                                                                                                           BYVAL LayoutInfHandle AS HINF, _
                                                                                                                           BYREF SectionName AS ASCIIZ, _
                                                                                                                           BYREF Reserved1 AS ANY, _
                                                                                                                           BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupAddInstallSectionToDiskSpaceList(DiskSpace, InfHandle, LayoutInfHandle, SectionName, Reserved1, Reserved2) = SetupAddInstallSectionToDiskSpaceListA(DiskSpace, InfHandle, LayoutInfHandle, SectionName, Reserved1, Reserved2)

DECLARE FUNCTION SetupRemoveFromDiskSpaceListA LIB "SETUPAPI.DLL" ALIAS "SetupRemoveFromDiskSpaceListA" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                         BYREF TargetFilespec AS ASCIIZ, _
                                                                                                         BYVAL Operation AS DWORD, _
                                                                                                         BYREF Reserved1 AS ANY, _
                                                                                                         BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupRemoveFromDiskSpaceList(DiskSpace, TargetFilespec, Operation, Reserved1, Reserved2) = SetupRemoveFromDiskSpaceListA(DiskSpace, TargetFilespec, Operation, Reserved1, Reserved2)

DECLARE FUNCTION SetupRemoveSectionFromDiskSpaceListA LIB "SETUPAPI.DLL" ALIAS "SetupRemoveSectionFromDiskSpaceListA" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                                       BYVAL InfHandle AS HINF, _
                                                                                                                       BYVAL ListInfHandle AS HINF, _
                                                                                                                       BYREF SectionName AS ASCIIZ, _
                                                                                                                       BYVAL Operation AS DWORD, _
                                                                                                                       BYREF Reserved1 AS ANY, _
                                                                                                                       BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupRemoveSectionFromDiskSpaceList(DiskSpace, InfHandle, ListInfHandle, SectionName, Operation, Reserved1, Reserved2) = SetupRemoveSectionFromDiskSpaceListA(DiskSpace, InfHandle, ListInfHandle, SectionName, Operation, Reserved1, Reserved2)

DECLARE FUNCTION SetupRemoveInstallSectionFromDiskSpaceListA LIB "SETUPAPI.DLL" ALIAS "SetupRemoveInstallSectionFromDiskSpaceListA" (BYVAL DiskSpace AS HDSKSPC, _
                                                                                                                                     BYVAL InfHandle AS HINF, _
                                                                                                                                     BYVAL LayoutInfHandle AS HINF, _
                                                                                                                                     BYREF SectionName AS ASCIIZ, _
                                                                                                                                     BYREF Reserved1 AS ANY, _
                                                                                                                                     BYVAL Reserved2 AS DWORD) AS LONG
MACRO SetupRemoveInstallSectionFromDiskSpaceList(DiskSpace, InfHandle, LayoutInfHandle, SectionName, Reserved1, Reserved2) = SetupRemoveInstallSectionFromDiskSpaceListA(DiskSpace, InfHandle, LayoutInfHandle, SectionName, Reserved1, Reserved2)

DECLARE FUNCTION SetupIterateCabinetA LIB "SETUPAPI.DLL" ALIAS "SetupIterateCabinetA" (BYREF CabinetFile AS ASCIIZ, _
                                                                                       BYVAL Reserved AS DWORD, _
                                                                                       BYVAL MsgHandler AS DWORD, _
                                                                                       BYREF inContext AS ANY) AS LONG
MACRO SetupIterateCabinet(CabinetFile, Reserved, MsgHandler, inContext) = SetupIterateCabinetA(CabinetFile, Reserved, MsgHandler, inContext)

DECLARE FUNCTION SetupDefaultQueueCallbackA LIB "SETUPAPI.DLL" ALIAS "SetupDefaultQueueCallbackA" (BYREF inContext AS ANY, _
                                                                                                   BYVAL Notification AS DWORD, _
                                                                                                   BYREF Param1 AS DWORD, _
                                                                                                   BYREF Param2 AS DWORD) AS DWORD
MACRO SetupDefaultQueueCallback(inContext, Notification, Param1, Param2) = SetupDefaultQueueCallbackA(inContext, Notification, Param1, Param2)

DECLARE FUNCTION SetupInstallFromInfSectionA LIB "SETUPAPI.DLL" ALIAS "SetupInstallFromInfSectionA" (BYVAL Owner AS DWORD, _
                                                                                                     BYVAL InfHandle AS HINF, _
                                                                                                     BYREF SectionName AS ASCIIZ, _
                                                                                                     BYVAL Flags AS DWORD, _
                                                                                                     BYVAL RelativeKeyRoot AS DWORD, _
                                                                                                     BYREF SourceRootPath AS ASCIIZ, _
                                                                                                     BYVAL CopyFlags AS DWORD, _
                                                                                                     BYVAL MsgHandler AS DWORD, _
                                                                                                     BYREF inContext AS ANY, _
                                                                                                     BYVAL DeviceInfoSet AS DWORD, _
                                                                                                     BYREF PSP_DEVINFO_DATA AS SP_DEVINFO_DATA) AS LONG
MACRO SetupInstallFromInfSection(Owner, InfHandle, SectionName, Flags, RelativeKeyRoot, SourceRootPath, CopyFlags, MsgHandler, inContext, DeviceInfoSet, PSP_DEVINFO_DATA) = _
SetupInstallFromInfSectionA(Owner, InfHandle, SectionName, Flags, RelativeKeyRoot, SourceRootPath, CopyFlags, MsgHandler, inContext, DeviceInfoSet, PSP_DEVINFO_DATA)

DECLARE FUNCTION SetupInstallFilesFromInfSectionA LIB "SETUPAPI.DLL" ALIAS "SetupInstallFilesFromInfSectionA" (BYVAL InfHandle AS HINF, _
                                                                                                               BYVAL LayoutInfHandle AS HINF, _
                                                                                                               BYVAL FileQueue AS HSPFILEQ, _
                                                                                                               BYREF SectionName AS ASCIIZ, _
                                                                                                               BYREF SourceRootPath AS ASCIIZ, _
                                                                                                               BYVAL CopyFlags AS DWORD) AS LONG
MACRO SetupInstallFilesFromInfSection(InfHandle, LayoutInfHandle, FileQueue, SectionName, SourceRootPath, CopyFlags) = SetupInstallFilesFromInfSectionA(InfHandle, LayoutInfHandle, FileQueue, SectionName, SourceRootPath, CopyFlags)

DECLARE FUNCTION SetupInstallServicesFromInfSectionA LIB "SETUPAPI.DLL" ALIAS "SetupInstallServicesFromInfSectionA" (BYVAL InfHandle AS HINF, _
                                                                                                                     BYREF SectionName AS ASCIIZ, _
                                                                                                                     BYVAL Flags AS DWORD) AS LONG
MACRO SetupInstallServicesFromInfSection(InfHandle, SectionName, Flags) = SetupInstallServicesFromInfSectionA(InfHandle, SectionName, Flags)

DECLARE FUNCTION SetupInstallServicesFromInfSectionExA LIB "SETUPAPI.DLL" ALIAS "SetupInstallServicesFromInfSectionExA" (BYVAL InfHandle AS HINF, _
                                                                                                                         BYREF SectionName AS ASCIIZ, _
                                                                                                                         BYVAL Flags AS DWORD, _
                                                                                                                         BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                         BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                                         BYREF Reserved1 AS ANY, _
                                                                                                                         BYREF Reserved2 AS ANY) AS LONG
MACRO SetupInstallServicesFromInfSectionEx(InfHandle, SectionName, Flags, DeviceInfoSet, DeviceInfoData, Reserved1, Reserved2) = SetupInstallServicesFromInfSectionExA(InfHandle, SectionName, Flags, DeviceInfoSet, DeviceInfoData, Reserved1, Reserved2)

DECLARE FUNCTION SetupLogFileA LIB "SETUPAPI.DLL" ALIAS "SetupLogFileA" (BYVAL FileLogHandle AS HSPFILELOG, _
                                                                         BYREF LogSectionName AS ASCIIZ, _
                                                                         BYREF SourceFilename AS ASCIIZ, _
                                                                         BYREF TargetFilename AS ASCIIZ, _
                                                                         BYVAL Checksum AS DWORD, _
                                                                         BYREF DiskTagfile AS ASCIIZ, _
                                                                         BYREF DiskDescription AS ASCIIZ, _
                                                                         BYREF OtherInfo AS ASCIIZ, _
                                                                         BYVAL Flags AS DWORD) AS LONG
MACRO SetupLogFile(FileLogHandle, LogSectionName, SourceFilename, TargetFilename, Checksum, DiskTagfile, DiskDescription, OtherInfo, Flags) = _
SetupLogFileA(FileLogHandle, LogSectionName, SourceFilename, TargetFilename, Checksum, DiskTagfile, DiskDescription, OtherInfo, Flags)

DECLARE FUNCTION SetupRemoveFileLogEntryA LIB "SETUPAPI.DLL" ALIAS "SetupRemoveFileLogEntryA" (BYVAL FileLogHandle AS HSPFILELOG, _
                                                                                               BYREF LogSectionName AS ASCIIZ, _
                                                                                               BYREF TargetFilename AS ASCIIZ) AS LONG
MACRO SetupRemoveFileLogEntry(FileLogHandle, LogSectionName, TargetFilename) = SetupRemoveFileLogEntryA(FileLogHandle, LogSectionName, TargetFilename)

DECLARE FUNCTION SetupQueryFileLogA LIB "SETUPAPI.DLL" ALIAS "SetupQueryFileLogA" (BYVAL FileLogHandle AS HSPFILELOG, _
                                                                                   BYREF LogSectionName AS ASCIIZ, _
                                                                                   BYREF TargetFilename AS ASCIIZ, _
                                                                                   BYVAL DesiredInfo AS LONG, _
                                                                                   BYREF DataOut AS ASCIIZ, _
                                                                                   BYVAL ReturnBufferSize AS DWORD, _
                                                                                   BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupQueryFileLog(FileLogHandle, LogSectionName, TargetFilename, DesiredInfo, DataOut, ReturnBufferSize, RequiredSize) = SetupQueryFileLogA(FileLogHandle, LogSectionName, TargetFilename, DesiredInfo, DataOut, ReturnBufferSize, RequiredSize)

DECLARE FUNCTION SetupLogErrorA LIB "SETUPAPI.DLL" ALIAS "SetupLogErrorA" (BYREF MessageString AS ASCIIZ, _
                                                                           BYVAL Severity AS LogSeverity) AS LONG
MACRO SetupLogError(MessageString, Severity) = SetupLogErrorA(MessageString, Severity)

DECLARE FUNCTION SetupGetBackupInformationA LIB "SETUPAPI.DLL" ALIAS "SetupGetBackupInformationA" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                                   BYREF BackupParams AS SP_BACKUP_QUEUE_PARAMS_A) AS LONG
MACRO SetupGetBackupInformation(QueueHandle, BackupParams) = SetupGetBackupInformationA(QueueHandle, BackupParams)

DECLARE FUNCTION SetupPrepareQueueForRestoreA LIB "SETUPAPI.DLL" ALIAS "SetupPrepareQueueForRestoreA" (BYVAL QueueHandle AS HSPFILEQ, _
                                                                                                       BYREF BackupPath AS ASCIIZ, _
                                                                                                       BYVAL RestoreFlags AS DWORD) AS LONG
MACRO SetupPrepareQueueForRestore(QueueHandle, BackupPath, RestoreFlags) = SetupPrepareQueueForRestoreA(QueueHandle, BackupPath, RestoreFlags)

DECLARE FUNCTION SetupDiCreateDeviceInfoListExA LIB "SETUPAPI.DLL" ALIAS "SetupDiCreateDeviceInfoListExA" (BYREF ClassGuid AS GUID, _
                                                                                                           BYVAL hwndParent AS DWORD, _
                                                                                                           BYREF MachineName AS ASCIIZ, _
                                                                                                           BYREF Reserved AS ANY) AS DWORD
MACRO SetupDiCreateDeviceInfoListEx(ClassGuid, hwndParent, MachineName, Reserved) = SetupDiCreateDeviceInfoListExA(ClassGuid, hwndParent, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetDeviceInfoListDetailA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceInfoListDetailA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                             BYREF DeviceInfoSetDetailData AS SP_DEVINFO_LIST_DETAIL_DATA_A) AS LONG
MACRO SetupDiGetDeviceInfoListDetail(DeviceInfoSet, DeviceInfoSetDetailData) = SetupDiGetDeviceInfoListDetailA(DeviceInfoSet, DeviceInfoSetDetailData)

DECLARE FUNCTION SetupDiCreateDeviceInfoA LIB "SETUPAPI.DLL" ALIAS "SetupDiCreateDeviceInfoA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                               BYREF DeviceName AS ASCIIZ, _
                                                                                               BYREF ClassGuid AS GUID, _
                                                                                               BYREF DeviceDescription AS ASCIIZ, _
                                                                                               BYVAL hwndParent AS DWORD, _
                                                                                               BYVAL CreationFlags AS DWORD, _
                                                                                               BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
MACRO SetupDiCreateDeviceInfo(DeviceInfoSet, DeviceName, ClassGuid, DeviceDescription, hwndParent, CreationFlags, DeviceInfoData) = SetupDiCreateDeviceInfoA(DeviceInfoSet, DeviceName, ClassGuid, DeviceDescription, hwndParent, CreationFlags, DeviceInfoData)

DECLARE FUNCTION SetupDiOpenDeviceInfoA LIB "SETUPAPI.DLL" ALIAS "SetupDiOpenDeviceInfoA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                           BYREF DeviceInstanceId AS ASCIIZ, _
                                                                                           BYVAL hwndParent AS DWORD, _
                                                                                           BYVAL OpenFlags AS DWORD, _
                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
MACRO SetupDiOpenDeviceInfo(DeviceInfoSet, DeviceInstanceId, hwndParent, OpenFlags, DeviceInfoData) = SetupDiOpenDeviceInfoA(DeviceInfoSet, DeviceInstanceId, hwndParent, OpenFlags, DeviceInfoData)

DECLARE FUNCTION SetupDiGetDeviceInstanceIdA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceInstanceIdA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                     BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                     BYREF DeviceInstanceId AS ASCIIZ, _
                                                                                                     BYVAL DeviceInstanceIdSize AS DWORD, _
                                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetDeviceInstanceId(DeviceInfoSet, DeviceInfoData, DeviceInstanceId, DeviceInstanceIdSize, RequiredSize) = SetupDiGetDeviceInstanceIdA(DeviceInfoSet, DeviceInfoData, DeviceInstanceId, DeviceInstanceIdSize, RequiredSize)

DECLARE FUNCTION SetupDiCreateDeviceInterfaceA LIB "SETUPAPI.DLL" ALIAS "SetupDiCreateDeviceInterfaceA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                         BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                         BYREF InterfaceClassGuid AS GUID, _
                                                                                                         BYREF ReferenceString AS ASCIIZ, _
                                                                                                         BYVAL CreationFlags AS DWORD, _
                                                                                                         BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA) AS LONG
MACRO SetupDiCreateDeviceInterface(DeviceInfoSet, DeviceInfoData, InterfaceClassGuid, ReferenceString, CreationFlags, DeviceInterfaceData) = _
SetupDiCreateDeviceInterfaceA(DeviceInfoSet, DeviceInfoData, InterfaceClassGuid, ReferenceString, CreationFlags, DeviceInterfaceData)

DECLARE FUNCTION SetupDiOpenDeviceInterfaceA LIB "SETUPAPI.DLL" ALIAS "SetupDiOpenDeviceInterfaceA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                     BYREF DevicePath AS ASCIIZ, _
                                                                                                     BYVAL OpenFlags AS DWORD, _
                                                                                                     BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA) AS LONG
MACRO SetupDiOpenDeviceInterface(DeviceInfoSet, DevicePath, OpenFlags, DeviceInterfaceData) = SetupDiOpenDeviceInterfaceA(DeviceInfoSet, DevicePath, OpenFlags, DeviceInterfaceData)

DECLARE FUNCTION SetupDiGetDeviceInterfaceDetailA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceInterfaceDetailA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                               BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA, _
                                                                                                               BYREF DeviceInterfaceDetailData AS SP_DEVICE_INTERFACE_DETAIL_DATA_A, _
                                                                                                               BYVAL DeviceInterfaceDetailDataSize AS DWORD, _
                                                                                                               BYREF RequiredSize AS DWORD, _
                                                                                                               BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
MACRO SetupDiGetDeviceInterfaceDetail(DeviceInfoSet, DeviceInterfaceData, DeviceInterfaceDetailData, DeviceInterfaceDetailDataSize, RequiredSize, DeviceInfoData) = _
SetupDiGetDeviceInterfaceDetailA(DeviceInfoSet, DeviceInterfaceData, DeviceInterfaceDetailData, DeviceInterfaceDetailDataSize, RequiredSize, DeviceInfoData)

DECLARE FUNCTION SetupDiEnumDriverInfoA LIB "SETUPAPI.DLL" ALIAS "SetupDiEnumDriverInfoA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                           BYVAL DriverType AS DWORD, _
                                                                                           BYVAL MemberIndex AS DWORD, _
                                                                                           BYREF DriverInfoData AS SP_DRVINFO_DATA_A) AS LONG
MACRO SetupDiEnumDriverInfo(DeviceInfoSet, DeviceInfoData, DriverType, MemberIndex, DriverInfoData) = SetupDiEnumDriverInfoA(DeviceInfoSet, DeviceInfoData, DriverType, MemberIndex, DriverInfoData)

DECLARE FUNCTION SetupDiGetSelectedDriverA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetSelectedDriverA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                 BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                 BYREF DriverInfoData AS SP_DRVINFO_DATA_A) AS LONG
MACRO SetupDiGetSelectedDriver(DeviceInfoSet, DeviceInfoData, DriverInfoData) = SetupDiGetSelectedDriverA(DeviceInfoSet, DeviceInfoData, DriverInfoData)

DECLARE FUNCTION SetupDiSetSelectedDriverA LIB "SETUPAPI.DLL" ALIAS "SetupDiSetSelectedDriverA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                 BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                 BYREF DriverInfoData AS ANY) AS LONG
MACRO SetupDiSetSelectedDriver(DeviceInfoSet, DeviceInfoData, DriverInfoData) = SetupDiSetSelectedDriverA(DeviceInfoSet, DeviceInfoData, DriverInfoData)

DECLARE FUNCTION SetupDiGetDriverInfoDetailA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDriverInfoDetailA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                     BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                     BYREF DriverInfoData AS SP_DRVINFO_DATA_A, _
                                                                                                     BYREF DriverInfoDetailData AS SP_DRVINFO_DETAIL_DATA_A, _
                                                                                                     BYVAL DriverInfoDetailDataSize AS DWORD, _
                                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetDriverInfoDetail(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInfoDetailData, DriverInfoDetailDataSize, RequiredSize) = _
SetupDiGetDriverInfoDetailA(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInfoDetailData, DriverInfoDetailDataSize, RequiredSize)

DECLARE FUNCTION SetupDiGetClassDevsA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassDevsA" (BYREF ClassGuid AS GUID, _
                                                                                       BYREF Enumerator AS ASCIIZ, _
                                                                                       BYVAL hwndParent AS DWORD, _
                                                                                       BYVAL Flags AS DWORD) AS DWORD
MACRO SetupDiGetClassDevs(ClassGuid, Enumerator, hwndParent, Flags) = SetupDiGetClassDevsA(ClassGuid, Enumerator, hwndParent, Flags)

DECLARE FUNCTION SetupDiGetClassDevsExA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassDevsExA" (BYREF ClassGuid AS GUID, _
                                                                                           BYREF Enumerator AS ASCIIZ, _
                                                                                           BYVAL hwndParent AS DWORD, _
                                                                                           BYVAL Flags AS DWORD, _
                                                                                           BYVAL DeviceInfoSet AS DWORD, _
                                                                                           BYREF MachineName AS ASCIIZ, _
                                                                                           BYREF Reserved AS ANY) AS DWORD
MACRO SetupDiGetClassDevsEx(ClassGuid, Enumerator, hwndParent, Flags, DeviceInfoSet, MachineName, Reserved) = SetupDiGetClassDevsExA(ClassGuid, Enumerator, hwndParent, Flags, DeviceInfoSet, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetINFClassA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetINFClassA" (BYREF InfName AS ASCIIZ, _
                                                                                     BYREF ClassGuid AS GUID, _
                                                                                     BYREF ClassName AS ASCIIZ, _
                                                                                     BYVAL ClassNameSize AS DWORD, _
                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetINFClass(InfName, ClassGuid, ClassName, ClassNameSize, RequiredSize) = SetupDiGetINFClassA(InfName, ClassGuid, ClassName, ClassNameSize, RequiredSize)

DECLARE FUNCTION SetupDiBuildClassInfoListExA LIB "SETUPAPI.DLL" ALIAS "SetupDiBuildClassInfoListExA" (BYVAL Flags AS DWORD, _
                                                                                                       BYREF ClassGuidList AS GUID, _
                                                                                                       BYVAL ClassGuidListSize AS DWORD, _
                                                                                                       BYREF RequiredSize AS DWORD, _
                                                                                                       BYREF MachineName AS ASCIIZ, _
                                                                                                       BYREF Reserved AS ANY) AS LONG
MACRO SetupDiBuildClassInfoListEx(Flags, ClassGuidList, ClassGuidListSize, RequiredSize, MachineName, Reserved) = SetupDiBuildClassInfoListExA(Flags, ClassGuidList, ClassGuidListSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetClassDescriptionA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassDescriptionA" (BYREF ClassGuid AS GUID, _
                                                                                                     BYREF ClassDescription AS ASCIIZ, _
                                                                                                     BYVAL ClassDescriptionSize AS DWORD, _
                                                                                                     BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetClassDescription(ClassGuid, ClassDescription, ClassDescriptionSize, RequiredSize) = SetupDiGetClassDescriptionA(ClassGuid, ClassDescription, ClassDescriptionSize, RequiredSize)

DECLARE FUNCTION SetupDiGetClassDescriptionExA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassDescriptionExA" (BYREF ClassGuid AS GUID, _
                                                                                                         BYREF ClassDescription AS ASCIIZ, _
                                                                                                         BYVAL ClassDescriptionSize AS DWORD, _
                                                                                                         BYREF RequiredSize AS DWORD, _
                                                                                                         BYREF MachineName AS ASCIIZ, _
                                                                                                         BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetClassDescriptionEx(ClassGuid, ClassDescription, ClassDescriptionSize, RequiredSize, MachineName, Reserved) = SetupDiGetClassDescriptionExA(ClassGuid, ClassDescription, ClassDescriptionSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiInstallClassA LIB "SETUPAPI.DLL" ALIAS "SetupDiInstallClassA" (BYVAL hwndParent AS DWORD, _
                                                                                       BYREF InfFileName AS ASCIIZ, _
                                                                                       BYVAL Flags AS DWORD, _
                                                                                       BYVAL FileQueue AS HSPFILEQ) AS LONG
MACRO SetupDiInstallClass(hwndParent, InfFileName, Flags, FileQueue) = SetupDiInstallClassA(hwndParent, InfFileName, Flags, FileQueue)

DECLARE FUNCTION SetupDiInstallClassExA LIB "SETUPAPI.DLL" ALIAS "SetupDiInstallClassExA" (BYVAL hwndParent AS DWORD, _
                                                                                           BYREF InfFileName AS ASCIIZ, _
                                                                                           BYVAL Flags AS DWORD, _
                                                                                           BYVAL FileQueue AS HSPFILEQ, _
                                                                                           BYREF InterfaceClassGuid AS GUID, _
                                                                                           BYREF Reserved1 AS ANY, _
                                                                                           BYREF Reserved2 AS ANY) AS LONG
MACRO SetupDiInstallClassEx(hwndParent, InfFileName, Flags, FileQueue, InterfaceClassGuid, Reserved1, Reserved2) = SetupDiInstallClassExA(hwndParent, InfFileName, Flags, FileQueue, InterfaceClassGuid, Reserved1, Reserved2)

DECLARE FUNCTION SetupDiOpenClassRegKeyExA LIB "SETUPAPI.DLL" ALIAS "SetupDiOpenClassRegKeyExA" (BYREF ClassGuid AS GUID, _
                                                                                                 BYVAL samDesired AS DWORD, _
                                                                                                 BYVAL Flags AS DWORD, _
                                                                                                 BYREF MachineName AS ASCIIZ, _
                                                                                                 BYREF Reserved AS ANY) AS DWORD
MACRO SetupDiOpenClassRegKeyEx(ClassGuid, samDesired, Flags, MachineName, Reserved) = SetupDiOpenClassRegKeyExA(ClassGuid, samDesired, Flags, MachineName, Reserved)

DECLARE FUNCTION SetupDiCreateDeviceInterfaceRegKeyA LIB "SETUPAPI.DLL" ALIAS "SetupDiCreateDeviceInterfaceRegKeyA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                     BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA, _
                                                                                                                     BYVAL Reserved AS DWORD, _
                                                                                                                     BYVAL samDesired AS DWORD, _
                                                                                                                     BYVAL InfHandle AS HINF, _
                                                                                                                     BYREF InfSectionName AS ASCIIZ) AS DWORD
MACRO SetupDiCreateDeviceInterfaceRegKey(DeviceInfoSet, DeviceInterfaceData, Reserved, samDesired, InfHandle, InfSectionName) = SetupDiCreateDeviceInterfaceRegKeyA(DeviceInfoSet, DeviceInterfaceData, Reserved, samDesired, InfHandle, InfSectionName)

DECLARE FUNCTION SetupDiCreateDevRegKeyA LIB "SETUPAPI.DLL" ALIAS "SetupDiCreateDevRegKeyA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                             BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                             BYVAL Scope AS DWORD, _
                                                                                             BYVAL HwProfile AS DWORD, _
                                                                                             BYVAL KeyType AS DWORD, _
                                                                                             BYVAL InfHandle AS HINF, _
                                                                                             BYREF InfSectionName AS ASCIIZ) AS DWORD
MACRO SetupDiCreateDevRegKey(DeviceInfoSet, DeviceInfoData, Scope, HwProfile, KeyType, InfHandle, InfSectionName) = SetupDiCreateDevRegKeyA(DeviceInfoSet, DeviceInfoData, Scope, HwProfile, KeyType, InfHandle, InfSectionName)

DECLARE FUNCTION SetupDiGetHwProfileListExA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetHwProfileListExA" (BYREF HwProfileList AS DWORD, _
                                                                                                   BYVAL HwProfileListSize AS DWORD, _
                                                                                                   BYREF RequiredSize AS DWORD, _
                                                                                                   BYREF CurrentlyActiveIndex AS DWORD, _
                                                                                                   BYREF MachineName AS ASCIIZ, _
                                                                                                   BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetHwProfileListEx(HwProfileList, HwProfileListSize, RequiredSize, CurrentlyActiveIndex, MachineName, Reserved) = SetupDiGetHwProfileListExA(HwProfileList, HwProfileListSize, RequiredSize, CurrentlyActiveIndex, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetDeviceRegistryPropertyA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceRegistryPropertyA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                 BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                                 BYVAL Property AS DWORD, _
                                                                                                                 BYREF PropertyRegDataType AS DWORD, _
                                                                                                                 BYREF PropertyBuffer AS ANY, _
                                                                                                                 BYVAL PropertyBufferSize AS DWORD, _
                                                                                                                 BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetDeviceRegistryProperty(DeviceInfoSet, DeviceInfoData, Property, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize) = _
SetupDiGetDeviceRegistryPropertyA(DeviceInfoSet, DeviceInfoData, Property, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize)

DECLARE FUNCTION SetupDiGetClassRegistryPropertyA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassRegistryPropertyA" (BYREF ClassGuid AS GUID, _
                                                                                                               BYVAL Property AS DWORD, _
                                                                                                               BYREF PropertyRegDataType AS DWORD, _
                                                                                                               BYREF PropertyBuffer AS ANY, _
                                                                                                               BYVAL PropertyBufferSize AS DWORD, _
                                                                                                               BYREF RequiredSize AS DWORD, _
                                                                                                               BYREF MachineName AS ASCIIZ, _
                                                                                                               BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetClassRegistryProperty(ClassGuid, Property, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize, MachineName, Reserved) = _
SetupDiGetClassRegistryPropertyA(ClassGuid, Property, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiSetDeviceRegistryPropertyA LIB "SETUPAPI.DLL" ALIAS "SetupDiSetDeviceRegistryPropertyA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                 BYREF DeviceInfoData AS ANY, _
                                                                                                                 BYVAL Property AS DWORD, _
                                                                                                                 BYREF PropertyBuffer AS BYTE, _
                                                                                                                 BYVAL PropertyBufferSize AS DWORD) AS LONG
MACRO SetupDiSetDeviceRegistryProperty(DeviceInfoSet, DeviceInfoData, Property, PropertyBuffer, PropertyBufferSize) = SetupDiSetDeviceRegistryPropertyA(DeviceInfoSet, DeviceInfoData, Property, PropertyBuffer, PropertyBufferSize)

DECLARE FUNCTION SetupDiSetClassRegistryPropertyA LIB "SETUPAPI.DLL" ALIAS "SetupDiSetClassRegistryPropertyA" (BYREF ClassGuid AS GUID, _
                                                                                                               BYVAL Property AS DWORD, _
                                                                                                               BYREF PropertyBuffer AS BYTE, _
                                                                                                               BYVAL PropertyBufferSize AS DWORD, _
                                                                                                               BYREF MachineName AS ASCIIZ, _
                                                                                                               BYREF Reserved AS ANY) AS LONG
MACRO SetupDiSetClassRegistryProperty(ClassGuid, Property, PropertyBuffer, PropertyBufferSize, MachineName, Reserved) = SetupDiSetClassRegistryPropertyA(ClassGuid, Property, PropertyBuffer, PropertyBufferSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetDeviceInstallParamsA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceInstallParamsA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                           BYREF DeviceInstallParams AS SP_DEVINSTALL_PARAMS_A) AS LONG
MACRO SetupDiGetDeviceInstallParams(DeviceInfoSet, DeviceInfoData, DeviceInstallParams) = SetupDiGetDeviceInstallParamsA(DeviceInfoSet, DeviceInfoData, DeviceInstallParams)

DECLARE FUNCTION SetupDiGetClassInstallParamsA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassInstallParamsA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                         BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                         BYREF ClassInstallParams AS SP_CLASSINSTALL_HEADER, _
                                                                                                         BYVAL ClassInstallParamsSize AS DWORD, _
                                                                                                         BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetClassInstallParams(DeviceInfoSet, DeviceInfoData, ClassInstallParams, ClassInstallParamsSize, RequiredSize) = SetupDiGetClassInstallParamsA(DeviceInfoSet, DeviceInfoData, ClassInstallParams, ClassInstallParamsSize, RequiredSize)

DECLARE FUNCTION SetupDiSetDeviceInstallParamsA LIB "SETUPAPI.DLL" ALIAS "SetupDiSetDeviceInstallParamsA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                           BYREF DeviceInstallParams AS SP_DEVINSTALL_PARAMS_A) AS LONG
MACRO SetupDiSetDeviceInstallParams(DeviceInfoSet, DeviceInfoData, DeviceInstallParams) = SetupDiSetDeviceInstallParamsA(DeviceInfoSet, DeviceInfoData, DeviceInstallParams)

DECLARE FUNCTION SetupDiSetClassInstallParamsA LIB "SETUPAPI.DLL" ALIAS "SetupDiSetClassInstallParamsA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                         BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                         BYREF ClassInstallParams AS SP_CLASSINSTALL_HEADER, _
                                                                                                         BYVAL ClassInstallParamsSize AS DWORD) AS LONG
MACRO SetupDiSetClassInstallParams(DeviceInfoSet, DeviceInfoData, ClassInstallParams, ClassInstallParamsSize) = SetupDiSetClassInstallParamsA(DeviceInfoSet, DeviceInfoData, ClassInstallParams, ClassInstallParamsSize)

DECLARE FUNCTION SetupDiGetDriverInstallParamsA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDriverInstallParamsA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                           BYREF DriverInfoData AS SP_DRVINFO_DATA_A, _
                                                                                                           BYREF DriverInstallParams AS SP_DRVINSTALL_PARAMS) AS LONG
MACRO SetupDiGetDriverInstallParams(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInstallParams) = SetupDiGetDriverInstallParamsA(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInstallParams)

DECLARE FUNCTION SetupDiSetDriverInstallParamsA LIB "SETUPAPI.DLL" ALIAS "SetupDiSetDriverInstallParamsA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                           BYREF DriverInfoData AS SP_DRVINFO_DATA_A, _
                                                                                                           BYREF DriverInstallParams AS SP_DRVINSTALL_PARAMS) AS LONG
MACRO SetupDiSetDriverInstallParams(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInstallParams) = SetupDiSetDriverInstallParamsA(DeviceInfoSet, DeviceInfoData, DriverInfoData, DriverInstallParams)

DECLARE FUNCTION SetupDiGetClassImageListExA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassImageListExA" (BYREF ClassImageListData AS SP_CLASSIMAGELIST_DATA, _
                                                                                                     BYREF MachineName AS ASCIIZ, _
                                                                                                     BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetClassImageListEx(ClassImageListData, MachineName, Reserved) = SetupDiGetClassImageListExA(ClassImageListData, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetClassDevPropertySheetsA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassDevPropertySheetsA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                 BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                                 BYVAL PropertySheetHeader AS DWORD, _
                                                                                                                 BYVAL PropertySheetHeaderPageListSize AS DWORD, _
                                                                                                                 BYREF RequiredSize AS DWORD, _
                                                                                                                 BYVAL PropertySheetType AS DWORD) AS LONG
MACRO SetupDiGetClassDevPropertySheets(DeviceInfoSet, DeviceInfoData, PropertySheetHeader, PropertySheetHeaderPageListSize, RequiredSize, PropertySheetType) = _
SetupDiGetClassDevPropertySheetsA(DeviceInfoSet, DeviceInfoData, PropertySheetHeader, PropertySheetHeaderPageListSize, RequiredSize, PropertySheetType)

DECLARE FUNCTION SetupDiClassNameFromGuidA LIB "SETUPAPI.DLL" ALIAS "SetupDiClassNameFromGuidA" (BYREF ClassGuid AS GUID, _
                                                                                                 BYREF ClassName AS ASCIIZ, _
                                                                                                 BYVAL ClassNameSize AS DWORD, _
                                                                                                 BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiClassNameFromGuid(ClassGuid, ClassName, ClassNameSize, RequiredSize) = SetupDiClassNameFromGuidA(ClassGuid, ClassName, ClassNameSize, RequiredSize)

DECLARE FUNCTION SetupDiClassNameFromGuidExA LIB "SETUPAPI.DLL" ALIAS "SetupDiClassNameFromGuidExA" (BYREF ClassGuid AS GUID, _
                                                                                                     BYREF ClassName AS ASCIIZ, _
                                                                                                     BYVAL ClassNameSize AS DWORD, _
                                                                                                     BYREF RequiredSize AS DWORD, _
                                                                                                     BYREF MachineName AS ASCIIZ, _
                                                                                                     BYREF Reserved AS ANY) AS LONG
MACRO SetupDiClassNameFromGuidEx(ClassGuid, ClassName, ClassNameSize, RequiredSize, MachineName, Reserved) = SetupDiClassNameFromGuidExA(ClassGuid, ClassName, ClassNameSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiClassGuidsFromNameA LIB "SETUPAPI.DLL" ALIAS "SetupDiClassGuidsFromNameA" (BYREF ClassName AS ASCIIZ, _
                                                                                                   BYREF ClassGuidList AS GUID, _
                                                                                                   BYVAL ClassGuidListSize AS DWORD, _
                                                                                                   BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiClassGuidsFromName(ClassName, ClassGuidList, ClassGuidListSize, RequiredSize) = SetupDiClassGuidsFromNameA(ClassName, ClassGuidList, ClassGuidListSize, RequiredSize)

DECLARE FUNCTION SetupDiClassGuidsFromNameExA LIB "SETUPAPI.DLL" ALIAS "SetupDiClassGuidsFromNameExA" (BYREF ClassName AS ASCIIZ, _
                                                                                                       BYREF ClassGuidList AS GUID, _
                                                                                                       BYVAL ClassGuidListSize AS DWORD, _
                                                                                                       BYREF RequiredSize AS DWORD, _
                                                                                                       BYREF MachineName AS ASCIIZ, _
                                                                                                       BYREF Reserved AS ANY) AS LONG
MACRO SetupDiClassGuidsFromNameEx(ClassName, ClassGuidList, ClassGuidListSize, RequiredSize, MachineName, Reserved) = SetupDiClassGuidsFromNameExA(ClassName, ClassGuidList, ClassGuidListSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetHwProfileFriendlyNameA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetHwProfileFriendlyNameA" (BYVAL HwProfile AS DWORD, _
                                                                                                               BYREF FriendlyName AS ASCIIZ, _
                                                                                                               BYVAL FriendlyNameSize AS DWORD, _
                                                                                                               BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetHwProfileFriendlyName(HwProfile, FriendlyName, FriendlyNameSize, RequiredSize) = SetupDiGetHwProfileFriendlyNameA(HwProfile, FriendlyName, FriendlyNameSize, RequiredSize)

DECLARE FUNCTION SetupDiGetHwProfileFriendlyNameExA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetHwProfileFriendlyNameExA" (BYVAL HwProfile AS DWORD, _
                                                                                                                   BYREF FriendlyName AS ASCIIZ, _
                                                                                                                   BYVAL FriendlyNameSize AS DWORD, _
                                                                                                                   BYREF RequiredSize AS DWORD, _
                                                                                                                   BYREF MachineName AS ASCIIZ, _
                                                                                                                   BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetHwProfileFriendlyNameEx(HwProfile, FriendlyName, FriendlyNameSize, RequiredSize, MachineName, Reserved) = SetupDiGetHwProfileFriendlyNameExA(HwProfile, FriendlyName, FriendlyNameSize, RequiredSize, MachineName, Reserved)

DECLARE FUNCTION SetupDiGetActualSectionToInstallA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetActualSectionToInstallA" (BYVAL InfHandle AS HINF, _
                                                                                                                 BYREF InfSectionName AS ASCIIZ, _
                                                                                                                 BYREF InfSectionWithExt AS ASCIIZ, _
                                                                                                                 BYVAL InfSectionWithExtSize AS DWORD, _
                                                                                                                 BYREF RequiredSize AS DWORD, _
                                                                                                                 BYREF Extension AS ASCIIZ) AS LONG
MACRO SetupDiGetActualSectionToInstall(InfHandle, InfSectionName, InfSectionWithExt, InfSectionWithExtSize, RequiredSize, Extension) = _
SetupDiGetActualSectionToInstallA(InfHandle, InfSectionName, InfSectionWithExt, InfSectionWithExtSize, RequiredSize, Extension)

DECLARE FUNCTION SetupDiGetActualSectionToInstallExA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetActualSectionToInstallExA" (BYVAL InfHandle AS HINF, _
                                                                                                                     BYREF InfSectionName AS ASCIIZ, _
                                                                                                                     BYREF AlternatePlatformInfo AS SP_ALTPLATFORM_INFO, _
                                                                                                                     BYREF InfSectionWithExt AS ASCIIZ, _
                                                                                                                     BYVAL InfSectionWithExtSize AS DWORD, _
                                                                                                                     BYREF RequiredSize AS DWORD, _
                                                                                                                     BYREF Extension AS ASCIIZ, _
                                                                                                                     BYREF Reserved AS ANY) AS LONG
MACRO SetupDiGetActualSectionToInstallEx(InfHandle, InfSectionName, AlternatePlatformInfo, InfSectionWithExt, InfSectionWithExtSize, RequiredSize, Extension, Reserved) = _
SetupDiGetActualSectionToInstallExA(InfHandle, InfSectionName, AlternatePlatformInfo, InfSectionWithExt, InfSectionWithExtSize, RequiredSize, Extension, Reserved)

DECLARE FUNCTION SetupEnumInfSectionsA LIB "SETUPAPI.DLL" ALIAS "SetupEnumInfSectionsA" (BYVAL InfHandle AS HINF, _
                                                                                         BYVAL Index AS DWORD, _
                                                                                         BYREF Buffer AS ASCIIZ, _
                                                                                         BYVAL SIZE AS DWORD, _
                                                                                         BYREF SizeNeeded AS DWORD) AS LONG
MACRO SetupEnumInfSections(InfHandle, Index, Buffer, SIZE, SizeNeeded) = SetupEnumInfSectionsA(InfHandle, Index, Buffer, SIZE, SizeNeeded)

DECLARE FUNCTION SetupDiGetCustomDevicePropertyA LIB "SETUPAPI.DLL" ALIAS "SetupDiGetCustomDevicePropertyA" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                             BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                             BYREF CustomPropertyName AS ASCIIZ, _
                                                                                                             BYVAL Flags AS DWORD, _
                                                                                                             BYREF PropertyRegDataType AS DWORD, _
                                                                                                             BYREF PropertyBuffer AS ANY, _
                                                                                                             BYVAL PropertyBufferSize AS DWORD, _
                                                                                                             BYREF RequiredSize AS DWORD) AS LONG
MACRO SetupDiGetCustomDeviceProperty(DeviceInfoSet, DeviceInfoData, CustomPropertyName, Flags, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize) = _
SetupDiGetCustomDevicePropertyA(DeviceInfoSet, DeviceInfoData, CustomPropertyName, Flags, PropertyRegDataType, PropertyBuffer, PropertyBufferSize, RequiredSize)

DECLARE FUNCTION SetupConfigureWmiFromInfSectionA LIB "SETUPAPI.DLL" ALIAS "SetupConfigureWmiFromInfSectionA" (BYVAL InfHandle AS HINF, _
                                                                                                               BYREF SectionName AS ASCIIZ, _
                                                                                                               BYVAL Flags AS DWORD) AS LONG
MACRO SetupConfigureWmiFromInfSection(InfHandle, SectionName, Flags) = SetupConfigureWmiFromInfSectionA(InfHandle, SectionName, Flags)


#ENDIF ' UNICODE or ANSI declares.


DECLARE FUNCTION SetupOpenMasterInf LIB "SETUPAPI.DLL" ALIAS "SetupOpenMasterInf" () AS HINF
DECLARE SUB SetupCloseInfFile LIB "SETUPAPI.DLL" ALIAS "SetupCloseInfFile" (BYVAL InfHandle AS HINF)
DECLARE FUNCTION SetupFindNextLine LIB "SETUPAPI.DLL" ALIAS "SetupFindNextLine" (BYREF ContextIn AS INFCONTEXT, _
                                                                                 BYREF ContextOut AS INFCONTEXT) AS LONG
DECLARE FUNCTION SetupGetFieldCount LIB "SETUPAPI.DLL" ALIAS "SetupGetFieldCount" (BYREF inContext AS INFCONTEXT) AS DWORD
DECLARE FUNCTION SetupGetIntField LIB "SETUPAPI.DLL" ALIAS "SetupGetIntField" (BYREF inContext AS INFCONTEXT, _
                                                                               BYVAL FieldIndex AS DWORD, _
                                                                               BYREF IntegerValue AS LONG) AS LONG
DECLARE FUNCTION SetupGetBinaryField LIB "SETUPAPI.DLL" ALIAS "SetupGetBinaryField" (BYREF inContext AS INFCONTEXT, _
                                                                                     BYVAL FieldIndex AS DWORD, _
                                                                                     BYREF ReturnBuffer AS ANY, _
                                                                                     BYVAL ReturnBufferSize AS DWORD, _
                                                                                     BYREF RequiredSize AS DWORD) AS LONG
DECLARE FUNCTION SetupCancelTemporarySourceList LIB "SETUPAPI.DLL" ALIAS "SetupCancelTemporarySourceList" () AS LONG
DECLARE FUNCTION SetupOpenFileQueue LIB "SETUPAPI.DLL" ALIAS "SetupOpenFileQueue" () AS HSPFILEQ
DECLARE FUNCTION SetupCloseFileQueue LIB "SETUPAPI.DLL" ALIAS "SetupCloseFileQueue" (BYVAL QueueHandle AS HSPFILEQ) AS LONG
DECLARE FUNCTION SetupGetFileQueueCount LIB "SETUPAPI.DLL" ALIAS "SetupGetFileQueueCount" (BYVAL FileQueue AS HSPFILEQ, _
                                                                                           BYVAL SubQueueFileOp AS DWORD, _
                                                                                           BYREF NumOperations AS DWORD) AS LONG
DECLARE FUNCTION SetupGetFileQueueFlags LIB "SETUPAPI.DLL" ALIAS "SetupGetFileQueueFlags" (BYVAL FileQueue AS HSPFILEQ, _
                                                                                           BYREF Flags AS DWORD) AS LONG
DECLARE FUNCTION SetupSetFileQueueFlags LIB "SETUPAPI.DLL" ALIAS "SetupSetFileQueueFlags" (BYVAL FileQueue AS HSPFILEQ, _
                                                                                           BYVAL FlagMask AS DWORD, _
                                                                                           BYVAL Flags AS DWORD) AS LONG
DECLARE FUNCTION SetupUninstallNewlyCopiedInfs LIB "SETUPAPI.DLL" ALIAS "SetupUninstallNewlyCopiedInfs" (BYVAL FileQueue AS HSPFILEQ, _
                                                                                                         BYVAL Flags AS DWORD, _
                                                                                                         BYREF Reserved AS ANY) AS LONG
DECLARE FUNCTION SetupDestroyDiskSpaceList LIB "SETUPAPI.DLL" ALIAS "SetupDestroyDiskSpaceList" (BYREF DiskSpace AS ANY) AS LONG
DECLARE FUNCTION SetupPromptReboot LIB "SETUPAPI.DLL" ALIAS "SetupPromptReboot" (BYVAL FileQueue AS HSPFILEQ, _
                                                                                 BYVAL Owner AS DWORD, _
                                                                                 BYVAL ScanOnly AS LONG) AS LONG
DECLARE FUNCTION SetupInitDefaultQueueCallback LIB "SETUPAPI.DLL" ALIAS "SetupInitDefaultQueueCallback" (BYVAL OwnerWindow AS DWORD) AS DWORD
DECLARE FUNCTION SetupInitDefaultQueueCallbackEx LIB "SETUPAPI.DLL" ALIAS "SetupInitDefaultQueueCallbackEx" (BYVAL OwnerWindow AS DWORD, _
                                                                                                             BYVAL AlternateProgressWindow AS DWORD, _
                                                                                                             BYVAL ProgressMessage AS DWORD, _
                                                                                                             BYVAL Reserved1 AS DWORD, _
                                                                                                             BYREF Reserved2 AS ANY) AS DWORD
DECLARE SUB SetupTermDefaultQueueCallback LIB "SETUPAPI.DLL" ALIAS "SetupTermDefaultQueueCallback" (BYREF inContext AS ANY)
DECLARE FUNCTION SetupTerminateFileLog LIB "SETUPAPI.DLL" ALIAS "SetupTerminateFileLog" (BYVAL FileLogHandle AS HSPFILELOG) AS LONG
DECLARE FUNCTION SetupOpenLog LIB "SETUPAPI.DLL" ALIAS "SetupOpenLog" (BYVAL bErase AS LONG) AS LONG
DECLARE SUB SetupCloseLog LIB "SETUPAPI.DLL" ALIAS "SetupCloseLog"
DECLARE FUNCTION SetupSetNonInteractiveMode LIB "SETUPAPI.DLL" ALIAS "SetupSetNonInteractiveMode" (BYVAL NonInteractiveFlag AS LONG) AS LONG
DECLARE FUNCTION SetupGetNonInteractiveMode LIB "SETUPAPI.DLL" ALIAS "SetupGetNonInteractiveMode" () AS LONG
DECLARE FUNCTION SetupDiCreateDeviceInfoList LIB "SETUPAPI.DLL" ALIAS "SetupDiCreateDeviceInfoList" (BYREF ClassGuid AS GUID, _
                                                                                                     BYVAL hwndParent AS DWORD) AS DWORD
DECLARE FUNCTION SetupDiGetDeviceInfoListClass LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceInfoListClass" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                         BYREF ClassGuid AS GUID) AS LONG
DECLARE FUNCTION SetupDiDeleteDeviceInfo LIB "SETUPAPI.DLL" ALIAS "SetupDiDeleteDeviceInfo" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                             BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
DECLARE FUNCTION SetupDiEnumDeviceInfo LIB "SETUPAPI.DLL" ALIAS "SetupDiEnumDeviceInfo" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                         BYVAL MemberIndex AS DWORD, _
                                                                                         BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
DECLARE FUNCTION SetupDiDestroyDeviceInfoList LIB "SETUPAPI.DLL" ALIAS "SetupDiDestroyDeviceInfoList" (BYVAL DeviceInfoSet AS DWORD) AS LONG
DECLARE FUNCTION SetupDiEnumDeviceInterfaces LIB "SETUPAPI.DLL" ALIAS "SetupDiEnumDeviceInterfaces" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                     BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                     BYREF InterfaceClassGuid AS GUID, _
                                                                                                     BYVAL MemberIndex AS DWORD, _
                                                                                                     BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA) AS LONG
DECLARE FUNCTION SetupDiGetDeviceInterfaceAlias LIB "SETUPAPI.DLL" ALIAS "SetupDiGetDeviceInterfaceAlias" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                           BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA, _
                                                                                                           BYREF AliasInterfaceClassGuid AS GUID, _
                                                                                                           BYREF AliasDeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA) AS LONG
DECLARE FUNCTION SetupDiDeleteDeviceInterfaceData LIB "SETUPAPI.DLL" ALIAS "SetupDiDeleteDeviceInterfaceData" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                               BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA) AS LONG
DECLARE FUNCTION SetupDiRemoveDeviceInterface LIB "SETUPAPI.DLL" ALIAS "SetupDiRemoveDeviceInterface" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                       BYREF DeviceInterfaceData AS ANY) AS LONG
DECLARE FUNCTION SetupDiInstallDeviceInterfaces LIB "SETUPAPI.DLL" ALIAS "SetupDiInstallDeviceInterfaces" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
DECLARE FUNCTION SetupDiSetDeviceInterfaceDefault LIB "SETUPAPI.DLL" ALIAS "SetupDiSetDeviceInterfaceDefault" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                               BYREF DeviceInterfaceData AS ANY, _
                                                                                                               BYVAL Flags AS DWORD, _
                                                                                                               BYREF Reserved AS ANY) AS LONG
DECLARE FUNCTION SetupDiRegisterDeviceInfo LIB "SETUPAPI.DLL" ALIAS "SetupDiRegisterDeviceInfo" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                 BYREF DeviceInfoData AS ANY, _
                                                                                                 BYVAL Flags AS DWORD, _
                                                                                                 BYVAL CompareProc AS DWORD, _
                                                                                                 BYREF CompareContext AS ANY, _
                                                                                                 BYREF DupDeviceInfoData AS SP_DEVINFO_DATA) AS LONG
DECLARE FUNCTION SetupDiBuildDriverInfoList LIB "SETUPAPI.DLL" ALIAS "SetupDiBuildDriverInfoList" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                   BYREF DeviceInfoData AS ANY, _
                                                                                                   BYVAL DriverType AS DWORD) AS LONG
DECLARE FUNCTION SetupDiCancelDriverInfoSearch LIB "SETUPAPI.DLL" ALIAS "SetupDiCancelDriverInfoSearch" (BYVAL DeviceInfoSet AS DWORD) AS LONG
DECLARE FUNCTION SetupDiDestroyDriverInfoList LIB "SETUPAPI.DLL" ALIAS "SetupDiDestroyDriverInfoList" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                       BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                                       BYVAL DriverType AS DWORD) AS LONG
DECLARE FUNCTION SetupDiBuildClassInfoList LIB "SETUPAPI.DLL" ALIAS "SetupDiBuildClassInfoList" (BYVAL Flags AS DWORD, _
                                                                                                 BYREF ClassGuidList AS GUID, _
                                                                                                 BYVAL ClassGuidListSize AS DWORD, _
                                                                                                 BYREF RequiredSize AS DWORD) AS LONG
DECLARE FUNCTION SetupDiCallClassInstaller LIB "SETUPAPI.DLL" ALIAS "SetupDiCallClassInstaller" (BYVAL InstallFunction AS DI_FUNCTION, _
                                                                                                 BYVAL DeviceInfoSet AS DWORD, _
                                                                                                 BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
DECLARE FUNCTION SetupDiSelectDevice LIB "SETUPAPI.DLL" ALIAS "SetupDiSelectDevice" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                     BYREF DeviceInfoData AS ANY) AS LONG
DECLARE FUNCTION SetupDiSelectBestCompatDrv LIB "SETUPAPI.DLL" ALIAS "SetupDiSelectBestCompatDrv" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                   BYREF DeviceInfoData AS ANY) AS LONG
DECLARE FUNCTION SetupDiInstallDevice LIB "SETUPAPI.DLL" ALIAS "SetupDiInstallDevice" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                       BYREF DeviceInfoData AS ANY) AS LONG
DECLARE FUNCTION SetupDiInstallDriverFiles LIB "SETUPAPI.DLL" ALIAS "SetupDiInstallDriverFiles" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                 BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
DECLARE FUNCTION SetupDiRegisterCoDeviceInstallers LIB "SETUPAPI.DLL" ALIAS "SetupDiRegisterCoDeviceInstallers" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                 BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
DECLARE FUNCTION SetupDiRemoveDevice LIB "SETUPAPI.DLL" ALIAS "SetupDiRemoveDevice" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                     BYREF DeviceInfoData AS ANY) AS LONG
DECLARE FUNCTION SetupDiUnremoveDevice LIB "SETUPAPI.DLL" ALIAS "SetupDiUnremoveDevice" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                         BYREF DeviceInfoData AS ANY) AS LONG
DECLARE FUNCTION SetupDiChangeState LIB "SETUPAPI.DLL" ALIAS "SetupDiChangeState" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                   BYREF DeviceInfoData AS ANY) AS LONG
DECLARE FUNCTION SetupDiOpenClassRegKey LIB "SETUPAPI.DLL" ALIAS "SetupDiOpenClassRegKey" (BYREF ClassGuid AS GUID, _
                                                                                           BYVAL samDesired AS DWORD) AS DWORD
DECLARE FUNCTION SetupDiOpenDeviceInterfaceRegKey LIB "SETUPAPI.DLL" ALIAS "SetupDiOpenDeviceInterfaceRegKey" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                               BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA, _
                                                                                                               BYVAL Reserved AS DWORD, _
                                                                                                               BYVAL samDesired AS DWORD) AS DWORD
DECLARE FUNCTION SetupDiDeleteDeviceInterfaceRegKey LIB "SETUPAPI.DLL" ALIAS "SetupDiDeleteDeviceInterfaceRegKey" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                                                   BYREF DeviceInterfaceData AS SP_DEVICE_INTERFACE_DATA, _
                                                                                                                   BYVAL Reserved AS DWORD) AS LONG
DECLARE FUNCTION SetupDiOpenDevRegKey LIB "SETUPAPI.DLL" ALIAS "SetupDiOpenDevRegKey" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                       BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                       BYVAL Scope AS DWORD, _
                                                                                       BYVAL HwProfile AS DWORD, _
                                                                                       BYVAL KeyType AS DWORD, _
                                                                                       BYVAL samDesired AS DWORD) AS DWORD
DECLARE FUNCTION SetupDiDeleteDevRegKey LIB "SETUPAPI.DLL" ALIAS "SetupDiDeleteDevRegKey" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                           BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                           BYVAL Scope AS DWORD, _
                                                                                           BYVAL HwProfile AS DWORD, _
                                                                                           BYVAL KeyType AS DWORD) AS LONG
DECLARE FUNCTION SetupDiGetHwProfileList LIB "SETUPAPI.DLL" ALIAS "SetupDiGetHwProfileList" (BYREF HwProfileList AS DWORD, _
                                                                                             BYVAL HwProfileListSize AS DWORD, _
                                                                                             BYREF RequiredSize AS DWORD, _
                                                                                             BYREF CurrentlyActiveIndex AS DWORD) AS LONG
DECLARE FUNCTION SetupDiLoadClassIcon LIB "SETUPAPI.DLL" ALIAS "SetupDiLoadClassIcon" (BYREF ClassGuid AS GUID, _
                                                                                       BYREF LargeIcon AS DWORD, _
                                                                                       BYREF MiniIconIndex AS LONG) AS LONG
DECLARE FUNCTION SetupDiDrawMiniIcon LIB "SETUPAPI.DLL" ALIAS "SetupDiDrawMiniIcon" (BYVAL hdc AS DWORD, _
                                                                                     BYVAL rc AS RECT, _
                                                                                     BYVAL MiniIconIndex AS LONG, _
                                                                                     BYVAL Flags AS DWORD) AS LONG
DECLARE FUNCTION SetupDiGetClassBitmapIndex LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassBitmapIndex" (BYREF ClassGuid AS GUID, _
                                                                                                   BYREF MiniIconIndex AS LONG) AS LONG
DECLARE FUNCTION SetupDiGetClassImageList LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassImageList" (BYREF ClassImageListData AS SP_CLASSIMAGELIST_DATA) AS LONG
DECLARE FUNCTION SetupDiGetClassImageIndex LIB "SETUPAPI.DLL" ALIAS "SetupDiGetClassImageIndex" (BYREF ClassImageListData AS SP_CLASSIMAGELIST_DATA, _
                                                                                                 BYREF ClassGuid AS GUID, _
                                                                                                 BYREF ImageIndex AS LONG) AS LONG
DECLARE FUNCTION SetupDiDestroyClassImageList LIB "SETUPAPI.DLL" ALIAS "SetupDiDestroyClassImageList" (BYREF ClassImageListData AS SP_CLASSIMAGELIST_DATA) AS LONG
DECLARE FUNCTION SetupDiAskForOEMDisk LIB "SETUPAPI.DLL" ALIAS "SetupDiAskForOEMDisk" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                       BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
DECLARE FUNCTION SetupDiSelectOEMDrv LIB "SETUPAPI.DLL" ALIAS "SetupDiSelectOEMDrv" (BYVAL hwndParent AS DWORD, _
                                                                                     BYVAL DeviceInfoSet AS DWORD, _
                                                                                     BYREF DeviceInfoData AS ANY) AS LONG
DECLARE FUNCTION SetupDiGetWizardPage LIB "SETUPAPI.DLL" ALIAS "SetupDiGetWizardPage" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                       BYREF DeviceInfoData AS SP_DEVINFO_DATA, _
                                                                                       BYREF InstallWizardData AS SP_INSTALLWIZARD_DATA, _
                                                                                       BYVAL PageType AS DWORD, _
                                                                                       BYVAL Flags AS DWORD) AS DWORD
DECLARE FUNCTION SetupDiGetSelectedDevice LIB "SETUPAPI.DLL" ALIAS "SetupDiGetSelectedDevice" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                               BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG
DECLARE FUNCTION SetupDiSetSelectedDevice LIB "SETUPAPI.DLL" ALIAS "SetupDiSetSelectedDevice" (BYVAL DeviceInfoSet AS DWORD, _
                                                                                               BYREF DeviceInfoData AS SP_DEVINFO_DATA) AS LONG


#ENDIF '  %SETUPAPI

SetupApiClassInfo.INC.....(My wrapper to the setupapi...again sorry about the size)

Code:

________________________________________________________________________________________
'
'  Device Viewer
'  -------------
'
'  Win 95 must have IE4 installed and NT4 must have SP3 or later installed.
'________________________________________________________________________________________

''  Note that SPDRP codes are zero based while CM_DRP codes are one based!
'
'%SPDRP_DEVICEDESC                  = (&H00000000)  '  DeviceDesc (R/W)
'%SPDRP_HARDWAREID                  = (&H00000001)  '  HardwareID (R/W)
'%SPDRP_COMPATIBLEIDS               = (&H00000002)  '  CompatibleIDs (R/W)
'%SPDRP_UNUSED0                     = (&H00000003)  '  unused
'%SPDRP_SERVICE                     = (&H00000004)  '  Service (R/W)
'%SPDRP_UNUSED1                     = (&H00000005)  '  unused
'%SPDRP_UNUSED2                     = (&H00000006)  '  unused
'%SPDRP_CLASS                       = (&H00000007)  '  Class (R--tied to ClassGUID)
'%SPDRP_CLASSGUID                   = (&H00000008)  '  ClassGUID (R/W)
'%SPDRP_DRIVER                      = (&H00000009)  '  Driver (R/W)
'%SPDRP_CONFIGFLAGS                 = (&H0000000A)  '  ConfigFlags (R/W)
'%SPDRP_MFG                         = (&H0000000B)  '  Mfg (R/W)
'%SPDRP_FRIENDLYNAME                = (&H0000000C)  '  FriendlyName (R/W)
'%SPDRP_LOCATION_INFORMATION        = (&H0000000D)  '  LocationInformation (R/W)
'%SPDRP_PHYSICAL_DEVICE_OBJECT_NAME  =(&H0000000E)  '  PhysicalDeviceObjectName (R)
'%SPDRP_CAPABILITIES                = (&H0000000F)  '  Capabilities (R)
'%SPDRP_UI_NUMBER                   = (&H00000010)  '  UiNumber (R)
'%SPDRP_UPPERFILTERS                = (&H00000011)  '  UpperFilters (R/W)
'%SPDRP_LOWERFILTERS                = (&H00000012)  '  LowerFilters (R/W)
'%SPDRP_BUSTYPEGUID                 = (&H00000013)  '  BusTypeGUID (R)
'%SPDRP_LEGACYBUSTYPE               = (&H00000014)  '  LegacyBusType (R)
'%SPDRP_BUSNUMBER                   = (&H00000015)  '  BusNumber (R)
'%SPDRP_ENUMERATOR_NAME             = (&H00000016)  '  Enumerator Name (R)
'%SPDRP_SECURITY                    = (&H00000017)  '  Security (R/W, binary form)
'%SPDRP_SECURITY_SDS                = (&H00000018)  '  Security (W, SDS form)
'%SPDRP_DEVTYPE                     = (&H00000019)  '  Device Type (R/W)
'%SPDRP_EXCLUSIVE                   = (&H0000001A)  '  Device is exclusive-access (R/W)
'%SPDRP_CHARACTERISTICS             = (&H0000001B)  '  Device Characteristics (R/W)
'%SPDRP_ADDRESS                     = (&H0000001C)  '  Device Address (R)
'%SPDRP_UI_NUMBER_DESC_FORMAT       = (&H0000001D)  '  UiNumberDescFormat (R/W)
'%SPDRP_DEVICE_POWER_DATA           = (&H0000001E)  '  Device Power Data (R)
'%SPDRP_REMOVAL_POLICY              = (&H0000001F)  '  Removal Policy (R)
'%SPDRP_REMOVAL_POLICY_HW_DEFAULT   = (&H00000020)  '  Hardware Removal Policy (R)
'%SPDRP_REMOVAL_POLICY_OVERRIDE     = (&H00000021)  '  Removal Policy Override (RW)
'%SPDRP_INSTALL_STATE               = (&H00000022)  '  Device Install State (R)
'%SPDRP_LOCATION_PATHS              = (&H00000023)  '  Device Location Paths (R)
'
'%SPDRP_MAXIMUM_PROPERTY            = (&H00000024)  '  Upper bound on ordinals

FUNCTION GetDeviceList ALIAS "GetDeviceList"() EXPORT AS DWORD
     FUNCTION = SetupDiGetClassDevs(BYVAL %NULL, BYVAL %NULL, BYVAL %NULL, %DIGCF_ALLCLASSES)       ' Get a handle to the device list...
'*** Test to see if next line is for use with only present devices?
'  hDeviceInfo = SetupDiGetClassDevs(BYVAL %NULL, BYVAL %NULL, byval %NULL, %DIGCF_PRESENT)
END FUNCTION

FUNCTION GetDeviceListSize ALIAS "GetDeviceListSize"() EXPORT AS DWORD
     FUNCTION = SIZEOF(spdi)
END FUNCTION

FUNCTION GetDeviceClass ALIAS "GetDeviceClass"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_CLASS, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceFriendlyName ALIAS "GetDeviceFriendlyName"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_FRIENDLYNAME, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)    ' Try and get friendly name...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceDesc ALIAS "GetDeviceDesc"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_DEVICEDESC, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceHardwareId ALIAS "GetDeviceHardwareId"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_HARDWAREID, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceCompatibleId ALIAS "GetDeviceCompatibleId"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_COMPATIBLEIDS, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceUnused0 ALIAS "GeDevicetUnused0"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_UNUSED0, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceService ALIAS "GetDeviceService"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_SERVICE, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceUnused1 ALIAS "GetDeviceUnused1"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_UNUSED1, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceUnused2 ALIAS "GetDeviceUnused2"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_UNUSED2, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceClassGuid ALIAS "GetDeviceClassGuid"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_CLASSGUID, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceDriver ALIAS "GetDeviceDriver"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_DRIVER, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceConfigFlags ALIAS "GetDeviceConfigFlags"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_CONFIGFLAGS, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceMfg ALIAS "GetDeviceMfg"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_MFG, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceLocation ALIAS "GetDeviceLocation"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_LOCATION_INFORMATION, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceObjectName ALIAS "GetDeviceObjectName"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_PHYSICAL_DEVICE_OBJECT_NAME, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceCapabilities ALIAS "GetDeviceCapabilities"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_CAPABILITIES, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceUiNumber ALIAS "GetDeviceUiNumber"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_UI_NUMBER, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceUpperFilters ALIAS "GetDeviceUpperFilters"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_UPPERFILTERS, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceLowerFilters ALIAS "GetDeviceLowerFilters"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_LOWERFILTERS, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceBusTypeGuid ALIAS "GetDeviceBusTypeGuid"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_BUSTYPEGUID, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceLegacyBusType ALIAS "GetDeviceLegacyBusType"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_LEGACYBUSTYPE, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceBusNumber ALIAS "GetDeviceBusNumber"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_BUSNUMBER, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceEnumeratorName ALIAS "GetDeviceEnumeratorName"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_ENUMERATOR_NAME, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceSecurityBinary ALIAS "GetDeviceSecurityBinary"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_SECURITY, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceSecuritySelfDirectedSearch ALIAS "GetDeviceSecuritySelfDirectedSearch"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_SECURITY_SDS, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceType ALIAS "GetDeviceType"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_DEVTYPE, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceExclusive ALIAS "GetDeviceExclusive"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_EXCLUSIVE, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceCharacteristics ALIAS "GetDeviceCharacteristics"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_CHARACTERISTICS, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceAddress ALIAS "GetDeviceAddress"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_ADDRESS, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceUiNumberDescFormat ALIAS "GetDeviceUiNumberDescFormat"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_UI_NUMBER_DESC_FORMAT, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceMaximumProperty ALIAS "GetDeviceMaximumProperty"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_MAXIMUM_PROPERTY, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceRemovalPolicy ALIAS "GetDeviceRemovalPolicy"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_REMOVAL_POLICY, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceRemovalPolicyDefault ALIAS "GetDeviceRemovalPolicyDefault"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_REMOVAL_POLICY_HW_DEFAULT, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceRemovalPolicyOverride ALIAS "GetDeviceRemovalPolicyOverride"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_REMOVAL_POLICY_OVERRIDE, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceInstallState ALIAS "GetDeviceInstallState"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_INSTALL_STATE, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDeviceLocationPaths ALIAS "GetDeviceLocationPaths"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_LOCATION_PATHS, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION GetDevicePowerData ALIAS "GetDevicePowerData"() EXPORT AS STRING
     DIM zText AS ASCIIZ * %MAX_PATH
     SetupDiGetDeviceRegistryProperty(hDeviceInfo, spdi, %SPDRP_DEVICE_POWER_DATA, BYVAL %NULL, zText, SIZEOF(zText), BYVAL %NULL)      ' Just get description...
     FUNCTION = zText
END FUNCTION

FUNCTION DestroyDeviceList ALIAS "DestroyDeviceList"() EXPORT AS DWORD
     FUNCTION = SetupDiDestroyDeviceInfoList(hDeviceInfo)        ' Tidy up...
'*** Test to see if next line is for use with only present devices?
'  hDeviceInfo = SetupDiGetClassDevs(BYVAL %NULL, BYVAL %NULL, byval %NULL, %DIGCF_PRESENT)
END FUNCTION

FUNCTION ListUsbDrivers ALIAS "ListUsbDrivers"() EXPORT AS LONG
'     LOCAL i AS LONG, zText AS ASCIIZ * 1024          '<--- NEVER use a hardcoded value you will forget later
     LOCAL i AS LONG, zText AS ASCIIZ * %MAX_PATH
'Default arrays
     REDIM InfoUsbDriver(LBOUND(InfoUsbDriver))
' Enumerate devices using SETUPAPI.DLL...
     hDeviceInfo = GetDeviceList
     spdi.cbSize = GetDeviceListSize
     DO UNTIL SetupDiEnumDeviceInfo(hDeviceInfo, i, spdi) = 0
          SELECT CASE UCASE$(GetDeviceClass)
               CASE "USB"
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).ClassName = GetDeviceClass
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).FriendlyName = GetDeviceFriendlyName
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).DeviceDesc = GetDeviceDesc
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).HardwareId = GetDeviceHardwareId
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).CompatibleId = GetDeviceCompatibleId
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).Service = GetDeviceService
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).ClassGuid = GetDeviceClassGuid
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).Driver = GetDeviceDriver
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).ConfigFlags = GetDeviceConfigFlags
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).Mfg = GetDeviceMfg
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).Location = GetDeviceLocation
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).ObjectName = GetDeviceObjectName
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).Capabilities = GetDeviceCapabilities
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).UiNumber = GetDeviceUiNumber
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).UpperFilters = GetDeviceUpperFilters
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).LowerFilters = GetDeviceLowerFilters
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).BusTypeGuid = GetDeviceBusTypeGuid
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).LegacyBusType = GetDeviceCompatibleId
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).BusNumber = GetDeviceCompatibleId
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).EnumeratorName = GetDeviceCompatibleId
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).SecurityBinary = GetDeviceCompatibleId
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).SecuritySelfDirectedSearch = GetDeviceSecuritySelfDirectedSearch
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).DeviceType = GetDeviceType
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).Exclusive = GetDeviceExclusive
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).Characteristics = GetDeviceCharacteristics
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).Address = GetDeviceAddress
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).UiNumberDescFormat = GetDeviceUiNumberDescFormat
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).MaximumProperty = GetDeviceMaximumProperty
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicy = GetDeviceRemovalPolicy
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicyDefault = GetDeviceRemovalPolicyDefault
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicyOverride = GetDeviceRemovalPolicyOverride
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).InstallState = GetDeviceInstallState
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).LocationPaths = GetDeviceLocationPaths
                    InfoUsbDriver(UBOUND(InfoUsbDriver)).PowerData = GetDevicePowerData
'                    InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused0 = GetDeviceUnused0                          '<--- Supposedly UnUsed
'                    InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused1 = GetDeviceUnused1                          '<--- Supposedly UnUsed
'                    InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused2 = GetDeviceUnused2                          '<--- Supposedly UnUsed
'*** The following replacements are for RTF to display properly
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ClassName
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).FriendlyName
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).DeviceDesc
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).HardwareId
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).CompatibleId
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Service
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ClassGuid
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Driver
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ConfigFlags
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Mfg
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Location
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ObjectName
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Capabilities
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).UiNumber
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).UpperFilters
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).LowerFilters
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).BusTypeGuid
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).LegacyBusType
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).BusNumber
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).EnumeratorName
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).SecurityBinary
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).SecuritySelfDirectedSearch
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).DeviceType
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Exclusive
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Characteristics
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Address
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).UiNumberDescFormat
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).MaximumProperty
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicy
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicyDefault
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicyOverride
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).InstallState
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).LocationPaths
                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).PowerData
'                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused0                          '<--- Supposedly UnUsed
'                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused1                          '<--- Supposedly UnUsed
'                    REPLACE "\" WITH "/" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused2                          '<--- Supposedly UnUsed
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ClassName
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).FriendlyName
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).DeviceDesc
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).HardwareId
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).CompatibleId
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Service
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ClassGuid
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Driver
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ConfigFlags
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Mfg
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Location
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ObjectName
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Capabilities
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).UiNumber
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).UpperFilters
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).LowerFilters
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).BusTypeGuid
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).LegacyBusType
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).BusNumber
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).EnumeratorName
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).SecurityBinary
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).SecuritySelfDirectedSearch
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).DeviceType
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Exclusive
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Characteristics
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Address
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).UiNumberDescFormat
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).MaximumProperty
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicy
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicyDefault
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicyOverride
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).InstallState
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).LocationPaths
                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).PowerData
'                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused0                          '<--- Supposedly UnUsed
'                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused1                          '<--- Supposedly UnUsed
'                    REPLACE "{" WITH "[" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused2                          '<--- Supposedly UnUsed
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ClassName
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).FriendlyName
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).DeviceDesc
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).HardwareId
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).CompatibleId
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Service
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ClassGuid
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Driver
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ConfigFlags
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Mfg
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Location
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).ObjectName
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Capabilities
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).UiNumber
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).UpperFilters
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).LowerFilters
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).BusTypeGuid
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).LegacyBusType
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).BusNumber
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).EnumeratorName
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).SecurityBinary
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).SecuritySelfDirectedSearch
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).DeviceType
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Exclusive
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Characteristics
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Address
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).UiNumberDescFormat
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).MaximumProperty
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicy
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicyDefault
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).RemovalPolicyOverride
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).InstallState
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).LocationPaths
                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).PowerData
'                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused0                          '<--- Supposedly UnUsed
'                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused1                          '<--- Supposedly UnUsed
'                    REPLACE "}" WITH "]" IN InfoUsbDriver(UBOUND(InfoUsbDriver)).Unused2                          '<--- Supposedly UnUsed
                    REDIM PRESERVE InfoUsbDriver(UBOUND(InfoUsbDriver) + 1)
               CASE ELSE
          END SELECT
          INCR i
     LOOP
     DestroyDeviceList
     REDIM PRESERVE InfoUsbDriver(UBOUND(InfoUsbDriver) - 1)                    'Get rid of top UnUsed Element
     FUNCTION = %True
END FUNCTION

FUNCTION ListSerialDrivers ALIAS "ListSerialDrivers"() EXPORT AS LONG
'     LOCAL i AS LONG, zText AS ASCIIZ * 1024                         '<--- NEVER use a hardcoded value you will forget later
     LOCAL i AS LONG, zText AS ASCIIZ * %MAX_PATH
'Default arrays
     REDIM InfoSerialDriver(LBOUND(InfoSerialDriver))
' Enumerate devices using SETUPAPI.DLL...
     hDeviceInfo = GetDeviceList
     spdi.cbSize = GetDeviceListSize
     DO UNTIL SetupDiEnumDeviceInfo(hDeviceInfo, i, spdi) = 0
          SELECT CASE UCASE$(GetDeviceClass)
               CASE "PORTS"
                    SELECT CASE INSTR(UCASE$(GetDeviceFriendlyName), "LPT")
                         CASE 0    'Not a parallel port
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).ClassName = GetDeviceClass
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).FriendlyName = GetDeviceFriendlyName
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).DeviceDesc = GetDeviceDesc
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).HardwareId = GetDeviceHardwareId
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).CompatibleId = GetDeviceCompatibleId
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).Service = GetDeviceService
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).ClassGuid = GetDeviceClassGuid
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).Driver = GetDeviceDriver
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).ConfigFlags = GetDeviceConfigFlags
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).Mfg = GetDeviceMfg
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).Location = GetDeviceLocation
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).ObjectName = GetDeviceObjectName
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).Capabilities = GetDeviceCapabilities
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).UiNumber = GetDeviceUiNumber
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).UpperFilters = GetDeviceUpperFilters
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).LowerFilters = GetDeviceLowerFilters
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).BusTypeGuid = GetDeviceBusTypeGuid
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).LegacyBusType = GetDeviceCompatibleId
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).BusNumber = GetDeviceCompatibleId
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).EnumeratorName = GetDeviceCompatibleId
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).SecurityBinary = GetDeviceCompatibleId
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).SecuritySelfDirectedSearch = GetDeviceSecuritySelfDirectedSearch
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).DeviceType = GetDeviceType
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).Exclusive = GetDeviceExclusive
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).Characteristics = GetDeviceCharacteristics
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).Address = GetDeviceAddress
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).UiNumberDescFormat = GetDeviceUiNumberDescFormat
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).MaximumProperty = GetDeviceMaximumProperty
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicy = GetDeviceRemovalPolicy
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicyDefault = GetDeviceRemovalPolicyDefault
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicyOverride = GetDeviceRemovalPolicyOverride
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).InstallState = GetDeviceInstallState
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).LocationPaths = GetDeviceLocationPaths
                              InfoSerialDriver(UBOUND(InfoSerialDriver)).PowerData = GetDevicePowerData
'                              InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused0 = GetDeviceUnused0
'                              InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused1 = GetDeviceUnused1
'                              InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused2 = GetDeviceUnused2
'*** The following replacements are for RTF to display properly
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ClassName
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).FriendlyName
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).DeviceDesc
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).HardwareId
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).CompatibleId
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Service
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ClassGuid
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Driver
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ConfigFlags
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Mfg
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Location
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ObjectName
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Capabilities
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).UiNumber
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).UpperFilters
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).LowerFilters
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).BusTypeGuid
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).LegacyBusType
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).BusNumber
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).EnumeratorName
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).SecurityBinary
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).SecuritySelfDirectedSearch
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).DeviceType
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Exclusive
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Characteristics
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Address
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).UiNumberDescFormat
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).MaximumProperty
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicy
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicyDefault
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicyOverride
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).InstallState
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).LocationPaths
                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).PowerData
'                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused0
'                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused1
'                              REPLACE "\" WITH "/" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused2
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ClassName
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).FriendlyName
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).DeviceDesc
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).HardwareId
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).CompatibleId
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Service
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ClassGuid
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Driver
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ConfigFlags
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Mfg
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Location
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ObjectName
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Capabilities
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).UiNumber
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).UpperFilters
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).LowerFilters
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).BusTypeGuid
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).LegacyBusType
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).BusNumber
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).EnumeratorName
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).SecurityBinary
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).SecuritySelfDirectedSearch
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).DeviceType
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Exclusive
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Characteristics
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Address
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).UiNumberDescFormat
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).MaximumProperty
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicy
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicyDefault
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicyOverride
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).InstallState
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).LocationPaths
                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).PowerData
'                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused0
'                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused1
'                              REPLACE "{" WITH "[" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused2
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ClassName
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).FriendlyName
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).DeviceDesc
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).HardwareId
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).CompatibleId
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Service
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ClassGuid
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Driver
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ConfigFlags
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Mfg
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Location
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).ObjectName
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Capabilities
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).UiNumber
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).UpperFilters
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).LowerFilters
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).BusTypeGuid
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).LegacyBusType
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).BusNumber
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).EnumeratorName
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).SecurityBinary
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).SecuritySelfDirectedSearch
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).DeviceType
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Exclusive
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Characteristics
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Address
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).UiNumberDescFormat
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).MaximumProperty
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicy
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicyDefault
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).RemovalPolicyOverride
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).InstallState
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).LocationPaths
                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).PowerData
'                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused0
'                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused1
'                              REPLACE "}" WITH "]" IN InfoSerialDriver(UBOUND(InfoSerialDriver)).Unused2
                              REDIM PRESERVE InfoSerialDriver(UBOUND(InfoSerialDriver) + 1)
                         CASE ELSE      'Parallel port
                    END SELECT
               CASE ELSE
          END SELECT
          INCR i
     LOOP
     DestroyDeviceList
     REDIM PRESERVE InfoSerialDriver(UBOUND(InfoSerialDriver) - 1)
     FUNCTION = %True
END FUNCTION

and Last (but not least) "SoftwareInfo.INC"

Code:

FUNCTION GetSoftwarePath ALIAS "GetSoftwarePath"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM i AS LONG
     GetModuleFileName(hInst, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     aExeName = FilePath(aExeName)
     REPLACE "\" WITH "/" IN aExeName                       'Added because "\" is an escape code for RTF commands
     FUNCTION = aExeName
END FUNCTION

FUNCTION GetSoftwarePathName ALIAS "GetSoftwarePathName"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM i AS LONG
     GetModuleFileName(hInst, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     FUNCTION = FilePathName(aExeName)
END FUNCTION

FUNCTION GetSoftwareParentPath ALIAS "GetSoftwareParentPath"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM i AS LONG
     GetModuleFileName(BYVAL %NULL, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     aExeName = FilePath(aExeName)
     REPLACE "\" WITH "/" IN aExeName                            'Added because "\" is an escape code for RTF commands
     FUNCTION = aExeName
END FUNCTION

FUNCTION GetSoftwareParentPathName ALIAS "GetSoftwareParentPathName"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM i AS LONG
     GetModuleFileName(BYVAL %NULL, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     FUNCTION = FilePathName(aExeName)
END FUNCTION

FUNCTION GetSoftwareCompanyName ALIAS "GetSoftwareCompanyName"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM lDummy AS LONG, lBufferLen AS LONG, i AS LONG
     DIM bBuffer() AS BYTE ,sBuffer AS STRING, pReceive AS ASCIIZ PTR ,lReceive AS LONG
     GetModuleFileName(hInst, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     lBufferlen = GetFileVersionInfoSize(aExeName, lDummy)
     REDIM bBuffer(lBufferlen)
     GetFileVersionInfo(aExeName, 0&, lBufferLen, bBuffer(0))
     FOR i = 0 TO lBufferlen - 1        'Setup for VerQueryValue
          sBuffer=sBuffer + CHR$(bBuffer(i))
     NEXT
     VerQueryValue(BYVAL STRPTR(sBuffer), "\StringFileInfo\040904B0\CompanyName", pReceive, lReceive) ' 040904E4
     IF pReceive THEN FUNCTION = @pReceive
END FUNCTION

FUNCTION GetSoftwareFileDescription ALIAS "GetSoftwareFileDescription"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM lDummy AS LONG, lBufferLen AS LONG, i AS LONG
     DIM bBuffer() AS BYTE ,sBuffer AS STRING, pReceive AS ASCIIZ PTR ,lReceive AS LONG
     GetModuleFileName(hInst, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     lBufferlen = GetFileVersionInfoSize(aExeName, lDummy)
     REDIM bBuffer(lBufferlen)
     GetFileVersionInfo(aExeName, 0&, lBufferLen, bBuffer(0))
     FOR i = 0 TO lBufferlen - 1        'Setup for VerQueryValue
          sBuffer=sBuffer + CHR$(bBuffer(i))
     NEXT
     VerQueryValue(BYVAL STRPTR(sBuffer), "\StringFileInfo\040904B0\FileDescription", pReceive, lReceive) ' 040904E4
     IF pReceive THEN FUNCTION = @pReceive
END FUNCTION

FUNCTION GetSoftwareFileVersion ALIAS "GetSoftwareFileVersion"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM lDummy AS LONG, lBufferLen AS LONG, i AS LONG
     DIM bBuffer() AS BYTE ,sBuffer AS STRING, pReceive AS ASCIIZ PTR ,lReceive AS LONG

     GetModuleFileName(hInst, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     lBufferlen = GetFileVersionInfoSize(aExeName, lDummy)
     REDIM bBuffer(lBufferlen)
     GetFileVersionInfo(aExeName, 0&, lBufferLen, bBuffer(0))
     FOR i = 0 TO lBufferlen - 1        'Setup for VerQueryValue
          sBuffer=sBuffer + CHR$(bBuffer(i))
     NEXT
     VerQueryValue(BYVAL STRPTR(sBuffer), "\StringFileInfo\040904B0\FileVersion", pReceive, lReceive) ' 040904E4
     IF pReceive THEN FUNCTION = @pReceive
END FUNCTION

FUNCTION GetSoftwareInternalName ALIAS "GetSoftwareInternalName"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM lDummy AS LONG, lBufferLen AS LONG, i AS LONG
     DIM bBuffer() AS BYTE ,sBuffer AS STRING, pReceive AS ASCIIZ PTR ,lReceive AS LONG

     GetModuleFileName(hInst, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     lBufferlen = GetFileVersionInfoSize(aExeName, lDummy)
     REDIM bBuffer(lBufferlen)
     GetFileVersionInfo(aExeName, 0&, lBufferLen, bBuffer(0))
     FOR i = 0 TO lBufferlen - 1        'Setup for VerQueryValue
          sBuffer=sBuffer + CHR$(bBuffer(i))
     NEXT
     VerQueryValue(BYVAL STRPTR(sBuffer), "\StringFileInfo\040904B0\InternalName", pReceive, lReceive) ' 040904E4
     IF pReceive THEN FUNCTION = @pReceive
END FUNCTION

FUNCTION GetSoftwareOriginalFilename ALIAS "GetSoftwareOriginalFilename"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM lDummy AS LONG, lBufferLen AS LONG, i AS LONG
     DIM bBuffer() AS BYTE ,sBuffer AS STRING, pReceive AS ASCIIZ PTR ,lReceive AS LONG

     GetModuleFileName(hInst, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     lBufferlen = GetFileVersionInfoSize(aExeName, lDummy)
     REDIM bBuffer(lBufferlen)
     GetFileVersionInfo(aExeName, 0&, lBufferLen, bBuffer(0))
     FOR i = 0 TO lBufferlen - 1        'Setup for VerQueryValue
          sBuffer=sBuffer + CHR$(bBuffer(i))
     NEXT
     VerQueryValue(BYVAL STRPTR(sBuffer), "\StringFileInfo\040904B0\OriginalFilename", pReceive, lReceive) ' 040904E4
     IF pReceive THEN FUNCTION = @pReceive
END FUNCTION


FUNCTION GetSoftwareLegalCopyright ALIAS "GetSoftwareLegalCopyright"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM lDummy AS LONG, lBufferLen AS LONG, i AS LONG
     DIM bBuffer() AS BYTE ,sBuffer AS STRING, pReceive AS ASCIIZ PTR ,lReceive AS LONG

     GetModuleFileName(hInst, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     lBufferlen = GetFileVersionInfoSize(aExeName, lDummy)
     REDIM bBuffer(lBufferlen)
     GetFileVersionInfo(aExeName, 0&, lBufferLen, bBuffer(0))
     FOR i = 0 TO lBufferlen - 1        'Setup for VerQueryValue
          sBuffer=sBuffer + CHR$(bBuffer(i))
     NEXT
     VerQueryValue(BYVAL STRPTR(sBuffer), "\StringFileInfo\040904B0\LegalCopyright", pReceive, lReceive) ' 040904E4
     IF pReceive THEN FUNCTION = @pReceive
END FUNCTION

FUNCTION GetSoftwareProductName ALIAS "GetSoftwareProductName"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM lDummy AS LONG, lBufferLen AS LONG, i AS LONG
     DIM bBuffer() AS BYTE ,sBuffer AS STRING, pReceive AS ASCIIZ PTR ,lReceive AS LONG

     GetModuleFileName(hInst, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     lBufferlen = GetFileVersionInfoSize(aExeName, lDummy)
     REDIM bBuffer(lBufferlen)
     GetFileVersionInfo(aExeName, 0&, lBufferLen, bBuffer(0))
     FOR i = 0 TO lBufferlen - 1        'Setup for VerQueryValue
          sBuffer=sBuffer + CHR$(bBuffer(i))
     NEXT
     VerQueryValue(BYVAL STRPTR(sBuffer), "\StringFileInfo\040904B0\ProductName", pReceive, lReceive) ' 040904E4
     IF pReceive THEN FUNCTION = @pReceive
END FUNCTION

FUNCTION GetSoftwareProductVersion ALIAS "GetSoftwareProductVersion"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM lDummy AS LONG, lBufferLen AS LONG, i AS LONG
     DIM bBuffer() AS BYTE ,sBuffer AS STRING, pReceive AS ASCIIZ PTR ,lReceive AS LONG
     GetModuleFileName(hInst, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     lBufferlen = GetFileVersionInfoSize(aExeName, lDummy)
     REDIM bBuffer(lBufferlen)
     GetFileVersionInfo(aExeName, 0&, lBufferLen, bBuffer(0))
     FOR i = 0 TO lBufferlen - 1        'Setup for VerQueryValue
          sBuffer=sBuffer + CHR$(bBuffer(i))
     NEXT
     VerQueryValue(BYVAL STRPTR(sBuffer), "\StringFileInfo\040904B0\ProductVersion", pReceive, lReceive) ' 040904E4
     IF pReceive THEN FUNCTION = @pReceive
END FUNCTION

FUNCTION GetSoftwareComments ALIAS "GetSoftwareComments"()EXPORT AS STRING
     DIM aEXEName AS ASCIIZ * %MAX_PATH
     DIM lDummy AS LONG, lBufferLen AS LONG, i AS LONG
     DIM bBuffer() AS BYTE ,sBuffer AS STRING, pReceive AS ASCIIZ PTR ,lReceive AS LONG
     GetModuleFileName(hInst, aExeName, %MAX_PATH)       'Get Exe/Dll Path and Name
     lBufferlen = GetFileVersionInfoSize(aExeName, lDummy)
     REDIM bBuffer(lBufferlen)
     GetFileVersionInfo(aExeName, 0&, lBufferLen, bBuffer(0))
     FOR i = 0 TO lBufferlen - 1        'Setup for VerQueryValue
          sBuffer=sBuffer + CHR$(bBuffer(i))
     NEXT
     VerQueryValue(BYVAL STRPTR(sBuffer), "\StringFileInfo\040904B0\Comments", pReceive, lReceive) ' 040904E4
     IF pReceive THEN FUNCTION = @pReceive
END FUNCTION

Give me a few minutes and I will start posting the header files (should be less painful)

**Cliff Nichols** · 16 Nov 2007, 06:02 PM

On to the Header Files

On to the header files....and again I am sorry it is so huge, but I think I broke it down fairly well so you can strip out what you do not need. (In this case I would say 90% that could be ripped is the RTF stuff)

DlgAbout.h

Code:

DECLARE FUNCTION About_Dialog_Proc( _
    BYVAL hWnd    AS DWORD, _ ' window handle
    BYVAL uMsg    AS DWORD, _ ' type of message
    BYVAL wParam  AS DWORD, _ ' first message parameter
    BYVAL lParam  AS LONG _   ' second message parameter
    ) AS LONG

DECLARE FUNCTION LoadAbout ALIAS "LoadAbout"(HwndOwner AS LONG) AS LONG
DECLARE FUNCTION UnLoadAbout ALIAS "UnLoadAbout"() AS LONG
DECLARE FUNCTION ShowAbout ALIAS "ShowAbout"() AS LONG
DECLARE FUNCTION HideAbout ALIAS "HideAbout"() AS LONG
DECLARE FUNCTION ShowRtfTextAbout ALIAS "ShowRtfTextAbout"() AS LONG
DECLARE FUNCTION BuildRtfTextAboutComputer ALIAS "BuildRtfTextAboutComputer"() AS LONG
DECLARE FUNCTION BuildRtfTextAboutSoftware ALIAS "BuildRtfTextAboutSoftware"() AS LONG

DECLARE FUNCTION BuildRtfTextAboutUsbDriver ALIAS "BuildRtfTextAboutUsbDriver"() AS LONG
DECLARE FUNCTION BuildRtfTextAboutSerialDriver ALIAS "BuildRtfTextAboutSerialDriver"() AS LONG



GLOBAL hInst AS LONG                         'Instance handle


GLOBAL HwndAbout AS LONG
GLOBAL RichEditAbout AS LONG
GLOBAL OldDlgAboutRichEdProc AS DWORD   'Original Proc for Richedit
GLOBAL hAbout AS LONG
GLOBAL RtfTextAbout AS STRING

%RichEditAbout = %WM_USER + 1

DlgFunctions.h

Code:

DECLARE FUNCTION GetDeskTopX ALIAS "GetDeskTopX"()AS LONG
DECLARE FUNCTION GetDeskTopY ALIAS "GetDeskTopY"()AS LONG
DECLARE FUNCTION ShowWindowState ALIAS "ShowWindowState"(HwndParent AS LONG, HwndWindow AS LONG, ShowState AS LONG)AS LONG
DECLARE FUNCTION GetWindowState ALIAS "GetWindowState"(WindowToCheck AS LONG) AS LONG

DECLARE FUNCTION AddLineRtf ALIAS "AddLineRtf"(HwndRtf AS LONG, StringToAdd AS STRING) AS LONG

     GLOBAL AppX AS LONG
     GLOBAL AppY AS LONG

Dlls.h

Code:

DECLARE FUNCTION Load_Dlls() AS LONG
GLOBAL RichEditLib AS LONG

FileFolderPaths.h

Code:

DECLARE FUNCTION FileExist ALIAS "FileExist"(BYVAL sfName AS STRING) AS LONG
DECLARE FUNCTION FilePath ALIAS "FilePath"(BYVAL Src AS STRING) AS STRING
DECLARE FUNCTION FilePathName ALIAS "FilePathName"(BYVAL Src AS STRING) AS STRING

ListDevices.h

Code:

DECLARE FUNCTION ListDevicesSerial ALIAS "ListDevicesSerial"() AS LONG

TYPE DeviceInfo
     Name AS ASCIIZ * %MAX_PATH
     Port AS LONG
END TYPE

GLOBAL DeviceSerial() AS DeviceInfo

OpSysInfo.h

Code:

'Windows < Win95
'--------------------------------------------------------------------------------
'
'               Win 3.1
'PlatformID     0
'Major Version
'Minor Version
'Build
'
'--------------------------------------------------------------------------------
'Windows 95/98/ME
'--------------------------------------------------------------------------------
'               Win     Win     Win
'               95      98      Me
'               ---     ---     ---
'PlatformID     1       1       1
'Major Version  4       4       4
'Minor Version  0       10      90
'Build          950*    1111    1998
'
'--------------------------------------------------------------------------------
'Old Windows NT
'--------------------------------------------------------------------------------
'
'               Win     Win     Win     Win
'               NT      NT      NT      2000
'               3.0     3.1     4
'               ---     ---     ---     ----
'PlatformID     2       2       2       2
'Major Version  3       3       4       5
'Minor Version  0       1       0       0
'Build                          1381    2195
'
'--------------------------------------------------------------------------------
'Windows NT
'--------------------------------------------------------------------------------
'
'               Win     Win     Win
'               2003    XP      VISTA
'PlatformID     2       2       2
'Major Version  5       5       6
'Minor Version  2       1       0
'Build          3790    2600    TBD
'
'--------------------------------------------------------------------------------

DECLARE SUB GetOsInfo()
DECLARE FUNCTION GetWindowsOs() AS STRING
DECLARE FUNCTION GetWindowsBuildNumber() AS STRING
DECLARE FUNCTION GetWindowsBuildName() AS STRING
DECLARE FUNCTION GetWindowsServicePack() AS STRING
GLOBAL OsInfo AS OSVERSIONINFO

Register.h

Code:

DECLARE FUNCTION Register_Dialogs() AS LONG
DECLARE FUNCTION Register_Mdi_Dialog( _
          ClassName AS STRING, _        'Class Name
          BYVAL ClassCallBack AS DWORD, _     'Callback Function
          ClassInstance AS LONG, _      'Instance
          ClassIcon AS ASCIIZ, _        'Icon
          ClassBackGround AS LONG _    'Background
          ) AS LONG

DECLARE FUNCTION Register_Modal( _
          ClassName AS STRING, _        'Class Name
          BYVAL ClassCallBack AS DWORD, _     'Callback Function
          ClassInstance AS LONG, _      'Instance
          ClassIcon AS ASCIIZ, _        'Icon
          ClassBackGround AS LONG _    'Background
          ) AS LONG

DECLARE FUNCTION Register_Modeless( _
          ClassName AS STRING, _        'Class Name
          BYVAL ClassCallBack AS DWORD, _     'Callback Function
          ClassInstance AS LONG, _      'Instance
          ClassIcon AS ASCIIZ, _        'Icon
          ClassBackGround AS LONG _    'Background
          ) AS LONG

DECLARE FUNCTION Register_Rebar( _
          ClassName AS STRING, _        'Class Name
          BYVAL ClassCallBack AS DWORD, _     'Callback Function
          ClassInstance AS LONG, _      'Instance
          ClassIcon AS ASCIIZ, _        'Icon
          ClassBackGround AS LONG _    'Background
          ) AS LONG

     GLOBAL szClassName   AS ASCIIZ * %MAX_PATH   ' class name
     GLOBAL twcx          AS WNDCLASSEX           ' class information

RTF.h

Code:

DECLARE FUNCTION RichEditStreamInString (BYVAL dwCookie AS DWORD, BYVAL pbBuff AS BYTE PTR, _
                                 BYVAL cb AS LONG, pcb AS LONG) AS DWORD

GLOBAL gPos AS LONG, gPtr AS Long, gTxt AS STRING

DECLARE FUNCTION RtfCommandsStart() AS STRING
DECLARE FUNCTION RtfCommandsEnd() AS STRING

DECLARE FUNCTION RtfCommandsEndOfLine() AS STRING

DECLARE FUNCTION RtfReplaceCr(CommandString AS STRING) AS STRING

DECLARE FUNCTION RtfFontCourier() AS STRING
DECLARE FUNCTION RtfFontTimesNewRoman() AS STRING
DECLARE FUNCTION RtfFontAndale() AS STRING
DECLARE FUNCTION RtfFontLucidia() AS STRING
DECLARE FUNCTION RtfFontGeorgia() AS STRING

DECLARE FUNCTION RtfFontBold() AS STRING
DECLARE FUNCTION RtfFontUnBold() AS STRING
DECLARE FUNCTION RtfFontItalic() AS STRING
DECLARE FUNCTION RtfFontUnItalic() AS STRING
DECLARE FUNCTION RtfFontUnderline() AS STRING
DECLARE FUNCTION RtfFontUnUnderline() AS STRING

DECLARE FUNCTION RtfFontSize(SizeForFont AS LONG) AS STRING

DECLARE FUNCTION RtfFontMaroon() AS STRING
DECLARE FUNCTION RtfFontGreen() AS STRING
DECLARE FUNCTION RtfFontOlive() AS STRING
DECLARE FUNCTION RtfFontNavy() AS STRING
DECLARE FUNCTION RtfFontPurple() AS STRING
DECLARE FUNCTION RtfFontTeal() AS STRING
DECLARE FUNCTION RtfFontGrey() AS STRING
DECLARE FUNCTION RtfFontSilver() AS STRING
DECLARE FUNCTION RtfFontRed() AS STRING
DECLARE FUNCTION RtfFontLime() AS STRING
DECLARE FUNCTION RtfFontYellow() AS STRING
DECLARE FUNCTION RtfFontBlue() AS STRING
DECLARE FUNCTION RtfFontFuchsia() AS STRING
DECLARE FUNCTION RtfFontAqua() AS STRING
DECLARE FUNCTION RtfFontWhite() AS STRING

SetupClassInfo.h

Code:

DECLARE FUNCTION GetDeviceList ALIAS "GetDeviceList"()  AS DWORD
DECLARE FUNCTION GetDeviceListSize ALIAS "GetDeviceListSize"()  AS DWORD
DECLARE FUNCTION GetDeviceClass ALIAS "GetDeviceClass"()  AS STRING
DECLARE FUNCTION GetDeviceFriendlyName ALIAS "GetDeviceFriendlyName"()  AS STRING
DECLARE FUNCTION GetDeviceDesc ALIAS "GetDeviceDesc"()  AS STRING
DECLARE FUNCTION GetDeviceHardwareId ALIAS "GetDeviceHardwareId"()  AS STRING
DECLARE FUNCTION GetDeviceCompatibleId ALIAS "GetDeviceCompatibleId"()  AS STRING
DECLARE FUNCTION GetDeviceUnused0 ALIAS "GeDevicetUnused0"()  AS STRING
DECLARE FUNCTION GetDeviceService ALIAS "GetDeviceService"()  AS STRING
DECLARE FUNCTION GetDeviceUnused1 ALIAS "GetDeviceUnused1"()  AS STRING
DECLARE FUNCTION GetDeviceUnused2 ALIAS "GetDeviceUnused2"()  AS STRING
DECLARE FUNCTION GetDeviceClassGuid ALIAS "GetDeviceClassGuid"()  AS STRING
DECLARE FUNCTION GetDeviceDriver ALIAS "GetDeviceDriver"()  AS STRING
DECLARE FUNCTION GetDeviceConfigFlags ALIAS "GetDeviceConfigFlags"()  AS STRING
DECLARE FUNCTION GetDeviceMfg ALIAS "GetDeviceMfg"()  AS STRING
DECLARE FUNCTION GetDeviceLocation ALIAS "GetDeviceLocation"()  AS STRING
DECLARE FUNCTION GetDeviceObjectName ALIAS "GetDeviceObjectName"()  AS STRING
DECLARE FUNCTION GetDeviceCapabilities ALIAS "GetDeviceCapabilities"()  AS STRING
DECLARE FUNCTION GetDeviceUiNumber ALIAS "GetDeviceUiNumber"()  AS STRING
DECLARE FUNCTION GetDeviceUpperFilters ALIAS "GetDeviceUpperFilters"()  AS STRING
DECLARE FUNCTION GetDeviceLowerFilters ALIAS "GetDeviceLowerFilters"()  AS STRING
DECLARE FUNCTION GetDeviceBusTypeGuid ALIAS "GetDeviceBusTypeGuid"()  AS STRING
DECLARE FUNCTION GetDeviceLegacyBusType ALIAS "GetDeviceLegacyBusType"()  AS STRING
DECLARE FUNCTION GetDeviceBusNumber ALIAS "GetDeviceBusNumber"()  AS STRING
DECLARE FUNCTION GetDeviceEnumeratorName ALIAS "GetDeviceEnumeratorName"()  AS STRING
DECLARE FUNCTION GetDeviceSecurityBinary ALIAS "GetDeviceSecurityBinary"()  AS STRING
DECLARE FUNCTION GetDeviceSecuritySelfDirectedSearch ALIAS "GetDeviceSecuritySelfDirectedSearch"()  AS STRING
DECLARE FUNCTION GetDeviceType ALIAS "GetDeviceType"()  AS STRING
DECLARE FUNCTION GetDeviceExclusive ALIAS "GetDeviceExclusive"()  AS STRING
DECLARE FUNCTION GetDeviceCharacteristics ALIAS "GetDeviceCharacteristics"()  AS STRING
DECLARE FUNCTION GetDeviceAddress ALIAS "GetDeviceAddress"()  AS STRING
DECLARE FUNCTION GetDeviceUiNumberDescFormat ALIAS "GetDeviceUiNumberDescFormat"()  AS STRING
DECLARE FUNCTION GetDeviceMaximumProperty ALIAS "GetDeviceMaximumProperty"()  AS STRING
DECLARE FUNCTION GetDeviceRemovalPolicy ALIAS "GetDeviceRemovalPolicy"()  AS STRING
DECLARE FUNCTION GetDeviceRemovalPolicyDefault ALIAS "GetDeviceRemovalPolicyDefault"()  AS STRING
DECLARE FUNCTION GetDeviceRemovalPolicyOverride ALIAS "GetDeviceRemovalPolicyOverride"()  AS STRING
DECLARE FUNCTION GetDeviceInstallState ALIAS "GetDeviceInstallState"()  AS STRING
DECLARE FUNCTION GetDeviceLocationPaths ALIAS "GetDeviceLocationPaths"()  AS STRING
DECLARE FUNCTION GetDevicePowerData ALIAS "GetDevicePowerData"()  AS STRING
DECLARE FUNCTION DestroyDeviceList ALIAS "DestroyDeviceList"()  AS DWORD

DECLARE FUNCTION ListUsbDrivers ALIAS "ListUsbDrivers"() AS LONG
DECLARE FUNCTION ListSerialDrivers ALIAS "ListSerialDrivers"() AS LONG


TYPE DeviceDriver
     ClassName AS ASCIIZ * %MAX_PATH
     FriendlyName AS ASCIIZ * %MAX_PATH
     DeviceDesc AS ASCIIZ * %MAX_PATH
     HardwareId AS ASCIIZ * %MAX_PATH
     CompatibleId AS ASCIIZ * %MAX_PATH
     Unused0 AS ASCIIZ * %MAX_PATH
     Service AS ASCIIZ * %MAX_PATH
     Unused1 AS ASCIIZ * %MAX_PATH
     Unused2 AS ASCIIZ * %MAX_PATH
     ClassGuid AS ASCIIZ * %MAX_PATH
     Driver AS ASCIIZ * %MAX_PATH
     ConfigFlags AS ASCIIZ * %MAX_PATH
     Mfg AS ASCIIZ * %MAX_PATH
     Location AS ASCIIZ * %MAX_PATH
     ObjectName AS ASCIIZ * %MAX_PATH
     Capabilities AS ASCIIZ * %MAX_PATH
     UiNumber AS ASCIIZ * %MAX_PATH
     UpperFilters AS ASCIIZ * %MAX_PATH
     LowerFilters AS ASCIIZ * %MAX_PATH
     BusTypeGuid AS ASCIIZ * %MAX_PATH
     LegacyBusType AS ASCIIZ * %MAX_PATH
     BusNumber AS ASCIIZ * %MAX_PATH
     EnumeratorName AS ASCIIZ * %MAX_PATH
     SecurityBinary AS ASCIIZ * %MAX_PATH
     SecuritySelfDirectedSearch AS ASCIIZ * %MAX_PATH
     DeviceType AS ASCIIZ * %MAX_PATH
     Exclusive AS ASCIIZ * %MAX_PATH
     Characteristics AS ASCIIZ * %MAX_PATH
     Address AS ASCIIZ * %MAX_PATH
     UiNumberDescFormat AS ASCIIZ * %MAX_PATH
     MaximumProperty AS ASCIIZ * %MAX_PATH
     RemovalPolicy AS ASCIIZ * %MAX_PATH
     RemovalPolicyDefault AS ASCIIZ * %MAX_PATH
     RemovalPolicyOverride AS ASCIIZ * %MAX_PATH
     InstallState AS ASCIIZ * %MAX_PATH
     LocationPaths AS ASCIIZ * %MAX_PATH
     PowerData AS ASCIIZ * %MAX_PATH
END TYPE

GLOBAL hDeviceInfo AS DWORD
GLOBAL spdi AS SP_DEVINFO_DATA
GLOBAL dwDevicetype AS DWORD

GLOBAL InfoUsbDriver() AS DeviceDriver
GLOBAL InfoSerialDriver() AS DeviceDriver

SoftwareInfo.h

Code:

DECLARE FUNCTION GetSoftwarePath ALIAS "GetSoftwarePath"() AS STRING
DECLARE FUNCTION GetSoftwarePathName ALIAS "GetSoftwarePathName"() AS STRING
DECLARE FUNCTION GetSoftwareParentPath ALIAS "GetSoftwareParentPath"() AS STRING
DECLARE FUNCTION GetSoftwareParentPathName ALIAS "GetSoftwareParentPathName"() AS STRING

DECLARE FUNCTION GetSoftwareCompanyName ALIAS "GetSoftwareCompanyName"() AS STRING
DECLARE FUNCTION GetSoftwareFileDescription ALIAS "GetSoftwareFileDescription"() AS STRING
DECLARE FUNCTION GetSoftwareFileVersion ALIAS "GetSoftwareFileVersion"() AS STRING
DECLARE FUNCTION GetSoftwareInternalName ALIAS "GetSoftwareInternalName"() AS STRING
DECLARE FUNCTION GetSoftwareOriginalFilename ALIAS "GetSoftwareOriginalFilename"() AS STRING
DECLARE FUNCTION GetSoftwareLegalCopyright ALIAS "GetSoftwareLegalCopyright"() AS STRING
DECLARE FUNCTION GetSoftwareProductName ALIAS "GetSoftwareProductName"() AS STRING
DECLARE FUNCTION GetSoftwareProductVersion ALIAS "GetSoftwareProductVersion"() AS STRING
DECLARE FUNCTION GetSoftwareComments ALIAS "GetSoftwareComments"() AS STRING

Thanks for living through this, and if there are any that I may have missed, let me know and I will post those too....(I think I got them all though)

<--- Note to self...Start SERIOUSLY thinking about rethinking the global vs local debate before writing the next app from scratch

**Jeffrey W Smith** · 19 Nov 2007, 11:07 AM

Holy crap Cliff! I never thought it would be that much. Thank you.

It looks like I'm going to have to sift through some code and find what I need for right now.

Jeff

**Cliff Nichols** · 29 Nov 2007, 10:59 AM

Code in Source Code

Jeffrey,
I trimmed things down to just Serial Port info (just the basic "Does it exist?, Can I use it?") code, and posted in the Source Code forum. You should be able to get a grasp of that much sooner than all the code I posted above.

Cliff

**Cliff Nichols** · 29 Nov 2007, 04:43 PM

Although not supposed to be in Source Code Forum

Although not supposed to be in the Source Code Forum, still a nice bit of Info

Paul Franks wrote:
Wmi
You may want to look into using WMI to get this (and a whole lot more). WMI is Microsoft's version of CIM.

Pierre Bellisle put together an execellent application in PB, using Jose Roca's WMI wrapper, that lets you get information on serial ports and just about anything else on your PC:

WMI System Information
__________________

--pdf

Although the most EXCELLENT and simplest example I have seen to date involving COM (not Serial Port "COM"), I shy away from ActiveX type of concepts since my VB days and learning that although good for most cases, not good for all cases. (For example "MSCOMM " which is M$ ActiveX wrapper to the Serial port, and although good for most cases, it is SERIOUSLY flawed in some areas such as speed, or certain port configurations)
(Probably why I also dislike 3rd party solutions unless I seriously need it and do not have time to research how to do it myself)

Anyways WMI is usually quite confusing, but I will admit Pierre and Jose have always been able to show a "Complex" idea in a "Simple" matter, so in this case I may have to take a second look at concepts that I may be "Re-Inventing the Wheel" just because "The Wheel" is ActiveX, does not always mean it is a bad wheel.

(Although personally, I find great satisfaction in learning the concept of how things work, rather than just blindly using the tool at hand. but that is just me)

**Rick McNeely** · 9 Dec 2007, 02:09 PM

simple routine

I have used this in the past to return a list of available ports.

written for Console Compiler.

Code:

#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG
    DIM i AS LONG
    DIM hcomm AS LONG
    DIM a AS STRING
    
    FOR i = 1 TO 9
    hComm = FREEFILE
    ERRCLEAR
    COMM OPEN "COM" & TRIM$(STR$(i)) AS #hComm
    'A = waitkey$
      IF ERR THEN
        COLOR  7,0
        STDOUT "COM Port#" & TRIM$(STR$(i)) & " NOT available. ErrCode =" & STR$(ERR)
        ERRCLEAR
      ELSE
        COLOR 14,4
        STDOUT "COM Port#" & TRIM$(STR$(i)) & " IS  available.   "
      END IF
    NEXT i

    COMM CLOSE #hComm
    
    STDOUT "Press any key to continue...
    DO
      a = INKEY$
      IF a <> "" THEN EXIT LOOP
    LOOP

END FUNCTION

**Rick McNeely** · 9 Dec 2007, 02:12 PM

oops

close should be in a different place.

Code:

#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG
    DIM i AS LONG
    DIM hcomm AS LONG
    DIM a AS STRING
    
    FOR i = 1 TO 9
      hComm = FREEFILE
      ERRCLEAR
      COMM OPEN "COM" & TRIM$(STR$(i)) AS #hComm

      IF ERR THEN
        COLOR  7,0
        STDOUT "COM Port#" & TRIM$(STR$(i)) & " NOT available. ErrCode =" & STR$(ERR)
        ERRCLEAR
      ELSE
        COLOR 14,4
        STDOUT "COM Port#" & TRIM$(STR$(i)) & " IS  available.   "
      END IF
      COMM CLOSE #hComm
    NEXT i

    STDOUT "Press any key to continue...
    DO
      a = INKEY$
      IF a <> "" THEN EXIT LOOP
    LOOP

END FUNCTION

Announcement

My first serial communications app

My first serial communications app

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment