Как исправить кодировку 866<->1251
Add(Memo,16753371,147,91)
{
Left=15
Top=20
Width=275
Height=205
Strings=#17:echo Start %time%|21:@echo Идет проверка 1|16:nslookup 1.1.1.1|8:@echo Ok|16:echo Stop %time%|5:@exit|
ScrollBars=2
}
Add(Memo,3233594,336,133)
{
Left=310
Top=20
Width=275
Height=205
ScrollBars=2
}
Add(MainForm,11237762,91,175)
{
Width=619
Height=330
Caption="Пример использования WinExec"
}
Add(WinExec,15028267,217,119)
{
FileName="cmd"
Point(onConsoleResult)
Point(doConsoleInput)
Point(doConsoleExec)
link(onExec,14961550:doData,[(261,125)(261,82)(133,82)(133,139)])
link(onConsoleResult,3233594:doAdd,[])
}
Add(Button,6785065,147,175)
{
Left=25
Top=245
Caption="2"
link(onClick,15028267:doConsoleExec,[(198,181)(198,146)])
}
Add(DoData,14961550,147,133)
{
link(onEventData,15028267:doConsoleInput,[])
link(Data,16753371:Text,[])
}
Add(Charset,1817640,280,91)
{
Type=7
}
У меня Win 7, но нужно чтобы и на 10-ке работало