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.
(* 接口部分 *)
(*\************/*)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.
begin
ShowMessage('Hello');
end;