关于10期《在win32下自删除可执行文件》

[韩磊]

在Delphi中是可以完成这个“不可能的任务”的——

这样取得的地址实际上是这个封装代码的，而这段代码又处于 UnmapViewOfMap 解除映像范围类，因此，到调用 DeleteFile 函数的时候就无法反问到这段代码了。

解决的办法是，用GetProcAddress动态取得这几个API的地址。

Delphi&CB代码如下：

//////////////////////////////////////////////
procedure DeleteSelf;
var
pExitProcess: Pointer;
pDeleteFile: Pointer;
pUnmapViewOfFile: Pointer;
hModule: THANDLE;
cBuf:array[0..MAX_PATH]of Char;
begin
hModule := GetModuleHandle('kernel32');
if hModule <> 0 then
begin
pExitProcess := GetProcAddress(hModule, 'ExitProcess');
pDeleteFile := GetProcAddress(hModule, 'DeleteFileA');
pUnmapViewOfFile := GetProcAddress(hModule, 'UnmapViewOfFile');
end else
begin
pExitProcess := nil;
pDeleteFile := nil;
pUnmapViewOfFile := nil;
end;
hModule := GetModuleHandle(nil);
GetModuleFileName(hModule, cBuf, Sizeof(cBuf));
CloseHandle(THANDLE(4));
asm
XOR EAX, EAX;
PUSH EAX;
PUSH EAX;
LEA EAX, cBuf;
PUSH EAX;
MOV EAX, pExitProcess; PUSH EAX; MOV EAX, hModule; PUSH EAX; MOV EAX, pDeleteFile;
PUSH EAX;
MOV EAX, pUnmapViewOfFile;
PUSH EAX;
RET;
end;
end;

[meitounao]

不会delphi,看不懂，搂主强！！！！！！！！！

[齐北]

我也不会Delphi的。但是这段代码大体分两部分，第一部分：取得三个API函数的地址。
第二部分是把这三个地址及基需要的参数入栈。但是什么时候执行栈中的操作呢？我对Delphi不是太懂，请楼主指点?

[AbnerChai]

VC win32SDK也可以做到.

[52juanjuan]

thank you !

[doer_ljy]

好！