Ottenere informazioni sulle icone presenti sulla Scrivania - Cronologia

Vuott il 23:46, 22 apr 2025

2025-04-22T23:46:25Z

← Versione meno recente		Versione delle 17:46, 22 apr 2025
Riga 2:		Riga 2:

	Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:		Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:
	Library "libgio-2.0:0.~~8000~~.5"		Library "libgio-2.0:0.8400.1"

	<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''		<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''
Riga 135:		Riga 135:


	Library "libgio-2.0:0.~~8000~~.5"		Library "libgio-2.0:0.8400.1"

	<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''		<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''

Vuott il 16:30, 23 nov 2024

2024-11-23T16:30:18Z

← Versione meno recente		Versione delle 10:30, 23 nov 2024
Riga 1:		Riga 1:
	In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria: "''libgio-2.0.so.0.8000.5'' ".		In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria: "''libgio-2.0.so.0.8000.5'' ".
	~~<BR>~~Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:
			Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:
	Library "libgio-2.0:0.8000.5"		Library "libgio-2.0:0.8000.5"

Vuott il 23:13, 16 ott 2024

2024-10-16T23:13:44Z

← Versione meno recente		Versione delle 17:13, 16 ott 2024
Riga 1:		Riga 1:
	In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria: "''libgio-2.0.so.0.8000.2'' ".		In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria: "''libgio-2.0.so.0.8000.5'' ".
	<BR>Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:		<BR>Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:
	Library "libgio-2.0:0.8000.2"		Library "libgio-2.0:0.8000.5"

	<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''		<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''
Riga 134:		Riga 134:


	Library "libgio-2.0:0.8000.2"		Library "libgio-2.0:0.8000.5"

	<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''		<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''

Vuott il 22:35, 22 giu 2024

2024-06-22T22:35:06Z

← Versione meno recente		Versione delle 16:35, 22 giu 2024
Riga 1:		Riga 1:
	In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria "''libgio-2.0.so.0.~~7200~~.4'' ".		In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria: "''libgio-2.0.so.0.8000.2'' ".
	<BR>Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:		<BR>Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:
	Library "libgio-2.0:0.~~7200~~.4"		Library "libgio-2.0:0.8000.2"

	<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''		<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''
Riga 24:		Riga 24:


	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim percorso As String		Dim percorso As String
	Dim fl, info As Pointer		Dim fl, info As Pointer

	percorso = "<FONT Color=~~gray~~>''/percorso/del/file''</font>"		percorso = "<FONT Color=darkgreen>''/percorso/del/file''</font>"

	fl = g_file_new_for_commandline_arg(percorso)		fl = g_file_new_for_commandline_arg(percorso)
Riga 42:		Riga 42:
	g_object_unref(fl)		g_object_unref(fl)

	~~'''~~End~~'''~~		End

	~~'''~~Private~~'''~~ Procedure MostraAttributi(inf As Pointer)
			Private Procedure MostraAttributi(inf As Pointer)

	Dim attr, p As Pointer		Dim attr, p As Pointer
Riga 62:		Riga 63:
	Until IsNull(s)		Until IsNull(s)

	~~'''~~End~~'''~~		End


Riga 79:		Riga 80:


	~~'''~~Public~~'''~~ Sub Form_Open()		Public Sub Form_Open()

	Dim nomefile, s As String		Dim nomefile, s As String
Riga 105:		Riga 106:
	End With		End With

	~~'''~~End~~'''~~		End

	~~'''~~Public~~'''~~ Sub Timer1_Timer()
			Public Sub Timer1_Timer()

	Dim c As Short		Dim c As Short
Riga 129:		Riga 131:
	Next		Next

	~~'''~~End~~'''~~		End


	Library "libgio-2.0:0.~~7200~~.4"		Library "libgio-2.0:0.8000.2"

	<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''		<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''
Riga 155:		Riga 157:


	~~'''~~Private~~'''~~ Function LeggeInfo(percfile As String) As String		Private Function LeggeInfo(percfile As String) As String

	Dim fl, info As Pointer		Dim fl, info As Pointer
Riga 172:		Riga 174:
	Return percfile		Return percfile

	~~'''~~End~~'''~~		End


	~~'''~~Private~~'''~~ Function EstraeAttributi(inf As Pointer) As String		Private Function EstraeAttributi(inf As Pointer) As String

	Dim attr, p As Pointer		Dim attr, p As Pointer
Riga 190:		Riga 193:
	Return String@(p)		Return String@(p)

	~~'''~~End~~'''~~		End

Vuott il 07:32, 11 mag 2023

2023-05-11T07:32:45Z

← Versione meno recente		Versione delle 01:32, 11 mag 2023
Riga 1:		Riga 1:
	In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria "libgio-2.0.so.0.~~6400~~.6".		In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria "''libgio-2.0.so.0.7200.4'' ".
	<BR>Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:		<BR>Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:
	Library "libgio-2.0:0.~~6400~~.6"		Library "libgio-2.0:0.7200.4"

	<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''		<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''
Riga 132:		Riga 132:


	Library "libgio-2.0:0.~~6400~~.6"		Library "libgio-2.0:0.7200.4"

	<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''		<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''

Vuott il 23:12, 7 ott 2022

2022-10-07T23:12:23Z

← Versione meno recente		Versione delle 17:12, 7 ott 2022
Riga 43:		Riga 43:

	'''End'''		'''End'''


	'''Private''' Procedure MostraAttributi(inf As Pointer)		'''Private''' Procedure MostraAttributi(inf As Pointer)
Riga 107:		Riga 106:

	'''End'''		'''End'''


	'''Public''' Sub Timer1_Timer()		'''Public''' Sub Timer1_Timer()
Riga 134:		Riga 132:


	Library "libgio-2.0"		Library "libgio-2.0:0.6400.6"

	<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''		<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''
Riga 175:		Riga 173:

	'''End'''		'''End'''


	'''Private''' Function EstraeAttributi(inf As Pointer) As String		'''Private''' Function EstraeAttributi(inf As Pointer) As String

Vuott il 23:10, 7 ott 2022

2022-10-07T23:10:54Z

← Versione meno recente		Versione delle 17:10, 7 ott 2022
Riga 1:		Riga 1:
	In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria "libgio-2.0".		In via generale, per ottenere informazioni sui file e anche sulle icone a essi correlate, si potranno usare alcune funzioni esterne della libreria "libgio-2.0.so.0.6400.6".
	<BR>Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:		<BR>Mostriamo un semplice codice, con il quale si conosceranno varie informazioni su un file e sulla sua icona correlata:
	Library "libgio-2.0"		Library "libgio-2.0:0.6400.6"

	<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''		<FONT Color=gray>' ''GFile * g_file_new_for_commandline_arg (const char *arg)''

Vuott il 22:26, 16 mag 2021

2021-05-16T22:26:16Z

← Versione meno recente		Versione delle 16:26, 16 mag 2021
Riga 95:		Riga 95:
	.x = Val(Scan(s, ",")[0])		.x = Val(Scan(s, ",")[0])
	.y = Val(Scan(s, ",")[1])		.y = Val(Scan(s, ",")[1])
	<FONT Color=gray>' ''Stabilisce un'area quadrata standard di 48 pixel per ciascuna icona di file individuato:''</font>		<FONT Color=gray>' ''Stabilisce un'area quadrata standard di 48x48 pixel per ciascuna icona di file individuato:''</font>
	.rt = New Rect(.x, .y, 48, 48)		.rt = New Rect(.x, .y, 48, 48)
	End With		End With

Vuott il 13:50, 13 mag 2021

2021-05-13T13:50:02Z

← Versione meno recente		Versione delle 07:50, 13 mag 2021
Riga 76:		Riga 76:
	End Struct		End Struct
	Private icone As New IconaFileDesktop[]		Private icone As New IconaFileDesktop[]
	Private PERCORSO As String = ~~User~~.~~home &/~~ "~~Scrivania~~"		Private PERCORSO As String = Desktop.GetDirectory("DESKTOP")
	Private TImer1 As Timer		Private TImer1 As Timer

Vuott il 00:39, 11 mag 2021

2021-05-11T00:39:52Z

← Versione meno recente		Versione delle 18:39, 10 mag 2021
Riga 37:		Riga 37:
	If info == 0 Then Error.Raise("Errore !")		If info == 0 Then Error.Raise("Errore !")

	~~Mostra_Attributi~~(info)		MostraAttributi(info)

	g_object_unref(info)		g_object_unref(info)
Riga 45:		Riga 45:


	'''Private''' Procedure ~~Mostra_Attributi~~(inf As Pointer)		'''Private''' Procedure MostraAttributi(inf As Pointer)

	Dim attr, p As Pointer		Dim attr, p As Pointer
Riga 88:		Riga 88:
	For Each nomefile In Dir(PERCORSO, "*", gb.File)		For Each nomefile In Dir(PERCORSO, "*", gb.File)
	<FONT Color=gray>' ''Usa alcune funzioni esterne della libreria "libgio-2.0":''</font>		<FONT Color=gray>' ''Usa alcune funzioni esterne della libreria "libgio-2.0":''</font>
	s = ~~EstraeInfo~~(PERCORSO &/ nomefile)		s = LeggeInfo(PERCORSO &/ nomefile)
	If IsNull(s) Then Continue		If IsNull(s) Then Continue
	<FONT Color=gray>' ''Carica nella "Struttura" i dati utili del file individuato dalla funzione "Dir()":''</font>		<FONT Color=gray>' ''Carica nella "Struttura" i dati utili del file individuato dalla funzione "Dir()":''</font>
Riga 157:		Riga 157:


	'''Private''' Function ~~EstraeInfo~~(percfile As String) As String		'''Private''' Function LeggeInfo(percfile As String) As String

	Dim fl, info As Pointer		Dim fl, info As Pointer
Riga 167:		Riga 167:
	If info == 0 Then Error.Raise("Errore !")		If info == 0 Then Error.Raise("Errore !")

	percfile = ~~Mostra_Attributi~~(info)		percfile = EstraeAttributi(info)

	g_object_unref(info)		g_object_unref(info)
Riga 177:		Riga 177:


	'''Private''' Function ~~Mostra_Attributi~~(inf As Pointer) As String		'''Private''' Function EstraeAttributi(inf As Pointer) As String

	Dim attr, p As Pointer		Dim attr, p As Pointer