|
Last change
on this file since 332 was 319, checked in by dai, 17 years ago |
|
System.Windows.Forms.Applicationクラスを追加
MessageBox.Showの一つがコンパイルエラーを起こしていたのでコメントアウトしておいた
|
|
File size:
810 bytes
|
| Line | |
|---|
| 1 | Namespace System
|
|---|
| 2 | Namespace Windows
|
|---|
| 3 | Namespace Forms
|
|---|
| 4 |
|
|---|
| 5 |
|
|---|
| 6 | Class Application
|
|---|
| 7 | Public
|
|---|
| 8 | /*!
|
|---|
| 9 | @brief アプリケーションの実行ファイルのパスを取得する。
|
|---|
| 10 | @author Daisuke Yamamoto
|
|---|
| 11 | @date 2007/08/29
|
|---|
| 12 | @return アプリケーションの実行ファイルのパス文字列
|
|---|
| 13 | */
|
|---|
| 14 | Static Function ExecutablePath() As String
|
|---|
| 15 | Dim szModuleFilePath[MAX_PATH] As TCHAR
|
|---|
| 16 | GetModuleFileName( NULL, szModuleFilePath, MAX_PATH )
|
|---|
| 17 | Return New String( szModuleFilePath )
|
|---|
| 18 | End Function
|
|---|
| 19 |
|
|---|
| 20 | /*!
|
|---|
| 21 | @brief アプリケーション起動時のディレクトリパスを取得する。
|
|---|
| 22 | @author Daisuke Yamamoto
|
|---|
| 23 | @date 2007/08/29
|
|---|
| 24 | @return アプリケーション起動時のディレクトリパス文字列
|
|---|
| 25 | */
|
|---|
| 26 | Static Function StartupPath() As String
|
|---|
| 27 | Return System.IO.Path.GetDirectoryName( ExecutablePath )
|
|---|
| 28 | End Function
|
|---|
| 29 | End Class
|
|---|
| 30 |
|
|---|
| 31 |
|
|---|
| 32 | End Namespace
|
|---|
| 33 | End Namespace
|
|---|
| 34 | End Namespace
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
