Articles   Members Online:
-Article/Tip Search
-News Group Search over 21 Million news group articles.
-Delphi/Pascal
-CBuilder/C++
-C#Builder/C#
-JBuilder/Java
-Kylix
Member Area
-Home
-Account Center
-Top 10 NEW!!
-Submit Article/Tip
-Forums Upgraded!!
-My Articles
-Edit Information
-Login/Logout
-Become a Member
-Why sign up!
-Newsletter
-Chat Online!
-Indexes NEW!!
Employment
-Build your resume
-Find a job
-Post a job
-Resume Search
Contacts
-Contacts
-Feedbacks
-Link to us
-Privacy/Disclaimer
Embarcadero
Visit Embarcadero
Embarcadero Community
JEDI
Links
How to get the version number of MS-Word Turn on/off line numbers in source code. Switch to Orginial background IDE or DSP color Comment or reply to this aritlce/tip for discussion. Bookmark this article to my favorite article(s). Print this article
Get the version of MS-Word. 03-Jun-04
Category
MS-Office
Language
CBuilder All Versions
Views
249
User Rating
No Votes
# Votes
0
Replies
0
Publisher:
Darley, F. Joe
Reference URL:
			1   
2   //---------------------------------------------------------------------------
3   
4   #include <vcl.h>
5   #include <Registry.hpp>
6   #pragma hdrstop
7   
8   #include "Unit1.h"
9   //---------------------------------------------------------------------------
10  #pragma package(smart_init)
11  #pragma resource "*.dfm"
12  TForm1 *Form1;
13  //---------------------------------------------------------------------------
14  __fastcall TForm1::TForm1(TComponent* Owner)
15          : TForm(Owner)
16  {
17  }
18  //---------------------------------------------------------------------------
19  
20  AnsiString GetMSWordVersion(void){
21  AnsiString sVersionStr;
22  char cVer;
23      TRegistry *Reg = new TRegistry();
24      Reg->RootKey=HKEY_CLASSES_ROOT;
25      if (Reg->KeyExists("Word.Application\\CurVer")){
26      if (Reg->OpenKey("Word.Application\\CurVer",false)){
27      sVersionStr= Reg->ReadString("");
28      sVersionStr= sVersionStr.SubString(LastDelimiter(".", sVersionStr)+1,4);
29     if (sVersionStr == "7"){
30       sVersionStr ="MS Word 95";
31      }
32     else if (sVersionStr == "8"){
33     sVersionStr ="MS Word 97";
34     }
35     else if (sVersionStr == "9"){
36     sVersionStr ="MS Word 2000";
37     }
38     else if (sVersionStr == "10"){
39     sVersionStr ="MS Word 2002/XP";
40     }
41     else if (sVersionStr == "11"){
42      sVersionStr ="MS Word 2003/XP";
43     }
44     else {
45     sVersionStr ="UNKNOWN!";
46     }
47       }
48      }
49      else{
50      sVersionStr="NOT Found!";
51      }
52    Reg->Free();
53   return sVersionStr;
54  }
55  
56  
57  
58  void __fastcall TForm1::Button1Click(TObject *Sender)
59  {
60  ShowMessage(GetMSWordVersion());
61  }
62  //---------------------------------------------------------------------------
63  


			
Vote: How useful do you find this Article/Tip?
Bad Excellent
1 2 3 4 5 6 7 8 9 10

 

Advertisement
Share this page
Advertisement
Download from Google

Copyright © Mendozi Enterprises LLC