Текущий архив: 2002.12.09;
Скачать: CL | DM;

Вниз

Версия 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;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.013 c