Как правильно вызвать функции из SETUPAPI.DLL?

← →
Misha-5 (2002-06-25 13:47) [0]

Никак не получается вызов нужных функций из Windows-библитеки setupapi.dll (вызов четырех функций - стандартная процедура открытия драйвера).
На все попытки один ответ: The procedure entry point SetupDiGetClassDevs could not be located in the dynamic link library setupapi.dll. Хотя я точно знаю, что эти функции там есть. Может-быть я что-то неправильно указываю при вызове?
(тестовый кусок программы)

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Controls, Forms;
type
HDEVINFO = Pointer;
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
hInfo: HDEVINFO;
pClassGuid: Pointer;
function SetupDiGetClassDevs(pClassGuid: Pointer;
Enumerator: PCHAR;
hwndParent: HWND;
Flags: DWORD): HDEVINFO;
stdcall; external "setupapi.dll";
implementation
{$R *.dfm}
const ClassGuid: TGUID = "{F6716A20-2FF7-471E-8DD1-F0512C2317EB}";
const DIGCF_DEVICEINTERFACE: DWORD = 0x00000010;
const DIGCF_PRESENT: DWORD = 0x00000002;
begin
// Получаем список устройств удовлетворяющих заданному GUID
// Обращение к функции SetupDiGetClassDevs из библиотеки SETUPAPI.DLL
// описание параметров взято из MSDN
pClassGuid := @ClassGuid;
hInfo := SetupDiGetClassDevs(pClassGuid,
NIL,
0,
DIGCF_DEVICEINTERFACE or DIGCF_PRESENT);
Application.MessageBox("Function call passed (1)", "Info", MB_OK);
end.
Помогите пожалуйста, кто чем может!
Миша

← →
Игорь Шевченко © (2002-06-25 16:30) [1]

SetupDiGetClassDevsA
или
SetupDiGetClassDevsW для Unicode

и вся любовь...

Как правильно вызвать функции из SETUPAPI.DLL? Найти похожие ветки