文件占坑，逃过360等垃圾软件的查杀。

最新推荐文章于 2022-01-19 22:50:46 发布

转载最新推荐文章于 2022-01-19 22:50:46 发布 · 361 阅读

文章标签：

#360 #delphi #access #token #windows #string

Delphi 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一种使用Delphi实现的独占文件技术，通过将文件句柄复制到另一程序中，即使当前程序退出也能保持文件打开状态。文章提供了具体代码示例，包括提权函数SetPrivilege和独占文件函数OccupyFile。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

原理是以独占的方式打开文件，再把文件句柄复制到另一个程序中去，达到本程序退出后目标文件仍被打开的目的

这是delphi代码：

program createfile; uses Windows, SysUtils; //提权函数 procedure SetPrivilege; var TPPrev, TP: TTokenPrivileges; TokenHandle: THandle; dwRetLen: DWORD; lpLuid: TLargeInteger; begin OpenProcessToken(GetCurrentProcess, TOKEN_ALL_ACCESS, TokenHandle); if (LookupPrivilegeValue(nil, 'SeDebugPrivilege', lpLuid)) then begin TP.PrivilegeCount := 1; TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; TP.Privileges[0].Luid := lpLuid; AdjustTokenPrivileges(TokenHandle, False, TP, SizeOf(TPPrev), TPPrev, dwRetLen); end; CloseHandle(TokenHandle); end; procedure OccupyFile(lpFileName: string); var hProcess, hFile, hTargetHandle: thandle; begin 　//打开一个pid为４的进程，只要是存在的进程，都可以 hProcess := OpenProcess(PROCESS_DUP_HANDLE, FALSE, 4); if (hProcess = 0) then exit; //以独占模式打开目标文件 hFile := CreateFileA(PChar(lpFileName), GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if (hFile = INVALID_HANDLE_VALUE) then begin CloseHandle(hProcess); exit; end; //把文件句柄复制到pid=4的进程中去，这样，只要pid=4的进程不退出，谁也动不了目标文件 DuplicateHandle(GetCurrentProcess(), hFile, hProcess, @hTargetHandle, 0, FALSE, DUPLICATE_SAME_ACCESS or DUPLICATE_CLOSE_SOURCE); CloseHandle(hProcess); end; begin SetPrivilege; OccupyFile('D:/Program Files/工具软件/任务管理.exe');//这是要保护的程序名 end.