如题!请高手赐教!
解决方案 »
- 还是邮件收发问题,如何收完邮件后,把该邮件从邮件服务器上删除?
- 怎么传值?比如单击DBGRID中的一个COLUMN就可以把值传到一张报表的QRDBTEXT上
- TmediaPlayer 组件当前画面的捕捉
- 小白求助!!!!delphi里面怎么调用一个网页
- dbgrid中如何设置行标题
- dbgrid的使用问题
- 在北京能买到成套控件 CoolControls和InfoPower 2000 for C++Builder 吗?
- 请问哪里有Delphi多媒体编程的详细资料
- 关于delphi中运用图片的问题!
- imagelist的颜色失真,50分
- 100 分求F1BOOK6的几个简单的问题?请F1BOOK6的高手进来。
- 怎样截获系统所有的消息,并显示在列表中?
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);
就可以了,这句执行后ctrl+atl+del已经失效了
在退出程序时一定要用CloseHandle(VxdHandle)
因为程序不会自动关闭VxdHandle
delphi5下面这样
var
vxdhandle :thandle;
begin
vxdhandle :=createfile('\\\\.\\qmenu.vxd',0,0,nil,0,file_flag_overlapped+file_flag_delete_on_close,null);
end;
procedure Tform1.OpenVxD;function:
var
HVxDHandle : Thandle;
begin
HVxDHandle := CreateFile ('\\.\test.VXD',0,0,nil,0,FILE_FLAG_DELETE_ON_CLOSE,0);
Result := HVxDHandle < > INVALID_HANDLE_VALUE;
end;
一楼错了点点,'\\\\.\\'(c的用法)应改掉成 '\\.\'(delphi的),二楼是正确的,不过应注意此形式的只适用可动态加载的驱动程序,对于静态加载的,则是'\\.\test',另应注意,退出时,应使用 CloseHandle(HVxDHandle) 关闭, 呵呵,我是做驱动程序的,有问题可以继续问:)