老大
我就是陈经韬啊
你的B程序要执行取出函数才可以的。参考：
Function Cjt_LoadFromFile(SourceFile,TargetFile :string):Boolean;
另外，你还可以取出来后运行，然后立刻删除该取出来的文件。
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还在运行procedure TForm1.Button1Click(Sender: TObject);
