dll?

Question

动态调用方式
程序中定义了一个ShowCalendar函数,返回在这个窗体中设定的日期。函数定义如下:
function ShowCalendar(AHandle: THandle; ACaption: String): TDateTime;
var
　DLLForm: TDLLForm;
begin
　Application.Handle := AHandle;
　DLLForm := TDLLForm.Create(Application); //创建并显示窗体
　try
　　DLLForm.Caption := ACaption;
　　DLLForm.ShowModal; //显示方式为模式化
　　Result := DLLForm.calDLLCalendar.CalendarDate; //返回设定日期
　finally
　　DLLForm.Free; //用完后卸载该窗体
　end;
end; 
　　在DLL的工程文件中用exports ShowCalendar; 语句引出该函数。下面通过一个简单的应用程序测试一下该DLL文件。新建一个工程文件,在窗体中放置一个Label控件和一个按钮控件,在按钮控件的OnClick事件中编写如下代码:
procedure TMainForm.Button1Click(Sender: TObject);
var
　OneHandle : THandle; //定义一个句柄变量
begin
　OneHandle := LoadLibrary('Clendar.dll'); //动态载入DLL,并返回其句柄
　try
　　if OneHandle <> 0 then //如果载入成功则获取ShowCalendar函数的地址
　　　@ShowCalendar := GetProcAddress(OneHandle, 'ShowCalendar');
　　　if not (@ShowCalendar = nil) then
　　　　//如果找到该函数则在主窗体的Label1中显示DLL窗体中设定的日期
　　　　Label1.Caption := DateToStr(ShowCalendar(Application.Handle, Caption))
　　　else
　　　　RaiseLastWin32Error;
　finally
　　FreeLibrary(OneHandle); //调用完毕收回DLL占用的资源
　end;
end;
@ShowCalendar 是怎样定义的
怎样在主程序中调用dll中的函数?

Answer 1

ShowCalendar是dll倒出的函數名稱  @函數名表示該函數地止
你也可以自己在主程序中定義一個函數變量（和dll中的一樣的參數和返回值）
；
怎樣調用？就是你的代碼呀！
不過最好吧dll放到你的主程序的目錄下面

Answer 2

type
 TShowCalendar = function (AHandle: THandle; ACaption: String): TDateTime;
var 
 ShowCalendar: TShowCalendar;

Answer 3

dll中輸出參數帶string,
要在主程序與dll都要 uses ShareMem