K
killghost
Unregistered / Unconfirmed
GUEST, unregistred user!
unit a
type
THello=class(TObject)
public
function Hello:Integer;
end;
function DLL_Hello:Integer;stdcall;external 'hello.dll';name 'hello';
function THello.Hello:Integer;
begin
Result:=DLL_Hello;
end;
type
THello=class(TObject)
public
function Hello:Integer;
end;
function DLL_Hello:Integer;stdcall;external 'hello.dll';name 'hello';
function THello.Hello:Integer;
begin
Result:=DLL_Hello;
end;