file: inline.pl

#!/usr/bin/perl

use 5.10.0;
use warnings;
use strict;

use Inline( C => Config =>
            libs => '-LC:\\MinGW\\lib -lSetupAPI',
print_info => 1,
            BUILD_NOISY => 1,
    );
use Inline C => << 'EOC';
#include <windows.h>
#include <stdio.h>
#include <initguid.h>
#include <devguid.h>
#include <regstr.h>
#include <setupapi.h>

char *wrap_SetupDiGetClassDevs( ) {
    HDEVINFO hDevInfo;

    // Create a HDEVINFO with all present CDROM devices.
    hDevInfo = SetupDiGetClassDevs( &GUID_DEVCLASS_CDROM, NULL, NULL,
                                    DIGCF_PRESENT | DIGCF_DEVICEINTERFACE );
    if (hDevInfo == INVALID_HANDLE_VALUE)
       croak("INVALID_HANDLE_VALUE returned");

    return (char *)hDevInfo;
}
EOC