删除运行程序本身的方法! 不是用批处理的方法(bat)!

删除运行程序本身的方法! 不是用批处理的方法(bat)!
作者:d99 日期:2005-07-31   procedure deleteSelf; var hModule: THandle;   szModuleName: array[0..MAX_PATH] of char;   hKrnl32: THandle;   pExitProcess, pdeleteFile, pFreeLibrary, pUnmapViewOfFile: pointer;   ExitCode: UINT; begin   hModule := GetModuleHandle(nil);   GetModuleFileName(hModule, szModuleName, sizeof(szModuleName));   hKrnl32 := GetModuleHandle('kernel32');   pEx...
Copyright © 浩然东方 保留所有权利.   Theme  Ality 07032740

用户登录