VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

リンク元へ戻ります。 システム・情報関係のメニュー
1.Windowsのシステムディレクトリのパス名を取得する
2.Windows のバージョンを取得する
3.終了時の情報を保存・読み込み・反映(レジストリ使用・他)
4.Windows を終了・再起動する
5.スクリーンセーバーの起動及び解除
6.タスクバーを自動で隠す・常に手前に表示を設定・取得
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.その他、当サイト内に掲載のシステム・情報に関するサンプル


1.Windowsのシステムディレクトリのパス名を取得する
1.Environ 関数を使っての Windows ディレクトリのパス名を取得
2.API 関数を使っての Windows のシステムディレクトリのパス名を取得
3. 
4. 
5. 
6. 

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows Vista・Windows 7 (32bit) / VB6.0(SP6)
Option :[Option Explicit]
参照設定:                  参照設定方法参照
使用 API:GetWindowsDirectory / GetSystemDirectory
その他 :このサンプルは、 Win32 APIを使用しておりますので、ある程度Win32 API が理解できる方がお使い下さい。
    :
このページのトップへ移動します。 1.Environ 関数を使っての Windows ディレクトリのパス名を取得

Option Explicit   'SampleNo=008  2002.04.17

Private Sub Command1_Click()
  'Windows ディレクトリのパス名を取得するだけなら下記の方が簡単
  Label1.Caption = Environ$("WINDIR")
  '一般的な OS に限定するなら下記でもいいかも
  Label2.Caption = Environ$("WINDIR") & "\system32"
End Sub

Environ 関数では、上記の他色々な環境変数を取得する事ができます。
  Label2.Caption = Environ$("ComSpec")

このページのトップへ移動します。 2.API 関数を使っての Windows のシステムディレクトリのパス名を取得

Option Explicit   'SampleNo=008 WindowsXP VB6.0(SP5) 2002.04.17

'Windowsディレクトリのパス名を取得する(P925)
Private Declare Function GetWindowsDirectory Lib "kernel32" _
  Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
  ByVal nSize As Long) As Long
Private Const MAX_PATH As Long = 260

'Windowsのシステムディレクトリのパス名を取得する(P918)
Private Declare Function GetSystemDirectory Lib "kernel32" _
  Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _
  ByVal nSize As Long) As Long

Private Sub Command1_Click()
  Dim Buf As String * MAX_PATH
  Dim lngLen As Long
  'Windows ディレクトリのパス名を取得する
  lngLen = GetWindowsDirectory(Buf, Len(Buf))
  Label1.Caption = Left$(Buf, lngLen)

  'System ディレクトリのパス名を取得
  lngLen = GetSystemDirectory(Buf, Len(Buf))
  Label2.Caption = Left$(Buf, lngLen)
End Sub

このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
system32 ディレクトリの取得 Windows ディレクトリの取得
system32 フォルダーの取得 Windows フォルダーの取得
環境変数の取得


このページのトップへ移動します。