注意,在Dll中调用Form,必须要有AOwner,即Application。
  所以,你的函数iinput应该申明为function iinput(AH: THandle; 
var P: PCHAR): Boolean; stdcall;
  你的程序有两个不妥:iinput的Application为非法值,因为你没有创
建(在Application中是自动的,而Dll中却不是);返回值不要用String,
最好由主程序传递参数.