DLL mehrere Strings auslesen

[S4SH1981]

Habe mich jetzt nochmal schlau gemacht, aber der Erfolg lässt weiter auf sich warten.
Mache es zurzeit so, dass ich in der DLL sagen muss welchen Adapter ich nun ansteuern will.

Delphi-Quellcode:

function GetNetworkAdapter(var J : integer) : string;
var 
  MibRow: TMibIfRow; 
  IntfTable: PMibIfTable; 
  Size: DWORD; 
  I : Integer;
begin
  Size := 0; 
  If GetIfTable(nil, Size, True) <> ERROR_INSUFFICIENT_BUFFER then Exit;
  IntfTable := AllocMem(Size);
  Try
    If GetIfTable(IntfTable, Size, True) = NO_ERROR then
//      For I := 0 to IntfTable^.dwNumEntries -1 do
[b]I := 0;[/b]
        begin
          MibRow := IntfTable.Table[I];
          result := (PChar(@MibRow.bDescr[0]) + ' @ ' + InttoStr(MibRow.dwSpeed div 1000000)+ ' MBit/s');
        end;
  Finally
    FreeMem(IntfTable);
  end;
end; 

exports 
   GetNetworkAdapter; 

begin 
end.