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) | 阅读(385)

< 2009 > < 1 > 戊子年（鼠）/己丑年（牛）
日	一	二	三	四	五	六
				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 初四	30 初五	31 初六

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

分类

日历

统计

搜索

最新日志

最新评论

链接

归档

其他

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

分类

日历

统计

搜索

最新日志

最新评论

链接

归档

其他

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