热情软件屋

 

Delphi怎么打开VXD设备


编号:QA001715
建立日期: 1999年9月15日 最后修改日期:1999年9月15日
所属类别:

liwei:
    我所用操作系统:win95
    我所用编程工具::VtoolsD203,Delphi40
    遇到的问题:
    我用VtoolD.VC50编译了一个无任何功能的VxD,将其放至windows\system下,在Delphi中用CreateFile调用结果总不成功,GetLastError返回错误代码126,也不知是什么意思。
    VxD是由QuickVxD生成的,在QuickVxD中,我选了Dynamically Loadable,Windows95ControlMessage中只选了SYS_DYNAMIC_DEVICE_EXIT和SYS_DYNAMIC_DEVICE_INIT, 其他均为默认值。
    Delphi相应代码如下:
    procedure TForm1.Button1Click(Sender:TObject);
     var
     hVxD : THandle;
    begin
     hVxD := CreateFile('\\.\test.vxd',0,0,nil,0,
     FILE_FLAG_DELETE_ON_CLOSE,0);
     {{其中,第四个参数也用过CREATE_NEW,OPEN_EXISTING,都一样}}
     。。。。。
    end;
    实在不明白是怎么回事,请专家帮忙指教。多谢多谢!

回答:

    使用这样的语句:
     hVxD := CreateFile('\\.\test.vxd' ,0,0,nil, CREATE_NEW,
     FILE_FLAG_DELETE_ON_CLOSE,0);

此问题由李海回答。

 
把这个问题推荐给朋友
   
   
您的意见类别
您的名字
您的电子邮件
您的建议(请尽可能详细)
 
 

版权所有 1997-2008 热情软件屋
如果您有任何建议和意见, 请给我发个电子邮件 askpro@china-askpro.com
Web Designed by ZebraStudio