请问XP下,D7能否实现程序删除自身。

[guitarheaven]

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;

像这种程序，现在测试是不能成功的
请问各位有没有好办法？
泄泻！

[cuteant]

自动生成一个bat好了，呵呵

[老之]

见过有人这样做：在程序里生成一个bat文件，写入删除代码，在Application.Terminate之前调用这个bat就可以自我删除

[guitarheaven]

嗯，也知道这种方式，但是最好是不用生成bat，呵呵

[ly_liuyang]

上面的代码绝对无效的
只能用BAT方法

[woshihaoge]

CREATEFILE 这个涵数在创建文件的时候,会有个文件属性设置的,你可以参照一下

[beyondsun]

用生成BAT的方法在程序消亡之前调用,当然BAT是隐藏模式调用,而且会删除程序＆BAT本身,这样不就好了么?