//知道dll里面的函数,给你个我以前找的例子
function GetPath(): string; stdcall;
var
FHandle : THandle ;
FGetPath : TGetPath;
begin
result := '';
FHandle := LoadLibrary('TSysCom.dll');
if FHandle <> 0 then
begin
@FGetPath := GetProcAddress(FHandle, 'GetPath');
if @FGetPath <> nil then
result :=trim(StrPas(FGetPath()))
else
ShowMsg(PChar('加载函数GetPath失败!'));
end
else
ShowMsg(PChar('加载TSysCom.dll失败!'));
FreeLibrary(FHandle);
end;