Текущий архив: 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.015 c
