Как правильно вызвать функции из SETUPAPI.DLL? [D6, Win2k]
Misha-5 © (2002-06-25 13:47:00)
Никак не получается вызов нужных функций из 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:00) [1]
SetupDiGetClassDevsA
или
SetupDiGetClassDevsW для Unicode
и вся любовь...
Наверх 
ЧАТ |
Орешник |
|
