在Delphi中创建DLL示例代码

在Delphi中创建DLL示例代码





unit frmColor;

interface

uses

Windows， Messages， SysUtils， Classes， Graphics， Controls，

Forms， Dialogs，StdCtrls， Buttons， ColorGrd;

type

TColorFrm = class（TForm）

ColorGrid: TColorGrid;

OkBitBtn: TBitBtn;

CancelBitBtn: TBitBtn;

procedure OkBitBtnClick（Sender: TObject）;

procedure CancelBitBtnClick（Sender: TObject）;

private

{ Private declarations }

public

{ Public declarations }

end;

var

ColorFrm: TColorFrm;



function FBColor（Var FColor， BColor:TColor）:WordBool;export;



implementation

{$R *.DFM}



{按 Ok按钮，退出颜色对话框}

procedure TColorFrm.OkBitBtnClick（Sender: TObject）;

begin

ModalResult := mrOk;

end;



{按Cancel按钮，退出颜色对话框}

procedure TColorFrm.CancelBitBtnClick（Sender: TObject）;

begin

ModalResult := mrCancel;

end;



function FBColor（Var FColor， BColor:TColor）:WordBool;

begin

Result := False;

ColorFrm:=TColorfrm.Create（Application）;

Try

if ColorFrm.ShowModal = mrOk then

with ColorFrm do

begin

FColor := ColorGrid.ForegroundColor;

BColor := ColorGrid.BackgroundColor;

Result := True;

end;

finally

ColorFrm.Free;

end;

end;

end.





library ColorLib;

uses

SysUtils，

Classes，

frmColor in \'frmColor.pas\' {ColorFrm};

exports

FBColor;

{$R *.RES}

begin

end.





unit testdll;

interface

uses

Windows， Messages， SysUtils， Classes， Graphics， Controls，

Forms， Dialogs， StdCtrls;

type

TMainFrm = class（TForm）

Memo1: TMemo;

ColorBtn: TButton;

ExitBtn: TButton;

procedure ColorBtnClick（Sender: TObject）;

procedure ExitBtnClick（Sender: TObject）;

private

{ Private declarations }

public

{ Public declarations }

end;



var

MainFrm: TMainFrm;

implementation

{$R *.DFM}



{声明ColorLib.Dll中的函数}

function FBColor（var FColor， BColor:TColor）:WordBool;Far;

external \'Colorlib.dll\';



{弹出ColorLib.dll中的颜色对话框 }

procedure TMainFrm.ColorBtnClick（Sender: TObject）;

var

FColor， BColor: TColor;

begin

FColor := Font.Color; {窗体字体颜色}

BColor := Color; {窗体背景颜色}

if FBColor（FColor，BColor） then

begin

Memo1.Color := BColor; {使用窗体背景色}

Memo1.Font.Color := FColor; {使用字体颜色}

end;

end;



procedure TMainFrm.ExitBtnClick（Sender: TObject）;

begin

close;

end;

end.