Определение WIndows & system32

[Яр|/||< (^_^)]

Как определить папки windosw & system32

[Вавел из ГМТУ]

{Возвращает системную директорию типа: C:\Windows}
Function TForm1.SystemDir : String;
Var
  Windir : Array [0..MAX_PATH] Of Char;
Begin
GetWindowsDirectory(WinDir, Sizeof(Windir));
Result := WinDir;
End

Доработать и будет возвращать что хотите..

[Greblin]

для system32 GetSystemDirectory

[Kotofff]

Мне часто задают подобные вопросы и если интересует проблема узнавания путей к виртуальным и системным папкам, то вот посмотри этот модуль, подключи его к твоей проге и используй.
Коментарии и пояснения в модуле.

[Alter]

Ваш файл можно модифицировать, например сделав двумерный массив со значениями такого типа:
('%WinDir%', '$24'), (), .... и т.д.
А потом в цикле искать совпадения.
----------------------------------------

Выложу свой свежий компонент, смысл которого возвращать реальные пути до папок по путям заданным с помощь знака процента:
Данные получаю отсюда: Software\Microsoft\Windows\CurrentV ersion\Explorer\Shell Folders

Пример задания значений(слово обязательно между % должно быть, Регистр слов НЕ важен): %AppData%, %Cookies%, %Start Menu%, и т.д.
%WinDir% не вытащит, т.к в этой ветке реестра её нет.

Пример применения модуля после установки:

property InPath:string; // передаём сюда строку на преобразование
property OutPath:string; // получем через неё результат работы

Var O :TPathDecode;
......
begin
 // считаем, что объект создан
 O.InPath := '%Cookies%';
 ShowMessage(O.OutPath);
end;

[Hintman]

Использование функции GetWindowsDirectory или GetSystemDirectory выдает ошибку. Почему так может быть? Вот, создаю пустой, новый проект...

procedure TForm1.Button1Click(Sender: TObject);

var
win_dir: PAnsiChar;
i: Cardinal;
s: String;

begin
i:=GetWindowsDirectory(win_dir,MAX_PATH);
s:=IntToStr(i);
ShowMessage(s);
end;

Ошибка возникает при вызове ShowMessage(s).
Ну, естественно, если эту строку убрать, ошибка не пропадает.
В чем же дело?.. Прям на пустом месте проблема...

[Hintman]

Все-таки разобрался... Надо вот так:

procedure TForm1.Button1Click(Sender: TObject);

var
win_dir: PAnsiChar;
i: Cardinal;
s: String;

begin

win_dir := GetMemory(MAX_PATH);
i:=GetWindowsDirectory(win_dir,MAX_ PATH);
FreeMemory(s_sys_dir);

s:=IntToStr(i);
ShowMessage(s);
end;