mydll.dpr.~1~

Delphi 2005程序设计教程_实例源文件和教学课件

library myDLL;

uses
  ComServ;

function GCD(i,j:integer):integer ;
var
  tmp:integer;
begin
  repeat
    if i < j then
    begin
      tmp:=i;
      i:=j;
      j:=tmp;
    end;
    i:=i mod j;
  until (i=0);
  Result:= j;

end;
  exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer,GCD;

{$R *.RES}

begin
end.