说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何使用vb取得一个文件的控制权

HTML文档下载 WORD文档下载 PDF文档下载
VB如何使用vb取得一个文件的控制权

解答(1):

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName As String * 128
End Type
Private Const OF_SHARE_DENY_READ = &H30
Dim Hfile As Long

Dim my As OFSTRUCT


Private Sub Form_Load()
'禁止其他程序读写(包括执行)文件内容
Hfile = OpenFile("d:\foxmail.exe", my, OF_SHARE_DENY_READ)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim rlt As Long
'关闭文件句柄,撤消上面的禁止功能,可别忘了这一步哦:)
rlt = CloseHandle(Hfile)

End Sub

解答(2):
open "test.dat" for binary lock read write as #1
~~~~~~~~~~~~~~~
..................
close #1
上面加~~的部分的意义:
share 其他进程可以共享读写此文件
lock read 其他进程只能读
lock write 其他进程只能写
lock read write 其他进程完全拒绝访问

五款超实用的开源SVG工具 微信收费事件背后被广泛忽略的技术细节 UIDesigner 3.0架构设计总结 黑客怒了:政府花930万美金仅做一款App Email服务迎来“第二春” 未来将更加个性化 贯穿应用开发始终的八大陷阱 微评微软也推智能手表:是追求未来,还只是跟随? Firefox OS今年6月在5国首发 不含美国市场 8086/8088汇编指令手册 下一个被黑客攻击的对象—无线路由器 Windows Blue开始按钮或将回归,你怎么看? Evernote推孵化器 不占股权 基于C++和Lua的移动游戏引擎Leadwerks 3发布 苹果秘密测试iOS 7与iPhone 6 或将6月发布 酷6 CTO 陆坚:请先信任你的程序员 从电信联手i-Free,看运营商渠道的加速整合 “Animory”开发者分享HTML5游戏开发经验 Appflood SDK:连接中国与海外App流量交互平台 Apache Subversion 1.7.9正式发布! 微软IE浏览器5大动向 加速吸引开发者 开源的简繁转换库OpenCC支持Node.js 继Opera之后,Adobe表示将支持Google Blink 提高大型软件项目质量的一些实用型技术分享 谷歌推出Mirror API,开发者可为Google Glass开发应用 无需999,也不要499,99美元Linux超级计算机带回家 微软反击AWS:推出EC2并大幅降价,“价格战”正酣 Operation InVersion:拯救了LinkedIn的大修项目 五步走战略——Avocado在最初几周内迅速扩大30倍 NoSQL产品测评:Cassandra、MongoDB、Couchbase和Aerospike 谷歌眼镜开箱评测:比想象更精致 Pinterest谈实战经验:如何在两年内实现零到数百亿的月访问 高手请入!!急救!求msflexgrid 的打印源码????? 如何在list中显示文件夹 哪里可以看到Obejct类clone的实现方法? 系统的FOUND.00*文件夹里放的FILE000*是什么文件?可以删除吗?刚装系统时没有这些文件的阿 给分啊 今日郁闷之至……散分! 来来来,大伙们一起来衷心祝愿xxmm (晓箫)的老爸老妈顺利赴美参加晓箫的毕业典礼!! Dev-Cpp 使用 NetAPI32.lib 的问题 急寻严蔚敏,吴伟民版《数据结构习题集》c语言版的答案,请问哪有啊 高手们给我一个超级简单的HOOK API的例子好吗?求你们了。 错在哪里 好郁闷啊~ 谁有站内关键字模糊查询的代码?紧急求救、在线等待!!!! 字符串转化为数组的问题 讨论<<标准C++库大全>> 上次是哪位兄弟要的《新编API参考大全》CHM版呀?我找到了一个,还行。 欢迎大家访问我公司的网站! 请学c++builder 有份量的人推荐一本经典的教材(适合初学者) 欢迎大家访问我们公司的网址! 关于分页的问题 请帮我看看这个小程序 欢迎大家访问我公司的网站! 已知一个文件夹的路径,如何得到该文件夹中的文件的名字? 关于StreamReader的问题 欢迎大家访问我公司的网站! 有关编辑框的问题 各位大侠一个很菜的问题,来帮帮忙! 关于集合的一个小问题 最菜的问题,100分白送!!! 很基础问题,脑子不清楚,大家帮忙看看 紧急问题! 终于 知道MESSENGER 只是 WIN2K 的服务了! 那么 这 个怎么办?? 请问以下我如何实现一个带滚动条的子窗口 问一下,resin和iis集成后class文件放在什么目录下 用 http://www.rc80.com (c# + sqlserver2000) 只想换一个.net 的完整的分页代码! 一个Corba客户端连接的问题! 如何在resin中设置wap服务器功能 大家帮忙!! 什么时候用DataGrid,什么时候用DataList? 怎么样从数据库里取得某字段的值??? 昆腾的硬盘修理找谁啊?急,UP有分........ www.webmatrixhosting.net免费空间中FTP文件上传问题 Apache 2.0.43 +Tomcat 4.1.24+mod_jk2-2.0.43.dll整合问题出现:The servlet container is temporary unavailable or being upgraded 我装的Delphi7好像丢了一个文件:Proxies.pas,哪位好心人给我一个? 人,真脆弱! 开水房追女之呕心沥血计划 (超暴笑) 孤独 急!!Image对象如何设置成为透明的???Thanks! 【憋的慌】大头、阳光呢!!! 关于FLASHMX的遮罩问题 一个问题,想不通! 苄嘧磺隆防除稻田杂草,怎样使用? we snowball throw and make sometimes them 怎么连词成句 Happy is the man who living by his hobby 水稻田主要防治的杂草是稗草、-----------\---------------------. pen用汉语怎么读 Happy is the man who is living by his hobby.happy是形容词,形容词怎么能做主语的? shape 的单复数用法有一堆苹果,是问what shapes are the apples?还是:what shape are the apples? glue怎么读 A man cannot really be happy if _he enjoys doing is ignored by society as of no value .A.what B.when C.that D.all what 为什么,求详解 塑料上面的镭射是什么意思? 英语翻译 first name 正方形的面积是20米,如果每4平方米种一棵桃树,这个果园可以种多少棵桃树? pudding的音标是? “厨师”用英语怎么说?还要有音标英语 法语都行 一块面积为2400平方米的地栽了400棵桃树,桃树的株距是2.4,行距是多少米? 请问pen presure 在哪里啊 我用的中文版c4d 我也是 ps有压感 但是 c4d没有 怎么调啊 .In that hotel,the bread and butter____served for breakfast 如果桃树的棵树比梨树都5/3,那么桃树有多少棵?是不是用 桃树×(1+5/3) 2013年热门关键词有哪些 ①当v增大时,所需向心力增大,即万有引力不足以提供向心力,卫星将做离心运动,脱离原来的圆轨道,轨道半径变大,但卫星一旦进入新的轨道运行,其运行速度要减小,但重力势能、机械能均增加 哪些动物住在洞里的? 2013年热门职业2013什么职业好呢? 离心运动,为啥万有引力小于向心力 什么是合力?什么是向心力? 求2013年的热点话题.热点! 根据黄金代换式我们知道重力=万有引力(忽略向心力),为什么还会有物体作离心运动?不是已经忽视向心力了 不是合力提供向心力吗 glue的中文 英语改错 A man cannot be really happy if that he enioys doing is ignored by society as of no value or importance 向心力一定是合力吗赤道上,为什么向心力+重力=引力?为什么不是引力全部变成向心力? 以“我和我的祖国—喜迎国庆60周年”为题写征文征文主题“我和我的祖国—喜迎国庆60周年”以歌颂祖国和党,赞美社会和家乡发展变化(我是晋城的),表现人性真善美等为主要内容. Green,Jim,am,i,to,nice,meet,you连成句 The Chinese ----is said to be a healthier one than----,which contains too muA food the west B diet that of the west Cfood,that of the west D diet the western为什么不选C 请问parfix glue 是什么意思?谢谢~~ 厨房门玻璃坏了怎么办 有一些鸡和兔,共有脚72只,若将鸡的只数与兔的只数互换,则共有脚84只.鸡,兔各有多少只? 祖国60周年国庆作文最好带这60年来的进步脚步450字左右.好的追加20 to the best of our knowledge是什么意思 Neiter.I use a pen.中文意思 glue的中文意思 中华鲟什么类动物A鱼类B两栖类 correction pen 的汉语意思是什么? glue是什么意思? 中华鲟属于国家几级保护动物? 设a,b是方程(log2X)^2+5(log2X)+1=0的两个解,求a,b,注意,其中2是a,X是N 一只船顺水行320千米需用8小时,水流速度为每小时15千米,这只船逆水行这段路程需用几小时?320÷8-15 =25(千米) 25-15=10(千米)320÷10=32(小时) 这是答案它为什么减去一个15后又减一 用pen和not造句还要中文意思 research可数么? 水流速度是每小时十五千米,现在有船顺水而行,八小时行320千米,若逆水行320千米需几小时?不用方程解. 张大伯家养了一些鸭和兔,鸭和兔一共有12个头,30只脚.张大伯家养了多少只鸭多少只兔? 两列火车同时从甲.乙两地相对开出快车行完全程需要二十小时慢车行完全程需要三十小时开出后十五小时相遇已知快车中途停留了四小时慢车停留了几小时 research 水流速度是15km/时,现在有船顺水而行,8小时行了320千米,如果逆水行了320千米需要及时? hurt的用法,与hurts的区别如;my left leg is ( )His left leg is ( )为什么? research 何时可数 何时不可数 某船在静水中的速度为x千米每小时,若水流的速度为y千米每小时,船逆水行了a小时,共行了 千米,这段路程某船在静水中的速度为x千米每小时,若水流的速度为y千米每小时,该船逆水行了a小时, 稻田杂草如何防治? Eat fruit and vegetables?是什么一 chickens in the 叙政府将在24小时之内提交叙消毁化武刺伤女友美华裔男子过堂 称情绪失控非加拿大华裔大妈地铁对骂 飚4种语言网加拿大华裔大妈地铁对骂 飚4种语言网温州“金改”或将上马市政债等多项措施叙利亚发电系统遭袭击全国停电 被指反安倍称在预算委员会上很累 自比乔布斯南京大学两位院士候选人就论文是否造假男孩被母亲男友砍断右手 其母:只因拒汪洋:今年粮食丰收基本定局 生产将实美国共和党遭保守派绑架 民主党有望夺水利部:今年解决6343万农村人口饮温州民资设立民营银行方案已上报北大回应不续聘夏业良:所谓\"政治迫松下半导体部门将大幅裁员部分港生在内地\"水土不服\" 投诉审计署回应“与纪委合署办公”:需从长“清风”生活用纸全国巡展首站启动星罗棋布 星巴克位置百度地图全知道工信部:婴幼儿乳粉兼并重组方案已报国长沙警方称新快报记者被拘案正按法律程大于6cm的卵巢囊肿立即切除合肥一乘客半小时恶意爽约11次 被列2016年春运抢火车票难度最大城市排如何发挥社会组织的“柔性力量”?五星债基云集 6年规模增长27倍团队2016涨薪最快的10大岗位 你在其朱平:抛弃房地产吧,未来造富靠它们!今夜,这个女人的一句话将决定全球市场在阳光下起舞 e路同心启动投资者还款用滑板制作而成的电吉他,长这个样衡阳国家调查队首次调研石鼓区统计工作互联网金融纠纷频出,最高法院正研究出P2P乱象之下,“白名单系统”明年1深圳经侦揭秘非法集资四大特征,明年年P2P行业年末“跑路潮”初显 资产端P2P成互联网世界九大“热词”之一,在阳光下起舞 e路同心启动投资者还款传侗乡文明,看坝寨新姿蔡振华谈佩兰去留问题今日赛事预告“这场需要我得分”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘