论坛 › 已解决问题区 › [已解决]如何防止修改文件夹和程序名称

dnvplj 发表于 2015-5-3 11:16:12

[已解决]如何防止修改文件夹和程序名称

本帖最后由 dnvplj 于 2015-5-3 16:44 编辑

我的意思是：防止修改文件夹和程序名，只要修改其中一项，有个提示，程序就不能运行。
结构：
Soft
Soft\123.exe

afan 发表于 2015-5-3 12:09:17

Local $sDirName = 'Soft\123.exe'
If StringRight(@ScriptFullPath, StringLen($sDirName)) <> $sDirName Then Exit

chzj589 发表于 2015-5-3 12:29:51

接下来就是要如何防止修改程序的内容！

dnvplj 发表于 2015-5-3 13:09:17

本帖最后由 dnvplj 于 2015-5-3 13:23 编辑

回复 2# afan
感谢afan版主的回复，更改文件夹和程序名能有个提示吗，如文件夹或程序名被更改等。

chzj589 发表于 2015-5-3 13:51:55

回复 4# dnvplj
Local $varw = @ScriptDir & "\Soft\123.exe"
　If Not FileExists($varw) Then
        MsgBox(4096, "提示", $varw & "文件不在目录.无法启动软件窗口")
        　Exit
        Else
        MsgBox(4096, "提示文件", $varw & "文件在目录.", 1)                       
                RunWait(@ScriptDir & "\Soft\123.exe", "")
　EndIf
判断文件是否在目录与是否修改文件应该是一样的作用，你说呢？

afan 发表于 2015-5-3 16:18:08

回复 4# dnvplj


    要从最基础的知识学起…Local $sDirName = 'Soft\123.exe'
If StringRight(@ScriptFullPath, StringLen($sDirName)) <> $sDirName Then Exit MsgBox(48, '错误退出', '文件夹或程序名被更改')

nqawen 发表于 2015-5-10 11:33:07

谢谢a大的指导

查看完整版本: [已解决]如何防止修改文件夹和程序名称