unit MyUnit;interface(*/************\*)
(*  接口部分  *)
(*\************/*)uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Registry;type
  TFormCreate = function(AOwner: TComponent): TForm; stdcall; //自定义类型
  
const
  WIConfig = 'WIConfigPr.Dll'; //自定义常量var
  V_SoftWareName: string; //自定义变量function ZsIif();function ZsIif(mBool: Boolean; mDataA, mDataB: Variant): Variant; //自定义函数implementation(*/************\*)
(*  代码部分  *)
(*\************/*)function ZsIif(mBool: Boolean; mDataA, mDataB: Variant): Variant;
begin
  Result := mDataB;
  if mBool then Result := mDataA;
end;initialization(*/************\*)
(*  开始部分  *)
(*\************/*)finalization(*/************\*)
(*  终止部分  *)
(*\************/*)end.