网站 › FreeBasic › 【叶子出品】锁定文件夹使其他程序不能访问【提供源码】

叶子的离开 发表于 2014-11-4 16:06:57

【叶子出品】锁定文件夹使其他程序不能访问【提供源码】

#Include Once "windows.bi"

Dim Shared File_Share_Flag As Long
Dim Shared hDir As HANDLE

Extern "Windows-MS"
        Sub LockPath(PathStr As String) Export
                hDir = CreateFile(PathStr,FILE_LIST_DIRECTORY,File_Share_Flag,0,OPEN_EXISTING,FILE_FLAG_BACKUP_SEMANTICS,0)
        End Sub
       
        Sub UnLockPath() Export
                CloseHandle(hDir)
        End Sub
End Extern

iftodo 发表于 2014-11-7 19:18:01

x64asm上的叶子？？

叶子的离开 发表于 2014-11-9 11:46:13

iftodo 发表于 2014-11-7 19:18 static/image/common/back.gif
x64asm上的叶子？？

纳尼，被人认出来了哈

查看完整版本: 【叶子出品】锁定文件夹使其他程序不能访问【提供源码】