| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Версия Windows [D5, Win95/98, Win2k, WinXP]

Переяслов Григорий ©   (2002-11-27 16:47:00) 

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

---

Шишкин Илья   (2002-11-27 18:34:00) [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;

---

Наверх