delphi
type myfun = procedure( list : pDatalist; filename : PChar);stdcall;
var
casefun:myfun;
begin
Handle := Loadlibrary('d:\\libcase.dll');
if myHandle<>0 then
begin
getmem(caselist,sizeof(datalist));
@casefun := GetProcAddress(myHandle, 'IniFile');
if @casefun<>nil then
begin
casefun(caselist, 'd:\\00200049.str');
end;
end;
FreeLibrary(myHandle);