1000分求SetupDi 类 API 函数的delphi接口 ( 积分: 0 )

我是一只小小鸟 · 2005-04-10

也就是函数 SetupDiGetClassDevs, SetupDiEnumDeviceInterfaces, SetupDiGetInterfaceDeviceDetail, SetupDiDestroyDeviceInfoList, 和其所需要的差数的delphi定义

我是一只小小鸟 · 2005-04-10

也就是函数 SetupDiGetClassDevs, SetupDiEnumDeviceInterfaces, SetupDiGetInterfaceDeviceDetail, SetupDiDestroyDeviceInfoList, 和其所需要的差数的delphi定义

我是一只小小鸟 · 2005-04-10

看来是没戏。哎只好找本C++的书看看了。

rsjd · 2005-04-11

SetupDi是什么东东？DLL叫啥？

satanmonkey · 2005-04-11

这个1000分我要了，联系我satanmonkey@21cn.com

ypy · 2005-04-12

先发个部分的，全的再去找 //-------------------------------------------------------------------- // //  SetupDI.pas // //-------------------------------------------------------------------- unit SetupDI; interface uses  Windows, Dialogs, SysUtils; // GUID  type    P_GUID_ = ^_GUID_;    _GUID_ = record      Data1: DWord;      Data2: word;      Data3: word;      Data4: array [0..7] of Byte;    end; // 側丄挿偄....柤慜.... // SP_DEVICE_INTERFACE_DETAIL_DATA_A, *PSP_DEVICE_INTERFACE_DETAIL_DATA_A;  type    P_SP_INTERF_DETAIL_ = ^_SP_INTERF_DETAIL_;    _SP_INTERF_DETAIL_ = packed record      cbSize: DWord;      DevPath: char;     // 側傫偱億僀儞僞偱側偄偺丠    end; // 偙傟傑偨... // SP_DEVICE_INTERFACE_DATA, *PSP_DEVICE_INTERFACE_DATA;  type    P_SP_INTERF_ = ^_SP_INTERF_;    _SP_INTERF_ = record      cbSize: DWord;      Guid: _GUID_;      Flags: DWord;      Reserve: Pointer;    end; // 偙傟偼宆偺愰尵偩偗偱偡丅 // SP_DEVINFO_DATA, *PSP_DEVINFO_DATA;  type    P_SP_INFO_ = ^_SP_INFO_;    _SP_INFO_ = record      cbSize: DWord;      Guid: _GUID_;      DevInst: DWord;      Reserve: DWord;    end; type  TSetupDI = class( TObject )  private  public    constructor Create;    function GetPathName( const pGuid: P_GUID_; var PathName: array of char ): bool;  end; implementation // // 巊梡偡傞娭悢孮偺愰尵    SetupApi.DLL 撪偵懚嵼 // function SetupDiGetClassDevsA( Guid: P_GUID_; Enumrator: PChar; hPar: THANDLE; Flags: DWord ):                     THANDLE; stdcall; external 'SETUPAPI.DLL'; function SetupDiEnumDeviceInterfaces( DevInfo: THANDLE; InfoData: P_SP_INFO_;                     Guid: P_GUID_; Index: DWord; DevInterfD: P_SP_INTERF_ ):                     bool; stdcall; external 'SETUPAPI.DLL'; function SetupDiDestroyDeviceInfoList( hPar: THANDLE ): bool; stdcall; external 'SETUPAPI.DLL'; function SetupDiGetDeviceInterfaceDetailA( DevInfo: THANDLE; InterData: P_SP_INTERF_;                     InfoDetail: P_SP_INTERF_DETAIL_; DetailSize: DWord; ReqSize: PDWord;                     InfoData: P_SP_INFO_ ): bool; stdcall; external 'SETUPAPI.DLL'; // use SetupDiGetClassDevsA const DIGCF_DEFAULT         = $001; const DIGCF_PRESENT         = $002; const DIGCF_ALLCLASSES      = $004; const DIGCF_PROFILE         = $008; const DIGCF_DEVICEINTERFACE = $010; //-------------------------------------------- //  Constructor //-------------------------------------------- constructor TSetupDI.Create; begin  inherited Create; end; //-------------------------------------------- //  GetPathName //-------------------------------------------- function TSetupDI.GetPathName( const pGuid: P_GUID_; var PathName: array of char ): bool; var  hDevInfo: THANDLE;  func_dev: P_SP_INTERF_DETAIL_;  devInfo_Data: _SP_INTERF_;  predi_len: DWord;  req_len: DWord;  retb: bool; begin  //  // 埲壓偺娭悢孮偺徻偟偄摦嶌偵偮偄偰偼晄柧丅  // 偦偺偆偪嶨帍偵偰夝愢偝傟傞偲巚偄傑偡丅....  //  hDevInfo := SetupDiGetClassDevsA(                         pGuid,                         nil,                         0,                         DIGCF_PRESENT or                         DIGCF_DEVICEINTERFACE );  if INVALID_HANDLE_VALUE = hDevInfo then  begin    MessageDlg('SetupDiGetClassDevsA 幐攕', mtWarning,[mbYes], 0);    Result := False;    exit;  end;  devInfo_Data.cbSize := sizeof(_SP_INTERF_);  retb := SetupDiEnumDeviceInterfaces(                      hDevInfo,                      nil,                      pGuid,                      0,                      @devInfo_Data );  if not retb then  begin    SetupDiDestroyDeviceInfoList( hDevInfo );    MessageDlg('SetupDiEnumDeviceInterfaces 幐攕', mtWarning,[mbYes], 0);    Result := False;    exit;  end;  //  // 偙偺 bool 娭悢偼忢偵 False 偑曉傞丅擂?..  //  SetupDiGetDeviceInterfaceDetailA(                      hDevInfo,                      @devInfo_Data,                      nil,                      0,                      @req_len,                      nil );  predi_len := req_len;  try    GetMem( func_dev, predi_len );  except    MessageDlg('Memory 晄懌', mtWarning,[mbYes], 0);    SetupDiDestroyDeviceInfoList( hDevInfo );    Result := False;    exit;  end;  func_dev.cbSize := sizeof( _SP_INTERF_DETAIL_ );  retb := SetupDiGetDeviceInterfaceDetailA(                      hDevInfo,                      @devInfo_Data,                      func_dev,                      predi_len,                      @req_len,                      nil );  if not retb then  begin    FreeMem( func_dev );    SetupDiDestroyDeviceInfoList( hDevInfo );    MessageDlg('SetupDiGetDeviceInterfaceDetailA 幐攕', mtWarning,[mbYes], 0);    Result := False;    exit;  end;  // 僪儔僀僶偺 PathName 偑曉傞丅  StrCopy( PathName, @func_dev.DevPath );  retb := SetupDiDestroyDeviceInfoList( hDevInfo );  if not retb then  begin    FreeMem( func_dev );    MessageDlg('SetupDiDestroyDeviceInfoList 幐攕', mtWarning,[mbYes], 0);    Result := False;    exit;  end;  FreeMem( func_dev );  Result := True; end; end.

ypy · 2005-04-12

找到全的了，还有示例 ftp://delphi-jedi.org/api/SetupAPI.zip 测试可以下 －－－－－－－－－－－ 做人要厚道

satanmonkey · 2005-04-12

jedi的这个，用起来有若干问题。 试试这个 http://www.kmabc.com/satan/SetupApi.rar 是以jedi那个改进的。不过也是有若干问题，主要是C的指针类型转换过来的问题，有的地方带了var，就应该不要用指针类型了，但是这个用了var 还用成指针，就搞成指针的指针，很是头疼，我是边用边改，写这些api的东西还是C方便。

ypy · 2005-04-12

jedi的这个是很久以前就有了，毕竟是翻译过来的，不能保证没有错，把自己用到的函数改一该。 不过我建议satanmonkey修改别人免费发布的源码最好保留原始的版权信息，你的版权信息也可以加在后面 [

]

我是一只小小鸟 · 2005-04-12

ok  我试试行了就给分

我是一只小小鸟 · 2005-04-12

请 ypy 到 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3041316 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3041319 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3041338 请 satanmonkey 到 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3041324 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3041327 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3041329 领分

我是一只小小鸟 · 2005-04-13

接受答案了.

1000分求SetupDi 类 API 函数的delphi接口 ( 积分: 0 )

我是一只小小鸟

Unregistered / Unconfirmed

我是一只小小鸟

Unregistered / Unconfirmed

我是一只小小鸟

Unregistered / Unconfirmed

rsjd

Unregistered / Unconfirmed

satanmonkey

Unregistered / Unconfirmed

ypy

Unregistered / Unconfirmed

ypy

Unregistered / Unconfirmed

satanmonkey

Unregistered / Unconfirmed

ypy

Unregistered / Unconfirmed

我是一只小小鸟

Unregistered / Unconfirmed

我是一只小小鸟

Unregistered / Unconfirmed

我是一只小小鸟

Unregistered / Unconfirmed

Similar threads