From: yoffy <yoffy>
Date: Wed, 5 Nov 2003 09:18:51 +0000 (+0000)
Subject: ・VersionInfo を追加。
X-Git-Tag: v1_64_1_820~1786
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=5f8d4c8d7c1875d18b06dacb877c9fe9d22349b9;p=gikonavigoeson%2Fgikonavi.git

・VersionInfo を追加。
---

diff --git a/ExternalBoardManager.pas b/ExternalBoardManager.pas
index f578aae..cf05f2a 100644
--- a/ExternalBoardManager.pas
+++ b/ExternalBoardManager.pas
@@ -80,6 +80,26 @@ begin
 end;
 
 // *************************************************************************
+// ƒvƒƒOƒ‰ƒ€–{‘̂̃o[ƒWƒ‡ƒ“‚ðŽæ“¾‚·‚é
+// *************************************************************************
+procedure VersionInfo(
+	var outAgent		: PChar;	// ƒo[ƒWƒ‡ƒ“‚ðˆêØŠÜ‚Ü‚È‚¢ƒˆ‚È–¼Ì
+	var outMajor		: DWORD;	// ƒƒWƒƒ[ƒo[ƒWƒ‡ƒ“
+	var outMinor		: DWORD;	// ƒ}ƒCƒi[ƒo[ƒWƒ‡ƒ“
+	var outRelease	: PChar;	// ƒŠƒŠ[ƒX’iŠK–¼
+	var outRevision	: DWORD		// ƒŠƒrƒWƒ‡ƒ“ƒiƒ“ƒo[
+); stdcall;
+begin
+
+	outAgent		:= CreateResultString( PChar( APP_NAME ) );
+	outMajor		:= 1;
+	outMinor		:= 0;
+	outRelease	:= CreateResultString( PChar( BETA_VERSION_NAME_E ) );
+	outRevision	:= BETA_VERSION;
+
+end;
+
+// *************************************************************************
 // Žw’肵‚½ URL ‚ðƒ_ƒEƒ“ƒ[ƒh‚µ‚Ä•Ô‚·
 // *************************************************************************
 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
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -201,6 +201,7 @@ const
 	BETA_VERSION_NAME_J = 'ÊÞÀ';
 	BETA_VERSION				= 43;
 	BETA_VERSION_BUILD	= '';				//debug”Å‚È‚Ç
+	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
--- a/res/ExternalBoardPlugIn/PlugInMain.pas
+++ b/res/ExternalBoardPlugIn/PlugInMain.pas
@@ -29,6 +29,17 @@ type
 	); stdcall;
 
 	// *************************************************************************
+	// ƒvƒƒOƒ‰ƒ€–{‘̂̃o[ƒWƒ‡ƒ“‚ðŽæ“¾‚·‚é
+	// *************************************************************************
+	TVersionInfo = procedure(
+		var outAgent		: PChar;	// ƒo[ƒWƒ‡ƒ“‚ðˆêØŠÜ‚Ü‚È‚¢ƒˆ‚È–¼Ì
+		var outMajor		: DWORD;	// ƒƒWƒƒ[ƒo[ƒWƒ‡ƒ“
+		var outMinor		: DWORD;	// ƒ}ƒCƒi[ƒo[ƒWƒ‡ƒ“
+		var outRelease	: PChar;	// ƒŠƒŠ[ƒX’iŠK–¼
+		var outRevision	: DWORD		// ƒŠƒrƒWƒ‡ƒ“ƒiƒ“ƒo[
+	); stdcall;
+
+	// *************************************************************************
 	// InternalDownload
 	// Žw’肵‚½ URL ‚ðƒ_ƒEƒ“ƒ[ƒh‚µ‚Ä•Ô‚·
 	// *************************************************************************
@@ -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;
+	// ƒo[ƒWƒ‡ƒ“î•ñ
+	VersionInfo := GetProcAddress( inModule, 'VersionInfo' );
+	if not Assigned( VersionInfo ) then
+		System.ExitCode := 1;
 	// ===== ‚»‚Ì‘¼•â•ŠÖ”
 	InternalDownload := GetProcAddress( inModule, 'InternalDownload' );
 	if not Assigned( InternalDownload ) then