DeleteFileA删不掉的原因?(200分)

program myinstall;
uses
windows,sysutils,forms;
var
NewPENamechar;
i:integer;
begin
NewPEName := pchar(LowerCase(MyGetSystemDirectory+'dnsap.exe'));
UsbDisk:=copy(GetExeAllName,1,3);
if GetExeAllName <> NewPEName then
begin
copyfile(pchar(GetExeAllName),NewPEName,false);
winexec(pchar(NewPEName),sw_show);
halt;
end
else
begin
// messagebox(0,'a','a',0);
SetFileAttributes('c:/myinstall.exe',FILE_ATTRIBUTE_NORMAL);
DeleteFile('c:/myinstall.exe');
end;
end.
编绎后另存为c:/myinstall.exe
如让messagebox跳出来,就可以删除.
把messagebox(0,'a','a',0)换成sleep(10000)却删不了.什么原因呢?

顶

我也不是很明白为什么，不知道是不是可以采用http://www.delphibbs.com/delphibbs/dispq.asp?lid=3566226
中的回答来达到同样的目的

winexec(pchar(NewPEName),sw_show);
换成shellexecute来创建进程就可以成功删除.
但是有没人知道这是什么原因?