nbsp; 
result := hvxdhandle <> invalid_handle_value;  
end;  

procedure tvxdtestform.closevxddriver;  
begin  
if hvxdhandle <> invalid_handle_value then begin  
　 closehandle(hvxdhandle);  
　 hvxdhandle := invalid_handle_value;  
end;  
end  



顺便说一下,delphi中有个编译选项可以控制程序加载的入口

一般是0x00400000,你可以改.