Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

Версия Windows   Найти похожие ветки 

← →
Переяслов Григорий   (2002-11-27 16:47) [0]

Как узнать, под какой версией Windows запущена программа: русской или английской?

---

← →
Шишкин Илья   (2002-11-27 18:34) [1]

Я не знаю как по научному. Но так работать точно будет:

Procedure RusOrEng();
var
ilength:integer;
windir:string;
begin
iLength := 255;
setLength(WinDir, iLength);
iLength := GetWindowsDirectory(PChar(WinDir), iLength);
setLength(WinDir, iLength);
if DirectoryExists(windir+"\Рабочий стол") then Showmessage("Русская винда") else ShowMessage("Англицкая винда");
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.009 c