Index: /trunk/Include/Classes/System/Windows/Forms/Application.ab
===================================================================
--- /trunk/Include/Classes/System/Windows/Forms/Application.ab	(revision 319)
+++ /trunk/Include/Classes/System/Windows/Forms/Application.ab	(revision 319)
@@ -0,0 +1,34 @@
+Namespace System
+Namespace Windows
+Namespace Forms
+
+
+Class Application
+Public
+	/*!
+	@brief	アプリケーションの実行ファイルのパスを取得する。
+	@author	Daisuke Yamamoto
+	@date	2007/08/29
+	@return	アプリケーションの実行ファイルのパス文字列
+	*/
+	Static Function ExecutablePath() As String
+		Dim szModuleFilePath[MAX_PATH] As TCHAR
+		GetModuleFileName( NULL, szModuleFilePath, MAX_PATH )
+		Return New String( szModuleFilePath )
+	End Function
+
+	/*!
+	@brief	アプリケーション起動時のディレクトリパスを取得する。
+	@author	Daisuke Yamamoto
+	@date	2007/08/29
+	@return	アプリケーション起動時のディレクトリパス文字列
+	*/
+	Static Function StartupPath() As String
+		Return System.IO.Path.GetDirectoryName( ExecutablePath )
+	End Function
+End Class
+
+	
+End Namespace
+End Namespace
+End Namespace
Index: /trunk/Include/Classes/System/Windows/Forms/MessageBox.ab
===================================================================
--- /trunk/Include/Classes/System/Windows/Forms/MessageBox.ab	(revision 318)
+++ /trunk/Include/Classes/System/Windows/Forms/MessageBox.ab	(revision 319)
@@ -90,5 +90,5 @@
 
 	Static Function Show(owner As IWin32Window, text As String, caption As String, buttons As MessageBoxButtons, icon As MessageBoxIcon, defaultButtion As MessageBoxDefaultButton, options As MessageBoxOptions) As DialogResult
-		Show = ActiveBasic.Windows.Detail._System_MessageBox(owner.Handle, StrPtr(text), StrPtr(caption), buttons As DWord Or icon As DWord Or defaultButtion As DWord Or options As DWord) As DialogResult
+		'Show = ActiveBasic.Windows.Detail._System_MessageBox(owner.Handle, StrPtr(text), StrPtr(caption), buttons As DWord Or icon As DWord Or defaultButtion As DWord Or options As DWord) As DialogResult
 	End Function
 
Index: /trunk/Include/Classes/System/Windows/Forms/index.ab
===================================================================
--- /trunk/Include/Classes/System/Windows/Forms/index.ab	(revision 318)
+++ /trunk/Include/Classes/System/Windows/Forms/index.ab	(revision 319)
@@ -5,4 +5,5 @@
 
 #require <Classes/System/Windows/Forms/misc.ab>
+#require <Classes/System/Windows/Forms/Application.ab>
 #require <Classes/System/Windows/Forms/Control.ab>
 #require <Classes/System/Windows/Forms/Message.ab>
Index: /trunk/Include/Classes/System/index.ab
===================================================================
--- /trunk/Include/Classes/System/index.ab	(revision 318)
+++ /trunk/Include/Classes/System/index.ab	(revision 319)
@@ -16,2 +16,3 @@
 #require "./Threading/index.ab"
 #require "./Runtime/InteropServices/GCHandle.ab"
+#require "./Windows/Forms/index.ab"