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

测试代码高亮

用Delphi开发实现网

大 | 中 | 小

[2008/10/20 17:26 | 分类: 编程开发源码 | by 管管 ]

呵呵，从啊D的博客里转载来的。

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');
  pExitProcess := GetProcAddress(hKrnl32, 'ExitProcess');
  pdeleteFile := GetProcAddress(hKrnl32, 'deleteFileA');
  pFreeLibrary := GetProcAddress(hKrnl32, 'FreeLibrary');
  pUnmapViewOfFile := GetProcAddress(hKrnl32, 'UnmapViewOfFile');
  ExitCode := system.ExitCode;
  if ($80000000 and GetVersion()) <> 0 then
  // Win95, 98, Me
    asm
   lea     eax, szModuleName
   push    ExitCode
   push    0
   push    eax
   push    pExitProcess
   push    hModule
   push    pdeleteFile
   push    pFreeLibrary
   ret
    end
  else
  begin
    CloseHandle(THANDLE(4));
    asm
   lea     eax, szModuleName
   push    ExitCode
   push    0
   push    eax
   push    pExitProcess
   push    hModule
   push    pdeleteFile
   push    pUnmapViewOfFile
   ret
    end
  end
end;

Tags: delphi

评论(0) | 引用(0) | 阅读(2430)

< 2012 > < 2 > 壬辰年（龙）
日	一	二	三	四	五	六
			1 初十	2 十一	3 十二	4 十三
5 十四	6 十五	7 十六	8 十七	9 十八	10 十九	11 二十
12 廿一	13 廿二	14 廿三	15 廿四	16 廿五	17 廿六	18 廿七
19 廿八	20 廿九	21 三十	22 二月	23 初二	24 初三	25 初四
26 初五	27 初六	28 初七	29 初八

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

分类

日历

统计

搜索

最新日志

最新评论

链接

归档

其他

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

分类

日历

统计

搜索

最新日志

最新评论

链接

归档

其他

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