unit Unit1;


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
const HidModuleName = 'Hid.dll';
procedure HidD_GetHidGuid(var HidGuid: TGUID)stdcall;
{$EXTERNALSYM HidD_GetHidGuid}
procedure HidD_GetHidGuid;
external HidModuleName name 'HidD_GetHidGuid';




{$R *.dfm}

end.

#include "stdafx.h"
#include "Form1.h"

using namespace test1;
#pragma comment (lib, "hid.lib")
#pragma comment (lib, "setupapi.lib")
[STAThreadAttribute]
int main(array<System::String ^> ^args)
{
    // Enabling Windows XP visual effects before any controls are created
    Application::EnableVisualStyles();
    Application::SetCompatibleTextRenderingDefault(false);

    // Create the main window and run it
    Application::Run(gcnew Form1());
    return 0;
}
bool find_hid(void)
{
GUID HidGuid;

::HidD_GetHidGuid(&HidGuid);

return false;
}