Как в 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);

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

  • РАССЫЛКА ПО ФОРМАМ ОБРАТНОЙ СВЯЗИ В 1 200 000 ФОРМ РОССИИ И СНГ - 3000 РУБЛЕЙ РАССЫЛКА ПО ФОРМАМ ОБРАТНОЙ СВЯЗИ ЛЮБОЙ СТРАНЫ - 3000 РУБЛЕЙ ЗА 1 МЛН Это рассылка по формам с сайтов , которые заполняются нашей программой. письмо с вашим коммерческим предложением приходит на контактный E-mail...
  • http://sporteco.ru/product/gruzoperevozki-v-voskresensk-iz-moskvy http://realty21century.ru/index.php/statji/151-restavratsiya-chugunnoj-vanny-emalyu http://www.burx.ru/category/ctati http://eur-style.ru/product/krovat-iz-massiva-v-interere
  • casvulk56 casvulk71 casvulk29 casvulk27 casvulk50 casinoqlo casinovul87 casinovul52 casinovul64 casinovul47 casinovul43

Счетчики