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

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 其他进程完全拒绝访问

黑暗架构:以最少时间完成系统升级并获客户认可的开发之道 Hadoop Summit 2013见闻:创业与Hadoop 2.0不可阻挡 Facebook的清洁能源改革——革命尚未成功,仍需努力 YARN或将成为Hadoop新发力点 主流编程语言属性一览(多图) 粉碎硬件复杂论:开发者不懂硬件运行的方式怎么可以?! 最新版Chrome OS加入Word和Excel编辑功能 直指微软 传诺基亚将购诺西全部股份,疑为出售手机业务做准备? 优秀技术领导者的修成之道 直接拿来用!最火前端开源项目(三) 第八届开源中国开源世界高峰论坛成功举办 曾经那些主流的API,而今风光已不再! Android 4.3本月9日亮相 新功能汇总 移动游戏的国际化运营技巧 Google的Janus与Facebook的McDipper:将闪存用于数据中心 拥抱开源还是坚守阵地:传统数据库供应商面临抉择 超棒的30款JS类库和工具 立场坚定:惠普仍然密谋回到智能手机市场 6月份浏览器份额:Chrome成市场份额增长最快浏览器 关于PHP的十大误解 你中了几个? 专访西电朱虎明:异构计算硬件架构呈现百花齐放 百家争鸣 GSMA行纪:各种神器、好玩的、好看的全搜罗 大数据初创企业WibiData将Hadoop“打包”,谷歌董事长施密特两次参投 赚钱不忘环保 苹果计划为数据中心兴建太阳能发电厂 深度解析:清理烂代码 电信开放平台发布短信验证码API 创业教父Paul Graham谈创业投资趋势 挖掘Linux人才,打造Power生态系统!IBM启动“天合应用服务器定义未来挑战赛” 请不要忽略API的安全性 发布将近?苹果在多地注册“iWatch”商标 苹果聘请某时尚公司CEO为副总裁 将负责“特殊项目” 用 DHCP 分配了二个网段的IP。 怎么能抓到密码? 在运行时想改变一个label的字体怎么改变,有没有做过的,label的属性在设计时是可以改的 fatal error C1010 找一个和VB的属性区一样的代码,控件或类库均可 如何调用在不同的窗体里自定义的过程 一个技术探讨问题,我想知道象在WORD等软件中插入图形或图象后,还能把它选择,并移动是怎样实现的? 请问:在另一个.asp文件中如何调用相同的变量? WEB初级应用问题 DIALOGBAR问题 请想报考明年的网络设计师的朋友进来聊聊 Oracle面向对象特征讨论,请进! 我学会VISUAL C++ 到底要多少时间 线程调试问题 大家一起进来讨论oracle和sql server的日志哦 请指教如果设置服务器端COM组件的权限,使终端可以访问到?分数好说啦,急,高手快帮忙! 如何把程序嵌入到widows Expolore 中? 今天心情特好!散分 在vc下怎样调出window下的“打开方式”对话框,他是类还是控件!请高手指点! 一个门外汉的问题~~~~ 谁知道windows共享密码如何算的 vc中asm怎么不執行? 在开始菜单点右键,拉出的菜单里的内容,怎么添加删除?? 帮忙找一个和VB的属性区一样的代码,控件或类库均可。 Word 中字体的问题 我买了一台SLE4442读写器, 为什么不能写 谁用过FAST REPORT 请求帮助 realplayer中文件菜单栏中的以看过的文件名,怎么删除??? php如何改写或者是添加一个cron的命令参数给linux服务器? SQL Server 能制作表单和报表吗?????? DirectDraw页面格式问题(两个)。答对100分绝对送上,从不食言!(附源码) VC++中的内部交互调试器在哪? 人邮版的C++面向对象高效编程如何? realplayer中文件菜单栏中的以看过的文件名,怎么删除? 如何实现真正的无标题栏的拖动? 用"select top n"取了前n纪录后,要再接着取n+1至2n条纪录,接着再取2n+1至3n……,这种取法要怎样实现呢? 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! shcv.dll 编译不过去!!!!! have a test!have a test!have a test!have a test!have a test!have a test!have a test!have a test! mysql 结果中再次查询如何才能实现呢 10千瓦以下的三相异步电动机的启动电流是多少?应该如何计算并选取空气开关?10千瓦以下的三相异步电动机启动时该如何选取空气开关大小?本人是个初学者, 小明按1:100的比例尺画出教室的长是acm,小强按1:150的比例尺画出的教室长是多少? 一个长方形花坛,周长是48米,长是宽的2倍,这个长方形花坛的长和宽分别是多少米? 求三相异步电动机的降压起动控制电路图 小明按1:100的比例尺画出教师长的线段是7.5厘米,小强按照1:150的比例尺画出这个教室长的线段应是()厘米. 一个长方形花坛,长和宽的比是7:4,如果长减少2米,同时宽增加4米,它就变成正方形,这个长方形花坛的面积是多少平方米(接上面的)?要有列式,要讲解,好的提赏! 已知一长方形教室面积65平方米,如果把它的长扩大到原来的10倍,宽缩小到原来的1%,这个教室的面积应是多少? 小明安1:100的比例尺画出教室长的线段是a厘米,小强按照1:500的比例尺画出这个教室长的线段应是()厘米 一个长方形花坛的周长是120米,长与宽的比是3:1,这个长方形花坛的长和宽各是多少?面积呢? 以知一个长方形的面积是65平方米,如果扩大到原来的10倍,宽缩小到原数的百分之一,面积是多少?如果有人知道4年级下的数学做业之数学广角? 当x≠0时,(2x-1)的0次幂为什么无意义 若函数f(x),g(x)分别是R上的奇函数,偶函数,且满足f(x)-g(x)=e^x,比较g(0),f(2),f(3)的大小要有过程 谢! 一间教室的面积约为56平方米,它的百分之一和百万分之一是多少,用科学计数法表示.它的百分之一和百万分之一是多少平方千米? (x-1)的零次幂加2-x分之1有意义,则x的取值 若函数f(x),g(x)分别是R上的奇函数、偶函数,且满足f(x)-g(x)=e^x,比较f(2)f(3)g(0)的大小 3/4*3.14的x次幂的系数是多少 当x___时,(x+2)/(x-2)-(x-1)0次幂,有意义 若函数f(x)和g(x)分别是R上的奇函数和偶函数,且满足f(x)-g(x)=e的x次幂Y=e的x次幂为什么是增函数?e的x次幂为什么大于0? 求图形的体积要体积公式和计算过程以及答案快 在单台的三相异步电动机的控制指示灯中,故障指示灯与哪个指示灯同亮,或者是单独亮? 当x趋向于无穷时,1的x次幂=?,x的0次幂=? (3x²+1/x)八次方 展开式中,则x七次方的二项式系数是? 三相异步电动机控制电路中如何使用发光二极管做指示灯三个电动机,两用一备,当某个电动机出故障时自动切换备用电机,要求用发光二极管做电源指示,运行指示,故障指示,每个电动机上都有 试画出用两个启动和两个停止按钮在两个不同地方,对同一台三相异步电动机进行“启动”和“停止”控制电路 等比数列{an}中,a4=6,则a2·a6等于 把一块长和宽的比为5:3的长方形土地,用1/1000的比例尺画在图纸上,周长是16cm,实际面积是? 三相异步电动机行程控制电路的接线图怎么画如题,最好是有图,很随便的图也行.因为我对这个一窍不通,文字的话我应该看不懂. 15KW的三相异步电动机的额定电流是多少啊? 已知an是等比数列,(a4+a8)(a6+a10)=49,则a5+a9等于 试画出既能连续工作,又能点动工作的三相异步电动机的控制电路. 一台三相异步电动机为17千瓦,计算这台电动机的额定电流是多少? 在等比数列{an}中,a4+a5=10,a6+a7=20,则a8+a9等于 在等比数列{an}中,已知a6-a4=24,a3a5=64,求{an}前8项和 三相异步电动机的额定电流如何求?有一台三相异步电动机,额定功率为2.2千瓦,额定电压380v,功率因数0.86,效率0.88,求额定电流. (x+1/x)的九次方的展开式中X的三次方的系数为多少 小明住的房间地面是长方形,长4米,宽3米.(1)小明房间的长和宽分别缩小到原来的一百分之一后,场小明住的房间地面是长方形,长4米,宽3米.(1)小明房间的长和宽分别缩小到原来的一百分之 三相异步电动机知道额定功率求额定电流的算法要不要考虑电机的效率,那样可以经济些, 利用延时器星形转三角形降压启动电路图 明明住的房间地面是长方形,长4米,宽3米.(1)我们把明明房间的长和宽分别缩小到原来的一百分之一,得到的长和宽分别是多少厘米?(2)请分别算算房间地面的实际周长和缩小后的周长,再比 关于三相异步电动机电动机额定电流的问题3KW以下的三相异步电动机 380V Y接法的额定电流和220V 三角接法时的额定电流是否是一样的? 鼠笼式三相异步电动机做星形连接时的线电流是做三角形连接时线电流的多少倍? 若某数列前n项和公式Sn=a^n-1,则an是等比数列吗证明 已知数列{an}中,a1=-2008点P(an,a(n+1))在直线x-y+3=0上,(1)求数列{an}通项公式(2)数列{an}的前多少项的和最小 星三角形降压启动电路帮忙分析下电路原理啊!和排故步骤! 一个长方形的长增加10%,宽缩短10%,那么现在长方形面积是原长方形面积的百分之几?最好要算式, 技术经济题.贷款问题.求详细步骤.计算公式1. 某企业获得一笔10万元的贷款,偿还期为5年,按年利率10%计复利,分别计算以下4种还款方式每年还款额、5年还款总额及还款额的现值.(20分)(1) 三相异步电动机星-三角形降压启动控制1、画出继电器-控制器控制电路,说明工作原理.2、画可编程序控制器控制的I/O配线图.3、画可编程序控制器控制的梯形图. 数列{an}的前n项和为Sn=3an+2(1)证明:数列{an}是等比数列(2)求通项公式 已知等比数列{an}中,a4=7,a6=21,则a8等于? 已知等比数列{an}的各项都是正数,且a6*a10+a3*a5=41,a4*a8=4,则a4+a8 一个长方形各边按一百分之一缩小后的长是0.84米,宽是0.3米.求这个长方形的实际长和宽,并求出面积! 一间教室长12米,宽8米,画在比例尺为1:300的平面图上,长应画()厘米,宽应画()厘米. 已知等比数列{an}的各项都是正数,且a6*a10+a3*a5=41,a4*a8=4,求a4+a8 设数列{an}的前n项和Sn=2(an-3),证明{an}为等比数列,并求通项公式 一间教室长12米,宽8米,画在比例尺是1比400的平面图上,长应该画()厘米,宽应该画()厘米 等比数列{an}中多项均为正值且a6*a10+a3*a5=41,a4*a8=5 求a4+a 如果函数f(x)=a的x次幂乘以(a的x次幂-3乘a的2次方-1)在区间[0到正无穷大)上是增函数,那么实数a的取值范围是:(A)(0,2/3] (B)[3分之根号3,1) 计算这个式子,详细过程 小明按1:100的比例尺画出教室长的线段是a厘米,小强按照1:150的比例尺画出这个教室长的线段应是( ) 若函数f(x)=a的x-b次幂的图像如图所示,其中a,b是常数,则b(a-1)与0的大小关系是图像减函数,过(-1,1)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn