-
-
[旧帖] [求助]请问如何添加文件名校验？ 0.00雪花
-
2007-12-16 13:38
-
|
|
|---|---|
|
|
例如VB中这样写:(DEPHI也差不多了)(程序在附件)
Private Sub Command1_Click() MsgBox App.exename, , "当前文件名" End Sub Private Sub Form_Load() Dim exename As String exename = App.exename If exename = "测试禁止修改名字" Then MsgBox "文件名字没有被修改", , "测试成功" Else MsgBox "文件名字被修改为""" & exename & """ 原文件名字为""测试禁止修改名字.exe""", , "警告:" End End If End Sub  |
|
|
|
