{$M $4000,0,0}
uses dos;
begin
 SwapVectors;
 exec('../tp/bin/tpx.exe','');
 SwapVectors;
end.
为什么没反应???