一个dll问题 (50分)

如何在delphi6中调用dll啊！

自己写啊

有两种方法
1.静态调用:
procedure DoSomething; external 'MYLIB.DLL';
function SomeFunction(S: string): string; external 'strlib.dll';
2.动态调用;
先声明一个过程指针变量
TGetTime = procedure(var Time: TTimeRec);
在程序中
var
Handle: THandle;
GetTime: TGetTime;
begin
Handle := LoadLibrary('libraryname.dll');
if Handle <> 0 then
begin
@GetTime := GetProcAddress(Handle, 'GetTime');//gettime 是动态连接库中的函数
if @GetTime <> nil then
begin
GetTime();
end;
FreeLibrary(Handle);
end;
end;