ofis versiyonu

[mrmarman]

Denedin mi derken, meraktan sordum. Farklı windows ve office versiyonlarında sonuç nedir diyerekten. Yoksa müşteri veli nimettir, memnuniyeti esastır. Burada müşteri sensin, ne istersen onu kullan

[master_20]

Tamamfir bu sekikde calisti hepinize Teşekkürler arkadaslar.

[SimaWB]

Tamamfir bu sekikde calisti hepinize Teşekkürler arkadaslar.

Hangi şekilde?
Keşke daha açıklayıcı bilgi verseniz de sizden sonra birilerinin de işine yarasa

[master_20]

wmi sorgularıyla ofis veriyonlarını stringliste aktardım işime yarayan ofis versiyonlarını içerisinden seçerek aldırdım. servis applicationında ise CoInitialize CoUninitialize bunları procedure başına ve sonuna kayınca oldu, ayrıca yaptığım iş bilgisayarın donanımsal ve yazılımsal envanterini toplayarak netwrokteki bir sunucuya aktarıyor, bu konuda ihtiyacı olanlara destek olaiblirim elimden geldiği kadarıyla

[SimaWB]

[sabanakman]

Registry ile de denedin mi ? Yoksa sadece wmi ile mi denedin ?

Wmi ile sorgulayınca 80 saniye süren sorgulamadan aşağıdaki sonuçları aldım

Kod: Tümünü seç

Name    Microsoft Office Enterprise 2007 - Version 12.0.6612.1000
Name    Microsoft Office Excel MUI (Turkish) 2007 - Version 12.0.6612.1000

fakat registry ile win8.1 Single Language ile hem yönetici olarak çalıştır dediğimde hem de normal çalıştırdığımda "Office Version malesef bulunamadı..." mesajı geldi. Hatta sistemin IsWOW64 kontrolünü otomatik değil, elle ayarlayarak da tek tek denediğim halde versiyonu bulamadı. Sanırım

Kod: Tümünü seç

if Reg.OpenKey('\SOFTWARE\Microsoft\Office\'+strExcelPath + '.0\Registration', False) then

şartı "Registration" anahtarı sistemimde bulunmadığından çalışmıyor.

[mrmarman]

Şaban hocam sağolasın.

[master_20]

Arkadaşlar tekrar merhaba, wmi ile ofis versiyon bilgisini alabiliyordum taa ki ofis 2013 "right click" diye sonuç döndürene kadar yani wmi sorgusunu çalıştırdığımda ofis 2013 olan pc ler de sadece right click diye birşey geliyor algoritmayı değiştirmem lazım rregeditten unistall key ini okumayı düşündüm ancak ofis in olduğu keyleri okuyamıyor, biriniz deneyebilir mi acaa nerde hata allıyorum

http://www.delphitricks.com/source-code ... puter.html

[sabanakman]

Sanırım sorun 32-64 registry kayıtlarının farklı erişimlerle elde edilmesinden olabilir. Zira

Reg := TRegistry.Create(KEY_READ or KEY_WOW64_32KEY);

satırı ile iki erişimi de denediğimde, KEY_WOW64_32KEY ile eriştiğim liste ile KEY_WOW64_64KEY ile eriştiğim liste birbirinden farklı gelmektedir. Galiba her iki erişimi de ayrı ayrı yapıp liste almakta fayda var.