调用一个VxD

var
  vxdhandle :thandle;
begin
  vxdhandle :=createfile('\\\\.\\qmenu.vxd',0,0,nil,0,file_flag_overlapped+file_flag_delete_on_close,null);
end;
VxdHandle=CreateFile("\\\\.\\QMENU.VXD",0,0,NULL,0,FILE_FLAG_OVERLAPPED|FILE_FLAG_DELETE_ON_CLOSE,NULL);

var
vxdhandle :thandle;
begin
  vxdhandle :=createfile('\\\\.\\qmenu.vxd',0,0,nil,0,file_flag_overlapped+file_flag_delete_on_close,null);
end;