Как в Delphi определить, где установлена Windows?

Для определения директории установки Windows можно воспользоваться функцией
GetWindowsDirectory

Пример:

 
  var  Windir  : String;
       WindirP : PChar;
 
		     .  .  .  .  .
       WinDirP := StrAlloc(MAX_PATH);
 
       Res := GetWindowsDirectory(WinDirP, MAX_PATH);
 
       if Res > 0 then WinDir := StrPas(WinDirP);

Последние комментарии

  • http://new-rutor.org
  • Производство матрацев. Реализация текстильной продукции https://goo.gl/5WYADp - подушка детская купить оптом - любые объемы, - матрасы высочайшего качества, - самые выгодные цены https://goo.gl/5WYADp - матрацы оптом
  • Норвежский Ламинин от д-ра Эскеланда http://1541.ru в 4 раза Дешевле, чем американский Laminine LPGN. Skype evg7773 Viber +380976131437 Buy The Norwegian LAMININE are 4 times more affordable http://www.getyourboomback.com/#_l_2ps as Laminine by LPGN. Реклама в Интернете. Поисковая оптимизация....

Счетчики