TGDrive

type TGDrive = object

  changed: ;

  disconnected: ;

  eject_button: ;

  stop_button: ;

  function can_eject;

  function can_poll_for_media;

  function can_start;

  function can_start_degraded;

  function can_stop;

  procedure eject_with_operation();

  function eject_with_operation_finish();

  function enumerate_identifiers;

  function get_icon;

  function get_identifier();

  function get_name;

  function get_sort_key;

  function get_start_stop_type;

  function get_symbolic_icon;

  function get_volumes;

  function has_media;

  function has_volumes;

  function is_media_check_automatic;

  function is_media_removable;

  function is_removable;

  procedure poll_for_media();

  function poll_for_media_finish();

  procedure start();

  function start_finish();

  procedure stop();

  function stop_finish();

end;

TGDrive