end; function Average (X, Y: real): real; overload; stdcall; begin Average := (X + Y) / 2 end

function Average (X, Y: real): real;

overload; stdcall; begin

Average := (X + Y) / 2

Одан кейін, экспорт мәлімдемесінде олардың декларациясы ұқсас болуы керек

Average (X, Y: integer) name 'AverageInt', Average (X, Y: real) name 'AverageReal';

Әртүрлі атаулар қоңырау шалушы бағдарламада шамадан тыс жүктелген ретінде осы функциялардың қолданылуына кедергі келтірмейді. Енді DLL-дегі құпия сөзді енгізу пішінін енгізіңіз. Әрбір қосымшаға мұндай форманы енгізу, оны DLL-де үнемді үнемдеу және оны қажет болған барлық қосымшалардан шақырту ұсынылмайды. Сонымен қатар, егер сіз бұл нысанды уақыт ішінде ауыстырғыңыз келсе, тек DLL-ді ғана өзгертуге болады және барлық қосымшалар өзгеріссіз қалуы мүмкін.

DLL-ге пайдаланушы атын сұрайтын диалогтың қарапайым нысанын енгізейік. DLL файлындағы жаңа пішінді қамтитын Файл / Жаңа / Пішін пәрменін орындаңыз. Белгіні, Editl және Edit батырмасын басыңыз, пішінге ModalResult сипатында, mrOk орнатыңыз (10.1-суретті қараңыз).

Пішін модулін UMyDialog атымен сақтаңыз. Пішін модулінде бұл жағдайда ешқандай кодты жаза алмайсыз және DLL коды келесідей өзгертілуі керек:
Library MyDLL;

uses

Forms {для переменной Application}, UMyDialog in 'UMyDialog.pas' {forml}; function MyDialog (User: PChar) : Pchar;

stdcall;

Var form: TForml;

Пайдаланушы

Сурет. 10.1. Диалогтың нысаны
begin

Form := TForml.Create (Application); Form.Editl.Text := User; Form.ShowModal;

Result := PChar (Form.Edit1.Text); Form.Free;