영문 Windows 및 PE 환경에서 디스크 및 파티션 정보 출력 오류 수정 └▶ 한국어와 영문 환경 모두에서 시스템 언어를 우선으로 하여 출력되도록 개선
; Windows API를 사용하여 시스템 언어 확인
Func GetSystemDefaultUILanguage()
Local $hKernel32 = DllOpen("kernel32.dll")
If $hKernel32 = -1 Then
;MsgBox(16, "Error", "Unable to open kernel32.dll.")
Exit
EndIf
Local $aResult = DllCall($hKernel32, "ushort", "GetSystemDefaultUILanguage")
DllClose($hKernel32)
If @error Or Not IsArray($aResult) Then
;MsgBox(16, "Error", "Failed to call GetSystemDefaultUILanguage.")
Exit
EndIf
Return $aResult[0]
EndFunc
; 중복 방지 배열 선언
Local $aUsedDisks = []
; 디스크 정보 추출
Local $aLines = StringSplit($diskContent, @CRLF, 1)
For $i = 0 To UBound($aLines) - 1
Local $sLine = StringStripWS($aLines[$i], 3)
; 언어에 맞는 정규식 선택
Local $aData
If $bIsKorean Then
; 한국어 정규식
If StringRegExp($sLine, "^디스크\s+(\d+)\s+(\S+)") Then
$aData = StringRegExp($sLine, "^디스크\s+(\d+)\s+(\S+)\s+([\d,]+\s+[A-Za-z가-힣]+)\s+([\d,]+\s+[A-Za-z가-힣]+)\s*(\S*)\s*(\S*)$", 3)
EndIf
Else
; 영어 정규식
If StringRegExp($sLine, "^Disk\s+(\d+)\s+(\S+)\s+([\d,]+\s+[A-Za-z]+)\s+([\d,]+\s+[A-Za-z]+)\s*(\S*)\s*(\S*)$") Then
$aData = StringRegExp($sLine, "^Disk\s+(\d+)\s+(\S+)\s+([\d,]+\s+[A-Za-z]+)\s+([\d,]+\s+[A-Za-z]+)\s*(\S*)\s*(\S*)$", 3)
EndIf
EndIf
If IsArray($aData) Then
Local $diskNumber = $aData[0]
; 이미 출력된 디스크 번호인지 확인
If Not IsInArray($diskNumber, $aUsedDisks) Then
Local $size = $aData[2]
Local $dyn = $aData[4] == "*" ? "GPT" : "MBR"
; detail disk 명령어 실행 및 결과 읽기
FileDelete($sDiskInfoFile) ; 이전 명령 초기화
FileWrite($sDiskInfoFile, "select disk " & $diskNumber & @CRLF & "detail disk" & @CRLF)
RunWait(@ComSpec & " /c diskpart /s " & $sDiskInfoFile & " > " & $sResultFile, "", @SW_HIDE)
Local $detailContent = FileRead($sResultFile)
; 디스크 모델 추출
Local $model = "-"
; 디스크 모델 추출 정규식 수정
If $bIsKorean Then
Local $aModelMatch = StringRegExp($detailContent, "(?m)^([^\r\n]+)\r\n디스크 ID:", 1)
Else
Local $aModelMatch = StringRegExp($detailContent, "(?m)^([^\r\n]+)\r\nDisk ID:", 1)
EndIf
If IsArray($aModelMatch) Then
$model = StringStripWS($aModelMatch[0], 3)
EndIf
; 디스크 정보를 ListView에 추가
GUICtrlCreateListViewItem($diskNumber & "|" & $dyn & "|" & $size & "|" & $model, $hListView)
; 사용된 디스크 번호 배열에 추가
_ArrayAdd($aUsedDisks, $diskNumber)
EndIf
EndIf
Next
; 중복 방지 배열 선언
Local $aUsedPartitionNumbers = []
; 파티션 정보 추출
Local $aLines = StringSplit($partitionContent, @CRLF, 1)
For $i = 0 To UBound($aLines) - 1
Local $sLine = StringStripWS($aLines[$i], 3)
; 언어에 맞는 정규식 선택
Local $aData
If $bIsKorean Then
; 한국어 파티션 정보 정규식
If StringRegExp($sLine, "파티션\s+(\d+)\s+(\S+)\s+([\d,]+\s+[A-Za-z]+)\s+([\d,]+\s+[A-Za-z]+)") Then
$aData = StringRegExp($sLine, "파티션\s+(\d+)\s+(\S+)\s+([\d,]+\s+[A-Za-z]+)\s+([\d,]+\s+[A-Za-z]+)", 3)
EndIf
Else
; 영어 파티션 정보 정규식
If StringRegExp($sLine, "Partition\s+(\d+)\s+(\S+)\s+([\d,]+\s+[A-Za-z]+)\s+([\d,]+\s+[A-Za-z]+)") Then
$aData = StringRegExp($sLine, "Partition\s+(\d+)\s+(\S+)\s+([\d,]+\s+[A-Za-z]+)\s+([\d,]+\s+[A-Za-z]+)", 3)
EndIf
EndIf
If IsArray($aData) Then
Local $partitionNumber = $aData[0]
; 중복 파티션 번호 체크
If Not IsInArray($partitionNumber, $aUsedPartitionNumbers) Then
; 파티션 정보를 ListView에 추가
GUICtrlCreateListViewItem($aData[0] & "|" & $aData[1] & "|" & $aData[2] & "|" & $aData[3], $hListView)
; 사용된 파티션 번호 배열에 추가
_ArrayAdd($aUsedPartitionNumbers, $partitionNumber)
EndIf
EndIf
Next
