列表3.1.txt

来自「klinux书籍的配套光盘。可以学习学习。」· 文本 代码 · 共 21 行

【列表3.1】一个简单的共享对象。
{ hello.dpr - a simple shared object }
library hello;

uses
   SysUtils,
   Classes;
{$R *.res}

procedure SayHello; cdecl;
begin
   WriteLn ('Hello from library');
end;

exports
   SayHello index 1 name 'SayHello';

begin
   WriteLn ('library startup code');
end.