首页 / 软件开发 / Delphi / Delphi语言学习9-函数的静态和动态加载

Delphi语言学习9-函数的静态和动态加载2011-12-121.静态加载

procedure DoSomething; external "MYLIB.DLL";

2.动态加载

uses Windows, ;
type
TTimeRec = record
Second: Integer;
Minute: Integer;
Hour: Integer;
end;
TGetTime = procedure（var Time: TTimeRec）;
THandle = Integer;
var
Time: TTimeRec;
Handle: THandle;
GetTime: TGetTime;
.
.
.
begin
Handle := LoadLibrary（"libraryname"）;
if Handle <> 0 then
begin
 @GetTime := GetProcAddress（Handle, "GetTime"）;
 if @GetTime <> nil then
begin
GetTime（Time）;
 with Time do
WriteLn（"The time is ", Hour, ":", Minute, ":", Second）;
 end;
 FreeLibrary（Handle）;
end;
end;