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); . . . . |