Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #18478

Re: Windows 10 e programmi scritti in VB6

Show all headers | View raw

Il 20/08/2015 23:02, salclem2 ha scritto:
> "Daniele Pinna" <daniele@oops.dapinna.com> ha scritto nel messaggio
> news:mr5buf$h2c$1@virtdiesel.mng.cu.mi.it...
>> Il 10/08/2015 20:42, Daniele Pinna (Ufficio) ha scritto:
>>> Il 02/08/2015 00:37, buonanotte ha scritto:
>>>> Una applicazione non scrive i file .... se non lanciata ' COME
>>>> AMMINISTRATORE '
>>>> ma succedeva  gia con Windows 7
>>>>
>>>>
>>>> "Daniele Pinna (Ufficio)"  ha scritto nel messaggio
>>>> news:mpg8vr$73h$1@virtdiesel.mng.cu.mi.it...
>>>>
>>>> Salve a tutti :-)
>>>>
>>>> Non credo ci siano problemi particolari...
>>>> ma qualcuno ha già fatto qualche prova?
>>>
>>> Intanto ringrazio tutti per le risposte :-)
>>>
>>> Alla fine sono riuscito a provare quel programma, ma solo in parte.
>>> Si installa ma poi ho, per mio errore, si chiude in quanto non riconosce
>>> il sistema operativo e quindi non sa dove trovare il DB (che si trova in
>>> un determinato percorso su XP, in un altro su Vista/7/8, in pratica
>>> nella cartella %programdata% ).
>>> :-)
>>>
>>> Ovviamente dovrò fare solo una piccola modifica (spero... :-) )
>>
>> Aggiornamento
>>
>> La piccola modifica è stata fatta e il programma funziona correttamente.
>> Visto che c'ero ho riscritto la funzione che riconosce il sistema
>> operativo rendendola più completa (come versioni) ed efficiente (select
>> case al posto di vari if/elseif etc).
>>
>> Noto però una cosa:
>> Windwso 10 invece di venir riconosciuto come 10.0.10240 viene
>> riconosciuto come 6.2.9200, insomma come se fosse Windows 8
>> https://it.wikipedia.org/wiki/Windows_8  (il numero di versione si legge
>> nella colonna di destra)
>>
>> Da cosa può dipendere?
>>
> Se posso azzardare un'ipotesi, penso che derivi dal fatto che VB6
> compila a 32bit e il sistema invece è a 64bit

No... Questa versione è a 32bit.
E' la Insider Preview che si è aggiornata alla ufficiale... e gira sotto
Virtual Box (sotto Linux). Dato che alla Macchina Virtuale avrei dato
solo 2 GB di RAM, ho scelto di installare la 32bit


Nello stesso PC ho Windows 10 64bit installato come aggiornamento da
Win7... dopo provo li.

Cmq, pensando che fosse qualche problema del Programma, ho fatto un
nuovo programma solo con una finestra, delle Label e il codice per
determinare la versione... stesso problema.

Ho copiato un altro codice (che però usa la stessa libreria, non
indicata nell'esempio)

---

Private Declare Function GetVersionEx Lib "kernel32" Alias
"GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Type OSVERSIONINFO
  dwOSVersionInfoSize As Long       'Dimensioni della struttura
  dwMajorVersion As Long            'indicano la versione del SO (ad
esempio NT 4.0:
  dwMinorVersion As Long            'dwMajorVersion = 4; dwMinorVersion = 0)
  dwBuildNumber As Long             'identifica il codice di revisione
("built code")
  dwPlatformId As Long              'Contiene uno dei seguenti flags che
identifica il tipo di piattaforma ( p.es. Windows 95, Windows NT, etc.)
  szCSDVersion As String * 128      'stinga che contiene informazioni
aggiuntive (come ad esempio la presenza di un Service Pack)
End Type


'Seguono Flags dwPlatformId
Public Const VER_PLATFORM_WIN32s = 0         'Windows 3.x is running,
using the Win32s pseudo-32-bit enhancements.
Public Const VER_PLATFORM_WIN32_WINDOWS = 1  'Windows 95 or 98 is running.
Public Const VER_PLATFORM_WIN32_NT = 2        'Windows NT is running.

---


Non contento ho provato ad usare un altro codice copiato da un sito:

http://stackoverflow.com/questions/4839210/how-can-i-determine-the-windows-version-from-a-vb-6-app

Che però usa ugualmente la stessa libreria e lo stesso tipo di dati
personalizzato OSVERSIONINFO, quindi ho provveduto a rinominare il
secondo metodo mettendo un 2 finale.


Ho zippato la cartella e l'ho condivisa su Dropbox... se qualcuno lo
vuole prendere per fare le verifiche
https://www.dropbox.com/s/xkvsu9oj93i6y5c/VersioneWindows.zip?dl=0

C'è sia il file compilato che il sorgente



-- 
Daniele Pinna  (leva oops. per rispondere)
Utente Skype: dapinna
Sito Web: http://www.dapinna.com
Il Docfa in Pillole:  http://www.ildocfainpillole.it
DAPINNA.COM su Facebook: https://www.facebook.com/dapinnadotcom
Blog - Storie di un Laboratorio di Informatica:
http://storielaboratorioinformatica.wordpress.com
-----
*** Powered by Linux KUbuntu 14.04 LTS "Trusty Tahr" ***

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Windows 10 e programmi scritti in VB6 "Daniele Pinna (Ufficio)" <daniele@oops.dapinna.com> - 2015-07-31 18:50 +0200
  Re: Windows 10 e programmi scritti in VB6 "salclem2" <salclem2@yahoo.it> - 2015-08-01 11:06 +0200
  Re: Windows 10 e programmi scritti in VB6 "buonanotte" <Juve@merda.it> - 2015-08-02 00:37 +0200
    Re: Windows 10 e programmi scritti in VB6 "Daniele Pinna (Ufficio)" <daniele@oops.dapinna.com> - 2015-08-10 20:42 +0200
      Re: Windows 10 e programmi scritti in VB6 Daniele Pinna <daniele@oops.dapinna.com> - 2015-08-20 22:05 +0200
        Re: Windows 10 e programmi scritti in VB6 "salclem2" <salclem2@yahoo.it> - 2015-08-20 23:02 +0200
          Re: Windows 10 e programmi scritti in VB6 Daniele Pinna <daniele@oops.dapinna.com> - 2015-08-21 00:12 +0200
            Re: Windows 10 e programmi scritti in VB6 "salclem2" <salclem2@yahoo.it> - 2015-08-21 00:19 +0200
              Re: Windows 10 e programmi scritti in VB6 Daniele Pinna <daniele@oops.dapinna.com> - 2015-08-21 01:53 +0200
  Re: Windows 10 e programmi scritti in VB6 Al3xI98O <chiedimela@gmail.com> - 2015-08-03 14:55 +0200
    Re: Windows 10 e programmi scritti in VB6 "Daniele Pinna (Ufficio)" <daniele@oops.dapinna.com> - 2015-08-10 20:44 +0200

csiph-web