Ofis versiyonu

[master_20]

Merhaba arkadaşlar, yaptığım envanter programında bilgisayarlardaki ofis versiyonlarını öğrenmmem lazım ama bulamadım pc nin tüm özellikleirni alıyourm ama ofis versiyonunu alamdım bir türlü üstadlardan yardım bekliyorum

[pasa_yasar]

Regedit kayıtlarında yok mu

[cinarbil]

iyi günler
Kodları kendinize göre uyarlayın

— delphi registry excel version, word, office —

Use key values:

HKEY_CLASSES_ROOT\Word.Application\CurVer
or
HKEY_CLASSES_ROOT\Word.Document\CurVer

Using OLE like below is slow. Also make sure you kill the COM object after creating it.



older —————————————-

Detect office version.

Kod: Tümünü seç

Uses
   ComObj;

function GetOfficeVersion(): string;
 var
  excel: Variant;
 begin
  try
    excel := CreateOleObject('word.application');
    result := word.Version;
  except
    Result := 'No Word found';
  end;
 end;

or can check registry:

HKEY_CLASSES_ROOT\Excel.Application\CurVer key
will be e.g. 'Excel.Application.9' if Excel 2000

Microsoft Office versions:
•12.0 – Microsoft Office 2007
•14.0 - Microsoft Office 2010

See also www.technitips.com/2012/05/delphi-detect-64-bit-office/

————

procedure TForm1.Button1Click(Sender
: TObject);
var
excel: Variant;
begin
try
excel := CreateOleObject('excel.application');
ShowMessage(excel.Version);
except
ShowMessage('No Excel found');
end;
end;