1:
2:
3:
4:
5:
6:
7:

function DCGetInfo(type_mask, model_mask:Integer; prodcode_mask:PAnsiChar; array_length:Integer; num_found:PInteger; type_array,model_array:pointer; prodcode_array:pointer; dongle_number_array:pointer; update_number_array: pointer) : Integer; stdcall; external 'DinkeyChangeDebug.dll';
.
.
.
procedure irgendwas;
begin
Result := DCGetInfo(TYPE_MASK_ALL, MODEL_MASK_LITE, nil, MAX_USB_DEVICES, @num_found, @type_array, @model_array, @prodcode_array, @dongle_number_array, @update_number_array);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

type
 TFunktion = function(type_mask, model_mask:Integer; prodcode_mask:PAnsiChar; array_length:Integer; num_found:PInteger; type_array,model_array:pointer; prodcode_array:pointer; dongle_number_array:pointer; update_number_array: pointer) : Integer;

procedure irgendwas;
var Funktion            :TFunktion;
    Handle              :THandle;
begin
  DLLName := 'dinkeychangedebug.dll'
  Handle  := LoadLibrary(PChar(DLLName));
  if Handle <> 0 then begin
    @Funktion := GetProcAddress(Handle, 'DCGetInfo');
    if @Funktion <> nil then begin

      TRY
        Result := Funktion(TYPE_MASK_ALL, MODEL_MASK_LITE, nil, MAX_USB_DEVICES, @num_found, @type_array, @model_array, @prodcode_array, @dongle_number_array, @update_number_array);
.
.
.
.