Delphi World - Как найти каталог Windows 3

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Как найти каталог Windows 3

Продается стиральная машина "Windows-95". Стирает все.

%WinDir - что бы это значило?

Часто можно видеть что-то похожее на это: "файл располагается в директории %WinDir\file.ext, где %WinDir - системная директория Windows." Так что бы это значило - %WinDir?

Если Вы устанавливали Windows, принимая все по умолчанию, то Windows у Вас установлен в директорию C:\WINDOWS. Однако иногда люди по каким-либо побуждениям устанавливают Windows в другую директорию, например, C:\WIN0000.

Иногда нужно бывает обратиться к какому-либо файлу, который находится как раз в этой %WinDir директории. Можно, конечно, написать C:\WINDOWS, но, тогда с уверенностью можно сказать, что на части компьютеров эта программа не пройдет.

Предлагаю Вам такую процедуру:

procedure TForm1.Button2Click(Sender: TObject);
var
  F: TextFile;
  St, Res: string;
begin
  AssignFile(F,'c:\msdos.sys');
  Reset(F);
  while not Eof(F) do
  begin
    ReadLn(F, St);
    if Copy(St, 1, 6) = 'WinDir' then
      Break;
  end;
  CloseFile(F);
  Res := Copy(St, 8, Length(St) - 7);
  Edit1.Text := res;
end;

После выполнения этой процедуры в переменную Res записывается значение %WinDir.