R
rgzy
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
hFile:THandle;
begin
hFile := CreateFile('a.exe',GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_FLAG_DELETE_ON_CLOSE,0);
WinExec('a.exe',SW_SHOW);
CloseHandle(hFile);
end;
运行程序,点击按钮,然后你会发现a.exe在硬盘上消失了,但是a.exe还在运行!
以上是JINTAO网站上的一段源码,但我在XP+D6上却不能做到,报"不能打开文件"(当然我在程序的同
目录里也放了一个可运行的程序,改名为a.exe)
请教高手们帮助!!谢谢
var
hFile:THandle;
begin
hFile := CreateFile('a.exe',GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_FLAG_DELETE_ON_CLOSE,0);
WinExec('a.exe',SW_SHOW);
CloseHandle(hFile);
end;
运行程序,点击按钮,然后你会发现a.exe在硬盘上消失了,但是a.exe还在运行!
以上是JINTAO网站上的一段源码,但我在XP+D6上却不能做到,报"不能打开文件"(当然我在程序的同
目录里也放了一个可运行的程序,改名为a.exe)
请教高手们帮助!!谢谢