使用文件防止程序重复运行_注册表操作_API函数应用_VB源码使用文件防止程序重复运行_注册表操作_API函数应用_VB源码
使用文件防止程序重复运行的VB源码
以下存为文件:AAA.txt
""
以下存为文件:使用文件防止程序重复运行.frm VERSION 5.00
Begin VB.Form Form1
BackColor = &H80000018&
Caption = "Form1"
ClientHeight = 1935
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
Icon = "使用文件防止程序...
使用文件防止程序重复运行_注册表操作_API函数应用_VB源码
使用文件防止程序重复运行的VB源码
以下存为文件:AAA.txt
""
以下存为文件:使用文件防止程序重复运行.frm VERSION 5.00
Begin VB.Form Form1
BackColor = &H80000018&
Caption = "Form1"
ClientHeight = 1935
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
Icon = "使用文件防止程序重复运行.frx":0000
LinkTopic = "Form1"
ScaleHeight = 1935
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "退 出"
Height = 345
Left = 3060
TabIndex = 0
Top = 1350
Width = 1305
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "欢迎使用本程序 !"
BeginProperty Font
Name = "华文行楷"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 480
TabIndex = 1
Top = 510
Width = 3960
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
On Error GoTo A1
Dim FileName As String
' 从文件中读入程序运行信息
Open App.Path + "\" + "AAA.txt" For Input As #1
Input #1, FileName
Close #1
' 如果有作为程序运行标志的数据则显示提示信息,单击确认按钮后停止本程序的运行
If FileName = "X1" Then
MsgBox " 本程序正在运行 ! "
End If
Exit Sub
' 如果文件不存在则创建 AAA.txt 并将程序运行标志数写入文件
A1:
FileName = "X1"
Open App.Path + "\" + "AAA.txt" For Output As #1
Write #1, FileName
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
' 卸载窗体时从文件中删除数据
Open App.Path + "\" + "AAA.txt" For Output As #1
Write #1, ""
Close #1
End Sub
Private Sub Command1_Click()
' 单击命令按钮,从文件中删除数据,停止程序运行
Open App.Path + "\" + "AAA.txt" For Output As #1
Write #1, ""
Close #1
Unload Me
End
End Sub
以下存为文件:使用文件防止程序重复运行.frx
此文件请到此下载:
以下存为文件:使用文件防止程序重复运行.vbp
Type=Exe
Form=使用文件防止程序重复运行.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#D:\WINNT\system32\
stdole2.tlb#OLE Automation
IconForm="Form1"
Startup="Form1"
ExeName32="F1.exe"
Path32="C:\"
Command32=""
Name="工程1" HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0 NoAliasing=0
BoundsCheck=0
OverflowCheck=0 FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0 MaxNumberOfThreads=1
[MS Transaction Server]
AutoRefresh=1
本文档为【使用文件防止程序重复运行_注册表操作_API函数应用_VB源码】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。