Как загружать VxD динамически

Ниже кратко пример...
Но лучше пиши на мыло, опишу всё подробно...
И постараюсь ответить, на что смогу...

<<== Cut

const
VxDName = '\\.\TIME.VxD';

procedure TVxDTestForm.FormCreate(Sender: TObject);
begin
HVxDHandle := INVALID_HANDLE_VALUE;
end;

procedure TVxDTestForm.FormDestroy(Sender: TObject);
begin
CloseVxDDriver;
end;

function TVxDTestForm.OpenVxDDriver: boolean;
var
ver: word;
nb: dword;
begin
HVxDHandle := CreateFile(VxDName,0,0,nil,0,FILE_FLAG_DELETE_ON_CLOSE,0);
if HVxDHandle <> INVALID_HANDLE_VALUE then begin
DeviceIoControl(HVxDHandle, 1, nil, 0, @ver, 2, nb, nil);
Label1.Caption := 'VxD version ' + IntToStr(hi(ver)) + '.' + IntToStr(lo(ver));
end;
Result := HVxDHandle <> INVALID_HANDLE_VALUE;
end;

Cut ==>>

Holly (hollyblood@tut.by)