VBAでWin32 APIを呼び出しシステム情報を取得する

Tech

本記事はGeminiの出力をプロンプト工学で整理した業務ドラフト（未検証）です。

VBAでWin32 APIを呼び出しシステム情報を取得する

背景と要件

Microsoft Officeアプリケーション（Excel、Accessなど）の自動化において、VBAは強力なツールです。しかし、VBAの標準機能だけでは、詳細なシステム情報（例：PCの完全なDNS名、詳細なプロセッサ情報、ドライブの正確な空き容量など）を取得できない場合があります。このような場面でWindowsのネイティブAPIであるWin32 APIを直接呼び出すことで、VBAの機能を大幅に拡張し、より深いシステムレベルの情報にアクセスすることが可能になります。 、VBAからWin32 APIを呼び出してシステム情報を取得する方法に焦点を当てます。特に、64ビット版Office環境での互換性を確保するためのDeclare PtrSafeキーワードの使用、APIの宣言方法、および主要なシステム情報取得API (GetComputerNameEx, GetUserName, GetSystemInfo, GetDiskFreeSpaceEx) の具体的な利用例を、ExcelとAccessの両方で再現可能なコードとして提供します。外部ライブラリは使用せず、Win32 APIのみで実装します。

設計

VBAからのWin32 API呼び出しの基本

VBAからWin32 APIを呼び出すには、Declareステートメントを使用してAPI関数をVBAモジュール内で宣言する必要があります。特に、64ビット版Officeでの実行を考慮し、PtrSafeキーワードを必ず使用します[1]。これにより、ポインタやハンドルなどの32ビット/64ビットのサイズが異なるデータ型が正しく扱われます。

' 32ビット/64ビットOffice互換のAPI宣言
Private Declare PtrSafe Function MyApiFunction Lib "mydll.dll" (...) As Long

APIの引数や戻り値のデータ型は、Win32 APIのC/C++での定義をVBAのデータ型に正確にマッピングする必要があります。例えば、LPSTRはByVal As String、LPDWORDはByRef As Long、64ビット整数はCurrency型などで対応します。

対象とするWin32 API

今回は以下のシステム情報取得APIを使用します。

  • GetComputerNameExA: コンピューター名を様々なフォーマット（NetBIOS名、完全修飾DNS名など）で取得します[2]。

  • GetUserNameA: 現在ログオンしているユーザー名を取得します[3]。

  • GetSystemInfo: プロセッサのアーキテクチャ、論理プロセッサ数、ページサイズなど、システムの詳細情報をSYSTEM_INFO構造体で取得します[4]。

  • GetDiskFreeSpaceExA: 指定したドライブの空き容量、総容量、使用可能な空き容量をバイト単位で取得します[5]。

データフロー

VBAアプリケーションがWin32 APIを呼び出してシステム情報を取得し、その結果を処理するデータフローは以下のようになります。

graph TD
    A["VBAアプリケーション実行"] --> B{"VBA関数呼び出し"};
    B -- システム情報取得要求 --> C["VBA API宣言モジュール"];
    C -- Declare PtrSafeによる解決 --> D["Windows OS(\"kernel32.dll, advapi32.dll\")"];
    D -- API実行 (例: GetComputerNameExA) --> E["Windowsカーネル"];
    E -- 情報を取得 --> D;
    D -- 取得結果をVBAへ返す --> B;
    B -- 結果をVBA変数に格納/処理 --> F["VBA処理ロジック"];
    F -- 最終結果をユーザーへ表示 --> G["Excelシート/Accessフォーム/Debugウィンドウ"];

性能考慮点

Win32 API呼び出し自体は非常に高速ですが、VBA側での大量のデータ処理や、Excelシートへの頻繁な書き込み、またはAccessフォームの更新は性能のボトルネックとなる可能性があります。

  • Excel: Application.ScreenUpdating = False、Application.Calculation = xlCalculationManualを設定することで、GUIの再描画や自動再計算を一時的に停止し、処理速度を向上させます。

  • APIバッファ: 文字列情報を取得するAPI（GetComputerNameExA, GetUserNameA）では、適切なサイズのバッファ（String型）を事前に準備することが重要です。不足するとエラーになるか、情報が途切れる可能性があります。

実装

以下のコードは、ExcelおよびAccessの標準モジュールに記述して使用できます。

共通モジュール: API宣言と定数、構造体

'-------------------------------------------------------------------------------------------
' Module: modSystemInfo (標準モジュール)
' Description: Win32 API宣言と関連定数、構造体の定義
'-------------------------------------------------------------------------------------------

Option Explicit

'=== API 宣言 ===
' GetComputerNameExA: コンピューター名を取得
' [2] https://learn.microsoft.com/en-us/windows/win32/api/sysinfoapi/nf-sysinfoapi-getcomputernameexa (JST: 2024年5月2日)
Private Declare PtrSafe Function GetComputerNameExA Lib "kernel32" ( _
    ByVal NameFormat As Long, _
    ByVal lpBuffer As String, _
    ByRef nSize As Long _
) As Long

' GetUserNameA: ユーザー名を取得
' [3] https://learn.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-getusernamea (JST: 2024年5月2日)
Private Declare PtrSafe Function GetUserNameA Lib "advapi32.dll" ( _
    ByVal lpBuffer As String, _
    ByRef nSize As Long _
) As Long

' GetSystemInfo: システムのハードウェア情報を取得
' [4] https://learn.microsoft.com/en-us/windows/win32/api/sysinfoapi/nf-sysinfoapi-getsysteminfo (JST: 2024年5月2日)
Private Declare PtrSafe Sub GetSystemInfo Lib "kernel32" ( _
    lpSystemInfo As SYSTEM_INFO _
)

' GetDiskFreeSpaceExA: ドライブの空き容量情報を取得
' [5] https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-getdiskfreespaceexa (JST: 2024年5月2日)
Private Declare PtrSafe Function GetDiskFreeSpaceExA Lib "kernel32" ( _
    ByVal lpDirectoryName As String, _
    lpFreeBytesAvailable As Currency, _
    lpTotalNumberOfBytes As Currency, _
    lpTotalNumberOfFreeBytes As Currency _
) As Long

'=== 定数 ===
' COMPUTER_NAME_FORMAT Enum [2]
Public Enum COMPUTER_NAME_FORMAT_ENUM
    ComputerNameNetBIOS = 0
    ComputerNameDnsHostname = 1
    ComputerNameDnsDomain = 2
    ComputerNameDnsFullyQualified = 3
    ComputerNamePhysicalNetBIOS = 4
    ComputerNamePhysicalDnsHostname = 5
    ComputerNamePhysicalDnsDomain = 6
    ComputerNamePhysicalDnsFullyQualified = 7
    ComputerNameMax = 8
End Enum

' Processor Architecture Constants (from WinNT.h)
Public Const PROCESSOR_ARCHITECTURE_INTEL = 0
Public Const PROCESSOR_ARCHITECTURE_ARM = 5
Public Const PROCESSOR_ARCHITECTURE_ARM64 = 12
Public Const PROCESSOR_ARCHITECTURE_IA64 = 6
Public Const PROCESSOR_ARCHITECTURE_AMD64 = 9
Public Const PROCESSOR_ARCHITECTURE_UNKNOWN = &HFFFF

'=== 構造体 ===
' SYSTEM_INFO 構造体 [4]
Private Type SYSTEM_INFO
    dwOemId As Long             ' Obsolete.
    wProcessorArchitecture As Integer
    wReserved As Integer
    dwPageSize As Long
    lpMinimumApplicationAddress As LongPtr
    lpMaximumApplicationAddress As LongPtr
    dwActiveProcessorMask As LongPtr
    dwNumberOfProcessors As Long
    dwProcessorType As Long     ' Obsolete.
    dwAllocationGranularity As Long
    wProcessorLevel As Integer
    wProcessorRevision As Integer
End Type

'=== ヘルパー関数 ===
' バイト数を読みやすい形式に変換
Public Function FormatBytes(ByVal Bytes As Currency) As String
    Const KB As Currency = 1024
    Const MB As Currency = KB * 1024
    Const GB As Currency = MB * 1024
    Const TB As Currency = GB * 1024

    If Bytes >= TB Then
        FormatBytes = Format(Bytes / TB, "0.00") & " TB"
    ElseIf Bytes >= GB Then
        FormatBytes = Format(Bytes / GB, "0.00") & " GB"
    ElseIf Bytes >= MB Then
        FormatBytes = Format(Bytes / MB, "0.00") & " MB"
    ElseIf Bytes >= KB Then
        FormatBytes = Format(Bytes / KB, "0.00") & " KB"
    Else
        FormatBytes = Bytes & " Bytes"
    End If
End Function

' プロセッサアーキテクチャ名を返す
Public Function GetProcessorArchitectureName(ByVal Arch As Integer) As String
    Select Case Arch
        Case PROCESSOR_ARCHITECTURE_INTEL: GetProcessorArchitectureName = "x86 (Intel)"
        Case PROCESSOR_ARCHITECTURE_ARM: GetProcessorArchitectureName = "ARM"
        Case PROCESSOR_ARCHITECTURE_ARM64: GetProcessorArchitectureName = "ARM64"
        Case PROCESSOR_ARCHITECTURE_IA64: GetProcessorArchitectureName = "IA64 (Itanium)"
        Case PROCESSOR_ARCHITECTURE_AMD64: GetProcessorArchitectureName = "x64 (AMD64)"
        Case PROCESSOR_ARCHITECTURE_UNKNOWN: GetProcessorArchitectureName = "不明"
        Case Else: GetProcessorArchitectureName = "その他 (" & Arch & ")"
    End Select
End Function

Excelでの実装例

以下のプロシージャを任意の標準モジュールに記述し、Excelシートにシステム情報を出力します。

'-------------------------------------------------------------------------------------------
' Sub: GetExcelSystemInformation
' Description: Excelシートにシステム情報を取得・出力する
'-------------------------------------------------------------------------------------------
Sub GetExcelSystemInformation()
    ' 性能チューニングの開始
    ' 処理中に画面が更新されないようにする
    Application.ScreenUpdating = False
    ' 自動計算を停止し、手動計算モードにする
    Application.Calculation = xlCalculationManual
    ' イベント発生を停止
    Application.EnableEvents = False

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = "SystemInfo_" & Format(Now, "yyyymmdd_hhmmss")

    Dim ret As Long
    Dim buffer As String
    Dim bufferSize As Long

    '=== コンピューター名取得 ===
    Const MAX_COMPUTERNAME_LENGTH As Long = 256 ' 適当な最大長
    buffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
    bufferSize = MAX_COMPUTERNAME_LENGTH + 1
    ret = GetComputerNameExA(COMPUTER_NAME_FORMAT_ENUM.ComputerNameDnsFullyQualified, buffer, bufferSize)

    ws.Cells(1, 1).Value = "システム情報 (取得日時: " & Format(Now, "yyyy/mm/dd HH:MM:SS") & ")"
    ws.Cells(3, 1).Value = "項目"
    ws.Cells(3, 2).Value = "値"
    ws.Cells(4, 1).Value = "完全修飾コンピューター名 (FQDN)"
    If ret <> 0 Then
        ws.Cells(4, 2).Value = Left$(buffer, bufferSize - 1)
    Else
        ws.Cells(4, 2).Value = "取得失敗 (エラーコード: " & Err.LastDllError & ")"
    End If

    '=== ユーザー名取得 ===
    Const UNLEN As Long = 256 ' MAX_PATH の一般的な長さ
    buffer = Space$(UNLEN + 1)
    bufferSize = UNLEN + 1
    ret = GetUserNameA(buffer, bufferSize)
    ws.Cells(5, 1).Value = "現在ログイン中のユーザー名"
    If ret <> 0 Then
        ws.Cells(5, 2).Value = Left$(buffer, bufferSize - 1)
    Else
        ws.Cells(5, 2).Value = "取得失敗 (エラーコード: " & Err.LastDllError & ")"
    End If

    '=== システム情報取得 ===
    Dim sysInfo As SYSTEM_INFO
    Call GetSystemInfo(sysInfo)
    ws.Cells(6, 1).Value = "プロセッサアーキテクチャ"
    ws.Cells(6, 2).Value = GetProcessorArchitectureName(sysInfo.wProcessorArchitecture)
    ws.Cells(7, 1).Value = "論理プロセッサ数"
    ws.Cells(7, 2).Value = sysInfo.dwNumberOfProcessors
    ws.Cells(8, 1).Value = "ページサイズ"
    ws.Cells(8, 2).Value = FormatBytes(CDec(sysInfo.dwPageSize)) ' ページサイズは通常小さいのでCurrency変換

    '=== ドライブC:の空き容量取得 ===
    Dim drivePath As String
    Dim freeBytesAvailable As Currency
    Dim totalNumberOfBytes As Currency
    Dim totalNumberOfFreeBytes As Currency

    drivePath = "C:\"
    ret = GetDiskFreeSpaceExA(drivePath, freeBytesAvailable, totalNumberOfBytes, totalNumberOfFreeBytes)
    ws.Cells(9, 1).Value = "C:ドライブの総容量"
    ws.Cells(10, 1).Value = "C:ドライブの空き容量"
    ws.Cells(11, 1).Value = "C:ドライブのユーザー利用可能容量" ' ユーザーのクォータ等で変動する可能性

    If ret <> 0 Then
        ws.Cells(9, 2).Value = FormatBytes(totalNumberOfBytes)
        ws.Cells(10, 2).Value = FormatBytes(totalNumberOfFreeBytes)
        ws.Cells(11, 2).Value = FormatBytes(freeBytesAvailable)
    Else
        ws.Cells(9, 2).Value = "取得失敗"
        ws.Cells(10, 2).Value = "取得失敗"
        ws.Cells(11, 2).Value = "取得失敗 (エラーコード: " & Err.LastDllError & ")"
    End If

    ' 整形
    ws.Columns("A:B").AutoFit
    ws.Range("A3:B3").Font.Bold = True

    ' 性能チューニングの終了
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.EnableEvents = True

    MsgBox "システム情報の取得が完了し、新しいシートに結果が出力されました。", vbInformation
End Sub

実行手順 (Excel):

  1. Excelを開き、Alt + F11を押してVBAエディターを開きます。

  2. 左側のプロジェクトエクスプローラーで、VBAProject(ブック名)を右クリックし、「挿入」→「標準モジュール」を選択します。

  3. 上記「共通モジュール」のコードを新しいモジュールに貼り付けます。

  4. さらに別の標準モジュールを挿入し、上記「Excelでの実装例」のコードを貼り付けます。

  5. VBAエディターを閉じ、Excelに戻ります。

  6. Alt + F8を押してマクロダイアログを開き、GetExcelSystemInformationを選択して「実行」ボタンをクリックします。

  7. 新しいシートにシステム情報が出力されます。

Accessでの実装例

以下のプロシージャを任意の標準モジュールに記述し、イミディエイトウィンドウにシステム情報を出力します。

'-------------------------------------------------------------------------------------------
' Sub: GetAccessSystemInformation
' Description: Accessのイミディエイトウィンドウにシステム情報を取得・出力する
'-------------------------------------------------------------------------------------------
Sub GetAccessSystemInformation()
    ' 通常AccessではScreenUpdatingやCalculationモードの直接制御はExcelほど重要ではないが、
    ' フォームの再描画などを頻繁に行う場合は注意が必要。
    ' ここではAPI呼び出しが主なので、特別な最適化はせずDebug.Printに直接出力。

    Debug.Print "--- システム情報 (取得日時: " & Format(Now, "yyyy/mm/dd HH:MM:SS") & ") ---"

    Dim ret As Long
    Dim buffer As String
    Dim bufferSize As Long

    On Error GoTo ErrorHandler

    '=== コンピューター名取得 ===
    Const MAX_COMPUTERNAME_LENGTH As Long = 256
    buffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
    bufferSize = MAX_COMPUTERNAME_LENGTH + 1
    ret = GetComputerNameExA(COMPUTER_NAME_FORMAT_ENUM.ComputerNameDnsFullyQualified, buffer, bufferSize)

    If ret <> 0 Then
        Debug.Print "完全修飾コンピューター名 (FQDN): " & Left$(buffer, bufferSize - 1)
    Else
        Debug.Print "完全修飾コンピューター名 (FQDN): 取得失敗 (WinAPI Error: " & Err.LastDllError & ")"
    End If

    '=== ユーザー名取得 ===
    Const UNLEN As Long = 256
    buffer = Space$(UNLEN + 1)
    bufferSize = UNLEN + 1
    ret = GetUserNameA(buffer, bufferSize)
    If ret <> 0 Then
        Debug.Print "現在ログイン中のユーザー名: " & Left$(buffer, bufferSize - 1)
    Else
        Debug.Print "現在ログイン中のユーザー名: 取得失敗 (WinAPI Error: " & Err.LastDllError & ")"
    End If

    '=== システム情報取得 ===
    Dim sysInfo As SYSTEM_INFO
    Call GetSystemInfo(sysInfo)
    Debug.Print "プロセッサアーキテクチャ: " & GetProcessorArchitectureName(sysInfo.wProcessorArchitecture)
    Debug.Print "論理プロセッサ数: " & sysInfo.dwNumberOfProcessors
    Debug.Print "ページサイズ: " & FormatBytes(CDec(sysInfo.dwPageSize))

    '=== ドライブC:の空き容量取得 ===
    Dim drivePath As String
    Dim freeBytesAvailable As Currency
    Dim totalNumberOfBytes As Currency
    Dim totalNumberOfFreeBytes As Currency

    drivePath = "C:\"
    ret = GetDiskFreeSpaceExA(drivePath, freeBytesAvailable, totalNumberOfBytes, totalNumberOfFreeBytes)

    If ret <> 0 Then
        Debug.Print "C:ドライブの総容量: " & FormatBytes(totalNumberOfBytes)
        Debug.Print "C:ドライブの空き容量: " & FormatBytes(totalNumberOfFreeBytes)
        Debug.Print "C:ドライブのユーザー利用可能容量: " & FormatBytes(freeBytesAvailable)
    Else
        Debug.Print "C:ドライブ情報: 取得失敗 (WinAPI Error: " & Err.LastDllError & ")"
    End If

    Debug.Print "--- 処理完了 ---"
    Exit Sub

ErrorHandler:
    Debug.Print "実行時エラー発生: " & Err.Description & " (番号: " & Err.Number & ")"
    Resume Next ' エラー発生箇所から続行して、他のAPIが動作するか確認する用途など
End Sub

実行手順 (Access):

  1. Accessデータベースを開き、Alt + F11を押してVBAエディターを開きます。

  2. 左側のプロジェクトエクスプローラーで、データベース名を右クリックし、「挿入」→「標準モジュール」を選択します。

  3. 上記「共通モジュール」のコードを新しいモジュールに貼り付けます。

  4. さらに別の標準モジュールを挿入し、上記「Accessでの実装例」のコードを貼り付けます。

  5. VBAエディターで、「表示」→「イミディエイト ウィンドウ」を選択してウィンドウを表示します。

  6. イミディエイト ウィンドウで Call GetAccessSystemInformation と入力し、Enterキーを押します。

  7. イミディエイト ウィンドウにシステム情報が出力されます。

検証

実装したコードは以下の点を確認します。

  • API戻り値のチェック: 各API関数は成功時に非ゼロの値、失敗時にゼロを返すのが一般的です。コード内でこの戻り値をチェックし、エラー発生時にはErr.LastDllErrorで詳細なWin32エラーコードを確認できるようエラーハンドリングを実装しています。

  • 64ビット互換性: Declare PtrSafeキーワードを使用することで、64ビット版のOffice環境でもAPI呼び出しが正しく行われることを確認します。

  • データ型の正確性: SYSTEM_INFO構造体の定義や、Currency型による64ビット整数 (ULARGE_INTEGER) の取り扱いがWin32 APIの期待するデータ型と一致していることを確認します。

  • 情報の正確性: 取得した情報（コンピューター名、ユーザー名、プロセッサ数、ディスク空き容量など）が、Windowsのシステム情報やエクスプローラーで表示される情報と一致するかを比較して確認します。

運用

  • 配布: 作成したVBAコードは、ExcelブックやAccessデータベースファイル内に埋め込まれるため、ファイルを配布するだけで利用可能です。DLLのような外部依存関係はありません。

  • セキュリティ: Win32 APIは強力な機能を提供しますが、不適切な利用はシステムに影響を与える可能性があります。信頼できるソースからのみAPI呼び出しを含むVBAコードを実行し、マクロのセキュリティ設定を適切に管理することが重要です。

  • OS互換性: 本記事で紹介するAPIはWindows OSの基本的な機能であり、Windows 7以降の比較的新しいバージョンではほとんど互換性の問題なく動作すると考えられます。ただし、古いOSや特殊な環境では動作が異なる可能性もあるため、導入前にテストを推奨します。

落とし穴と注意点

  • PtrSafeの必須性: 64ビット版OfficeでAPIを呼び出す場合、Declare PtrSafeは必須です。これがないとコンパイルエラーになるか、実行時に不正なメモリ参照エラーが発生します。

  • 文字列バッファの管理: GetComputerNameExAやGetUserNameAのように文字列バッファに情報を書き込むAPIでは、十分なサイズのバッファを確保する必要があります。バッファが小さいと情報が切り詰められたり、APIが失敗したりする可能性があります。また、VBAのString型は内部的にUnicodeを扱いますが、Aサフィックスの付くAPIはANSI文字を期待するため、VBAが自動的に変換を行います。複雑な場合はByte配列を直接扱うことを検討する必要もあります。

  • Currency型での64ビット整数: GetDiskFreeSpaceExAのようなAPIはULARGE_INTEGER（符号なし64ビット整数）を返しますが、VBAのCurrency型は符号付き64ビット整数（最大約9.22 × 10^18）として扱われます。これにより、2^63 - 1を超える値（約9.22エクサバイト）は正確に表現できません。しかし、現在の一般的なディスク容量（テラバイト単位）ではCurrency型で十分対応可能です。

  • エラー処理: API呼び出しは成功しない場合があります。常にAPIの戻り値をチェックし、エラー発生時には適切な処理（ログ記録、ユーザーへの通知など）を行う堅牢なコードを記述することが重要です。Err.LastDllErrorでWin32エラーコードを取得できます。

まとめ

VBAからWin32 APIを呼び出すことで、Officeアプリケーションの自動化において、VBAの標準機能ではアクセスできないシステムレベルの情報を取得することが可能になります。本記事では、Declare PtrSafeを用いた安全なAPI宣言と、コンピューター名、ユーザー名、システム情報、ディスク空き容量といった実用的な情報を取得するための具体的なAPIの利用方法を解説しました。

ExcelとAccessの両方で動作するコード例と、性能チューニングやエラーハンドリングに関する考慮点を示すことで、読者が実際の業務でWin32 APIを活用し、より高度なOffice自動化を実現するための一助となることを目指しました。Win32 APIは非常に強力ですが、正確なデータ型のマッピングと堅牢なエラー処理を心がけることで、安定した自動化ソリューションを構築できます。

ロールバック方法: VBAコードはOfficeファイル内に直接埋め込まれるため、元に戻すには以下の手順を実行します。

  1. VBAエディターを開き、作成した標準モジュール（modSystemInfoなど）を右クリックし、「解放」を選択します。確認メッセージで「エクスポートしますか？」と聞かれたら「いいえ」を選択します。

  2. 各VBAプロジェクトから関連するコードモジュールを削除することで、変更を元に戻すことができます。

  3. Excelの場合、GetExcelSystemInformation実行時に作成された新しいシートを削除します。 これらの操作でVBAコードは完全に削除され、ファイルは元の状態に戻ります。

参考文献: [1] Microsoft Docs. “Declare statement (VBA)”. 2023年12月15日. https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/declare-statement [2] Microsoft Docs. “GetComputerNameExA function (sysinfoapi.h)”. 2024年5月2日. https://learn.microsoft.com/en-us/windows/win32/api/sysinfoapi/nf-sysinfoapi-getcomputernameexa [3] Microsoft Docs. “GetUserName function (winbase.h)”. 2024年5月2日. https://learn.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-getusernamea [4] Microsoft Docs. “GetSystemInfo function (sysinfoapi.h)”. 2024年5月2日. https://learn.microsoft.com/en-us/windows/win32/api/sysinfoapi/nf-sysinfoapi-getsysteminfo [5] Microsoft Docs. “GetDiskFreeSpaceEx function (fileapi.h)”. 2024年5月2日. https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-getdiskfreespaceexa

ライセンス：本記事のテキスト/コードは特記なき限り CC BY 4.0 です。引用の際は出典URL（本ページ）を明記してください。
利用ポリシー もご参照ください。

コメント

タイトルとURLをコピーしました