Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.016 c