Olimpo Informatico

[mozart2]

La mia necessità è quella, dato un computer con su windows XP, di poter capire quali programmi sono installati sul sistema e salvare su un file di testo il nome dei programmi e relativa versione.

Il linguaggio che sto adoperando è il pascal (utilizzando l'IDE lazarus), ma penso che la domanda possa essere interessante anche se volessi utilizzare altri linguaggi.

Il modo che avrei trovato per fare questo elenco sarebbe quello di sfruttare il resgistro di windows con un pseudo-codice analogo al seguente:

Reg := TRegistry.Create(KEY_READ);
Reg.RootKey := HKEY_LOCAL_MACHINE;
AssignFile(prova,'prova.txt');
reset(repository); //accede al file

while in HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\
do
nome:=Reg.Readstring(DisplayName);
versione:=Reg.Readstring(DisplayVersion);
writeln(prova, nome);
writeln(prova,versione)
end do

la domanda è: come faccio a controllare tutte le voci in Uninstall? (suppongo siano quelle che controllare windows per la schermata aggiungi/rimuovi) ad esempio VLC crea la voce VLC, GIMP la voce WinGimp-2.0_is1, lazarus crea Lazarus_is1 e via dicendo, come faccio a scorrerle tutte?
Se volessi darli a mano dovrei (mi sembra) dare:
Reg.OpenKeyReadOnly(SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\VLC)
nome:=Reg.Readstring(DisplayName);
versione:=Reg.Readstring(DisplayVersion);
writeln(prova, nome);
writeln(prova,versione)
Reg.OpenKeyReadOnly(SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\WinGimp-2.0_is1)
nome:=Reg.Readstring(DisplayName);
versione:=Reg.Readstring(DisplayVersion);
writeln(prova, nome);
writeln(prova,versione)

e via dicendo, il fatto che io non sappia a priori i nomi di tutte le cartelle dentro a version fa si che io non sappia come comportarmi.

Spero che ci sia qualcuno in grado di darmi una mano!

Ovviamente se qualcuno conosce un altro modo (usando il pascal!) per ottenere un elenco dei programmi installati su windows è il benvenuto per darmi consigli!

[SverX]

cercando con Google vedo che dovrai creare una lista di stringhe e riempirla con i valori delle sottochiavi usando la funzione GetKeyNames() ...

Se cerchi GetKeyNames su Google trovi abbastanza info direi

[mozart2]

Ciao, grazie per l'aiuto

era esattamente ciò che mi seriva!

edit:
posso, gia che ci sono, appendere una seconda domanda inerente?

Molti programmi nella stringa DisplayName riportano anche il numero di versione, ad esempio:
PeaZip 4.2
LibreOffice 3.4
Mozilla Firefox 8.0.1 (x86 it)
MegaGlest v3.5.2

vorrei in qualche modo rimuovere il numero di versione dal nome, avere quindi in output:
PeaZip
LibreOffice
Mozilla Firefox
MegaGlest

da molti programmi basta togliere le cifre alla fine separate da uno spazio (es: peazip, LibreOffice), per altri anche le lettere attacate alla cifra alla fine (es: megaglest) e separati dal resto da uno spazio, mentre firefox è un casino visto che contiene anche le parentesti...

quindi in generale devo fare qualcosa tipo (togliendo firefox):

[SverX]

potresti provare localizzando la posizione della prima cifra nella stringa, e poi facendo una ricerca per l'ultimo spazio precedente (minore) la posizione della prima cifra. Poi tagli tutto da questo ultimo spazio in poi...

[mozart2]

ok, grazie mille per i consigli