・VersionInfo を追加。

diff --git a/ExternalBoardManager.pas b/ExternalBoardManager.pas
index f578aae..cf05f2a 100644 (file)
--- a/ExternalBoardManager.pas
+++ b/ExternalBoardManager.pas
@@ -80,6 +80,26 @@ begin
 end;
 
 // *************************************************************************
+// \83v\83\8d\83O\83\89\83\80\96{\91Ì\82Ì\83o\81[\83W\83\87\83\93\82ð\8eæ\93¾\82·\82é
+// *************************************************************************
+procedure VersionInfo(
+       var outAgent            : PChar;        // \83o\81[\83W\83\87\83\93\82ð\88ê\90Ø\8aÜ\82Ü\82È\82¢\8f\83\90\88\82È\96¼\8fÌ
+       var outMajor            : DWORD;        // \83\81\83W\83\83\81[\83o\81[\83W\83\87\83\93
+       var outMinor            : DWORD;        // \83}\83C\83i\81[\83o\81[\83W\83\87\83\93
+       var outRelease  : PChar;        // \83\8a\83\8a\81[\83X\92i\8aK\96¼
+       var outRevision : DWORD         // \83\8a\83r\83W\83\87\83\93\83i\83\93\83o\81[
+); stdcall;
+begin
+
+       outAgent                := CreateResultString( PChar( APP_NAME ) );
+       outMajor                := 1;
+       outMinor                := 0;
+       outRelease      := CreateResultString( PChar( BETA_VERSION_NAME_E ) );
+       outRevision     := BETA_VERSION;
+
+end;
+
+// *************************************************************************
 // \8ew\92è\82µ\82½ URL \82ð\83_\83E\83\93\83\8d\81[\83h\82µ\82Ä\95Ô\82·
 // *************************************************************************
 function InternalDownload(
@@ -651,6 +671,7 @@ end;
 exports
        CreateResultString,
        DisposeResultString,
+       VersionInfo,
        ApplicationFolder,
        PreferencesFolder,
        PreferencesFile,

diff --git a/GikoSystem.pas b/GikoSystem.pas
index b5b9d06..6606081 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -201,6 +201,7 @@ const
        BETA_VERSION_NAME_J = 'ÊÞÀ';
        BETA_VERSION                            = 43;
        BETA_VERSION_BUILD      = '';                           //debug\94Å\82È\82Ç
+       APP_NAME                                                = 'gikoNavi';
 
 implementation
 
@@ -210,7 +211,6 @@ uses
 const
        FOLDER_INDEX_VERSION                                    = '1.01';
        USER_AGENT                                                                              = 'Monazilla';
-       APP_NAME                                                                                        = 'gikoNavi';
        DEFAULT_NGWORD_FILE_NAME : String = 'NGword.txt';
        NGWORDs_DIR_NAME : String               = 'NGwords';
 

diff --git a/res/ExternalBoardPlugIn/PlugInMain.pas b/res/ExternalBoardPlugIn/PlugInMain.pas
index c49e99a..11d3951 100644 (file)
--- a/res/ExternalBoardPlugIn/PlugInMain.pas
+++ b/res/ExternalBoardPlugIn/PlugInMain.pas
@@ -29,6 +29,17 @@ type
        ); stdcall;
 
        // *************************************************************************
+       // \83v\83\8d\83O\83\89\83\80\96{\91Ì\82Ì\83o\81[\83W\83\87\83\93\82ð\8eæ\93¾\82·\82é
+       // *************************************************************************
+       TVersionInfo = procedure(
+               var outAgent            : PChar;        // \83o\81[\83W\83\87\83\93\82ð\88ê\90Ø\8aÜ\82Ü\82È\82¢\8f\83\90\88\82È\96¼\8fÌ
+               var outMajor            : DWORD;        // \83\81\83W\83\83\81[\83o\81[\83W\83\87\83\93
+               var outMinor            : DWORD;        // \83}\83C\83i\81[\83o\81[\83W\83\87\83\93
+               var outRelease  : PChar;        // \83\8a\83\8a\81[\83X\92i\8aK\96¼
+               var outRevision : DWORD         // \83\8a\83r\83W\83\87\83\93\83i\83\93\83o\81[
+       ); stdcall;
+
+       // *************************************************************************
        // InternalDownload
        // \8ew\92è\82µ\82½ URL \82ð\83_\83E\83\93\83\8d\81[\83h\82µ\82Ä\95Ô\82·
        // *************************************************************************
@@ -61,6 +72,7 @@ type
 var
        CreateResultString      : TCreateResultString;
        DisposeResultString     : TDisposeResultString;
+       VersionInfo                                     : TVersionInfo;
        InternalDownload                : TInternalDownload;
        InternalAbon                            : TInternalAbon;
        InternalDat2HTML                : TInternalDat2HTML;
@@ -99,6 +111,10 @@ begin
        DisposeResultString := GetProcAddress( inModule, 'DisposeResultString' );
        if not Assigned( DisposeResultString ) then
                System.ExitCode := 1;
+       // \83o\81[\83W\83\87\83\93\8fî\95ñ
+       VersionInfo := GetProcAddress( inModule, 'VersionInfo' );
+       if not Assigned( VersionInfo ) then
+               System.ExitCode := 1;
        // ===== \82»\82Ì\91¼\95â\8f\95\8aÖ\90\94
        InternalDownload := GetProcAddress( inModule, 'InternalDownload' );
        if not Assigned( InternalDownload ) then