Версия 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;

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