meoit

OK. Thank so much @BrewManNH . My problem is solved.

My script have a problem about MultiLanguage. This is code: Global $SelectedCodeLang, $Lng[13] ; LANG_GUI() ; Func LANG_GUI() Opt('GUICloseOnEsc', 1) Opt('TrayIconHide', 1) Local $LangGUI = GUICreate('Select Language', 440, 100, -1, -1) GUICtrlCreateLabel('Please select language.', 10, 15, 415, 45) GUICtrlSetFont(-1, 14, 400, 0, 'Tahoma') Local $LangCombo = GUICtrlCreateCombo('English', 35, 53, 250, 27, 0x0003) GUICtrlSetFont(-1, 14, 400, 0, 'Arial') GUICtrlSetData(-1, 'Russian') Local $ButtonOK = GUICtrlCreateButton('OK', 315, 50, 100, 35) GUICtrlSetFont(-1, 14, 400, 0, 'Tahoma') GUICtrlSetCursor(-1, 0) GUISetState(@SW_SHOW) WinSetOnTop($LangGUI, '', 1) While 1 Local $nMsg = GUIGetMsg() Switch $nMsg Case -3, $ButtonOK ExitLoop EndSwitch WEnd Local $selected = GUICtrlRead($LangCombo) If $selected == 'English' Then $SelectedCodeLang = 'ENG' ElseIf $selected = 'Russian' Then $SelectedCodeLang = 'RUS' EndIf GUIDelete($LangGUI) GET_LANG() ;Show the MessageBox to test language strings MsgBox(64 + 8192 + 262144, 'Test language string 1', $Lng[1]) ;It is OK MsgBox(64 + 8192 + 262144, 'Test language string 2', $Lng[2]) ;It's go to wrong :( EndFunc ; Func GET_LANG() Switch $SelectedCodeLang Case 'ENG' $Lng[1] = "Sort by extension.@CRLFThis is a break line 1." $Lng[2] = "Status bar.@CRLFThis is a break line 2." $Lng[3] = "Source path (use drag-and-drop)" $Lng[4] = "Destination path (use drag-and-drop)" $Lng[5] = "Ignore file types" $Lng[6] = "If the field is a drop-down list is empty," $Lng[7] = "then this item is ignored" $Lng[8] = "Remove file types" $Lng[9] = "Leave the box blank" $Lng[10] = "to ignore option" $Lng[11] = "Delete files less than the specified size, KB" $Lng[12] = "to ignore the size" Case 'RUS' $Lng[1] = "Сортировка по расширению" $Lng[2] = 'Строка состояния' $Lng[3] = "Путь - источник (используйте drag-and-drop)" $Lng[4] = "Путь - получатель (используйте drag-and-drop)" $Lng[5] = "Игнорировать типы файлов" $Lng[6] = "Если поле раскрывающегося списка" $Lng[7] = "пустое, то этот пункт не учитывается" $Lng[8] = "Удалять типы файлов" $Lng[9] = "Оставте поле пустым" $Lng[10] = "для игнорирования параметра" $Lng[11] = "Удалять файлы менее указанного размера, кб" $Lng[12] = "для игнорирования размера" EndSwitch For $i = 1 To UBound($Lng) - 1 $Lng[$i] = StringStripWS($Lng[$i], 2) $Lng[$i] = StringReplace($Lng[$i], '@CRLF', @CRLF) $Lng[$i] = StringReplace($Lng[$i], '@LF', @LF) $Lng[$i] = StringReplace($Lng[$i], '@CR', @CR) Return $Lng[$i] Next EndFunc @Melba23 , @Danyfirex , @water Please help me. How to fix the second messagebox which not break line ?. Thank all.

Yes. I'm also have this problem. "A problem caused the program to stop working correctly" --> Win10 x64 @Yashied , please update your Copy UDF.

I am working on my Fixed USB with DriveGetType(). All work fine: XP/7/8/8.1/10 version 1507/1511/1607 but when I run my script on Windows 10 version 1703 (Creators Update), I get wrong the USB type, result = Removable USB. I checked my usb on the Partitioning Programs (Partition Guru, Aomei Partition Assistant,...), all result in Fixed USB. Please tell me, is this a bug of DriveGetType() ?. And now what can I do ?. Thanks.

I changed the code to: Local $ProcID $ProcID = Run(@ComSpec & ' /c diskpart.exe /s "' & $DP_File & '"', @SystemDir, @SW_HIDE, 0x4 + 0x2) ;$STDERR_CHILD + $STDOUT_CHILD ProcessWaitClose($ProcID) it is still "...has stopped working..." Someone please help me. Thank you.

I saw Diskpart working fine (all cmd lines have successful text). I just wondered why after I added /c and @SW_Hide the code I was dying right away.

After I try different cases of RunWait, I have the result (tested on Win10 x64, compiled with x86 compiler): RunWait(@ComSpec & ' /k diskpart.exe /s "' & $DP_File & '"', @SystemDir, @SW_HIDE) --> no "...has stopped working...", pass through this command, but the script do not run next command. In Task Manager no have Windows Command Processor (x86) - conhost.exe - cmd.exe RunWait(@ComSpec & ' /c diskpart.exe /s "' & $DP_File & '"', @SystemDir, @SW_HIDE) --> "...has stopped working...", script died RunWait(@ComSpec & ' /c diskpart.exe /s "' & $DP_File & '"', @SystemDir, @SW_MINIMIZE) --> "...has stopped working...", script died RunWait(@ComSpec & ' /k diskpart.exe /s "' & $DP_File & '"', @SystemDir, @SW_MINIMIZE) --> no "...has stopped working...", pass through this command, but the script do not run next command, the CMD window still show and not auto close. @Deye - please reply. And someone help me.

The volume name is whoever wants to put the name of the set. If I base on that, I may go the wrong way.

Thanks @ViciousXUSMC I can get Drive Types by using DriveGetType() But my problem that I can not sort out where is the USB Fixed Disk (not Removable USB type), where is the External Hard Disk (call HDD-Box, SSD-Box or Portable Hard Disk). :| Please do not give me WMI, because I use code for WinPE.

Thanks for your recommendation. But it's not accurate, if I have an 80GB external hard drive and a 128GB usb fixed disk; Or 128GB external hard drive and a 128GB usb fixed disk.... and so on...

Thanks @Deye !. This code is give same result of DriveGetType. Someone help me. Thanks all.

After searching, I found it stop at here: Func H_create_partition(Const $sFile, $index, $style_type, $MB_Size, $label, $letter) Local $hFO = FileOpen($sFile, $FO_APPEND) If $hFO = -1 Then MsgBox($Err, $myAppName, _MultiLang_GetText('LNG_WRITE_ERR')) Return 0 EndIf FileWrite($hFO, 'SELECT DISK ' & $index & @CRLF) FileWrite($hFO, 'CLEAN' & @CRLF) FileWrite($hFO, 'CONVERT ' & $style_type & @CRLF) FileWrite($hFO, 'CREATE PARTITION PRIMARY SIZE=' & $MB_Size & @CRLF) FileWrite($hFO, 'SELECT PARTITION 1' & @CRLF) If H_newer_windows7() Then FileWrite($hFO, 'FORMAT FS=ntfs LABEL="' & $label & '" QUICK NOERR' & @CRLF) FileWrite($hFO, 'ASSIGN LETTER=' & $letter & ' NOERR' & @CRLF) Else FileWrite($hFO, 'FORMAT FS=ntfs LABEL="' & $label & '" QUICK' & @CRLF) FileWrite($hFO, 'ASSIGN LETTER=' & $letter & @CRLF) EndIf FileWrite($hFO, 'EXIT' & @CRLF) FileWrite($hFO, 'EXIT' & @CRLF) FileWrite($hFO, 'EXIT') FileClose($hFO) EndFunc with call : RunWait(@ComSpec & ' /c DiskPart /s "' & $DP_File & '"', '', @SW_HIDE) Someone help me. Does my function go to wrong ?.

Use FileSaveDialog.

Thanks @Deye !!!. I used: DriveGetType('X:', $DT_BUSTYPE) --> result USB DriveGetType('Y:', $DT_BUSTYPE) --> result USB X: = my USB Fixed Disk (not Removable Disk) Y: = my External HDD (HDD-Box, SSD-Box) They give same result (is USB Bus type). So, really hard for me. Someone give me other way... Thanks.

Thanks @InunoTaishou ! This is useful, but it is using WMI. I do not like WMI, because my script in winPE. Do you have any other way ?.