ник: AlexSyr
Начинаем с начала.
Создаем модуль, в него кладем:
Declare Function GetACP Lib "kernel32" () As Long
Declare Function GetOEMCP Lib "kernel32" () As Long
Public Sub TestCP()
MsgBox "WIN" & GetACP & " - DOS" & GetOEMCP
End Sub
|
Нажимаем F5, т.е. запускаем TestCP. Что выводит?
Кстати, ICQ есть?