Hola mis hermanos del Mediterraneo,
os dejo un simple código que, usando las funciones externas de la libreria libgio-2.0, cuando se pasa el ratón sobre los íconos de archivo en el Escritorio, devuelve información sobre estos archivos.
Hace falta activar el Componente gb.desktop .
(No se si en la ruta de la Constante "PERCORSO" la palabra "Escritorio" está bien)
os dejo un simple código que, usando las funciones externas de la libreria libgio-2.0, cuando se pasa el ratón sobre los íconos de archivo en el Escritorio, devuelve información sobre estos archivos.
Hace falta activar el Componente gb.desktop .
(No se si en la ruta de la Constante "PERCORSO" la palabra "Escritorio" está bien)
GAMBAS
- rt As Rect
-
-
-
-
- ' Carica tutti i file corrispondenti alle icone presenti sulla Scrivania:
- ' Usa con "Extern" alcune funzioni esterne della libreria "libgio-2.0":
- s = EstraeInfo(PERCORSO &/ nomefile)
- ' Carica nella "Struttura" i dati utili del file individuato dalla funzione "Dir()":
- .nome = nomefile
- ' Stabilisce un'area quadrata standard di 48 pixel per ciascuna icona di file individuato:
- icone.Push(ifd)
-
- T.Delay = 50
- T.Start
-
-
-
-
- TextArea1.Clear
-
- ' Se le coordinate x,y in pixel correnti in cui si trova il puntatore del mouse rientrano in un'area quadrata caricata, va a vedere a quale icona e file appartiene:
- ' Mostra alcune caratteristiche del file al quale corrisponde l'icona sorvolata dal puntatore del mouse:
- TextArea1.Text = "== Características del archivo ==\n" &
-
-
-
- Library "libgio-2.0"
-
- ' GFile * g_file_new_for_commandline_arg (const char *arg)
- ' Creates a GFile with the given argument from the command line.
-
- ' GFileInfo * g_file_query_info (GFile *file, const char *attributes, GFileQueryInfoFlags flags, GCancellable *cancellable, GError **error )
- ' Gets the requested information about specified file.
-
- ' char ** g_file_info_list_attributes (GFileInfo *info, const char *name_space)
- ' Lists the file info structure's attributes.
-
- ' char * g_file_info_get_attribute_as_string (GFileInfo *info, const char *attribute)
- ' Gets the value of a attribute, formatted as a string.
-
- ' void g_object_unref (gpointer object)
- ' Decreases the reference count of object.
-
-
-
-
- fl = g_file_new_for_commandline_arg(percfile)
-
-
- percfile = EstraeAttributi(info)
-
- g_object_unref(info)
- g_object_unref(fl)
-
- Return percfile
-
-
-
-
-
-
- Inc i
- p = g_file_info_get_attribute_as_string(inf, s)
-
-
"Los horizontes perdidos nunca regresan. " (F. Battiato, La stagione dell'amore, 1983)
"Las ondas nunca regresan. " (Genesis: Ripples - A trick of the tail, 1976)