]]>]]>У вас, вероятно, есть какие-то наработки по этому поводу.
У меня нету.
Если бы мне захотелось сделать такое через реестр, то я бы сделал снимок реестра, потом поменял бы локаль, отрестартился бы и сделал еще раз снимок реестра и сравнил бы их.
Уверен, что там еще добавляются/меняются шрифты.
А вообще можно менять через запуская нужный xml через intl.cpl.
Run %comspec% /c mkdir C:\вышобобо,, Hide
Кстати, совсем забыл вам ответить, что и эта команда делает папку с неправильной кодировкой.
]]>
Computer\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage
Это ветвь реестра, где, видимо, и хранятся эти параметры. Если я правильно понял, это это ACP, OEMCP (у меня соотвтсвенно значения 1251 и 866).
У вас, вероятно, есть какие-то наработки по этому поводу.
Malcev насчет реестра не уверен, что надо туда лезть.
А что по вашему делает смена локали, да и любые другие настройки виндовс?
Я на всех машинах всегда ставлю русскую локаль - никогда проблем не было.
ИМХО сейчас вы здесь будете использовать костыли, а потом знаки вопроса/кракозябры появятся в другой программе не поддерживающей юникод.
Путем копания забугорных форумов, нашел один участок кода, применил методом тыка и вот что получилось:
s := "__тест_test" ; __тест_test
vText := s ; вот, собственно, этот код
vSize := StrPut(vText, "CP1251") ; с указанием этой кодировки все работает
VarSetCapacity(vTemp, vSize)
StrPut(vText, &vTemp, "CP1251") ; и тут
s := StrGet(&vTemp, "UTF-8") ; а здесь уже ЮТФ-8 нужно указать
MsgBox, % s ; ok
MsgBox, % StdOut("cmd.exe /u /q /c mkdir ""C:\temp\" . s . s . """ ", "") ; now ok
MsgBox, % StdOut("cmd.exe /a /q /c mkdir ""C:\temp\" . s . """ ", "cp866") ; now ok
MsgBox, % StdOut("cmd.exe /a /q /c dir ""C:\temp\"" ", "cp866") ; cool
StdOut(sCmd, encoding)
{
static STARTF_USESTDHANDLES := 0x100, CREATE_NO_WINDOW := 0x08000000
DllCall("CreatePipe", PtrP, hStdInRd, PtrP, hStdInWr, UInt, 0, UInt, 0)
DllCall("CreatePipe", PtrP, hStdOutRd, PtrP, hStdOutWr, UInt, 0, UInt, 0)
DllCall("SetHandleInformation", Ptr, hStdInRd, UInt, 1, UInt, 1)
DllCall("SetHandleInformation", Ptr, hStdOutWr, UInt, 1, UInt, 1)
VarSetCapacity(pi, A_PtrSize*2 + 8, 0)
NumPut( VarSetCapacity( si, A_PtrSize*4 + 4*8 + A_PtrSize*5, 0), si )
NumPut(STARTF_USESTDHANDLES, si, A_PtrSize*4 + 4*7)
NumPut(hStdInRd , si, A_PtrSize*4 + 4*8 + A_PtrSize*2)
NumPut(hStdOutWr , si, A_PtrSize*4 + 4*8 + A_PtrSize*3)
NumPut(hStdOutWr , si, A_PtrSize*4 + 4*8 + A_PtrSize*4)
DllCall("CreateProcess", UInt, 0, Ptr, &sCmd, UInt, 0, UInt, 0, Int, True, UInt, CREATE_NO_WINDOW, UInt, 0, UInt, 0, Ptr, &si, Ptr, &pi)
for k, v in [NumGet(pi, 0), NumGet(pi, A_PtrSize), hStdOutWr, hStdInRd, hStdInWr]
DllCall("CloseHandle", Ptr, v)
VarSetCapacity(sTemp, 4095)
while DllCall("ReadFile", UInt, hStdOutRd, Ptr, &sTemp, UInt, 4095, UIntP, nSize, UInt, 0)
sOutput .= StrGet(&sTemp, nSize, encoding)
DllCall("CloseHandle", Ptr, hStdOutRd)
Return sOutput
}
Просьба проверить как у вас работает и, если кто разберется, написать как это конкретно работает.
]]>Спасибо, но можно это сделать средствами ahk?
Конечно можно.
Посмотрите, что меняется в реестре при изменении локали и повторите тоже самое.
s := "__тест_test"
MsgBox, % StdOut("cmd.exe /u /q /c mkdir ""C:\temp\" . s . """ ", "cp866") ; not work
MsgBox, % StdOut("cmd.exe /a /q /c mkdir ""C:\temp\" . s . """ ", "cp866") ; not work