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

Delphi , ОС и Железо , Windows

{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

...
implementation
...

var
  a : array[0..MAX_PATH] of char;
begin
  GetWindowsDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));
  GetSystemDirectory(a, sizeof(a));
  ShowMessage(StrPas(a));

Here's the translation of the text into Russian:

Прошлый раз! Это код на Pascal для Delphi или Borland Pascal, написанный для поиска и отображения директории Windows (например, C:\Windows\System32) и директории Windows (например, C:\Windows).

Каждая часть кода выполняет следующее:

1. Первая строка - шутка о Win95, как самолете без выхода.
2. Директива {$IFNDEF WIN32} проверяет, запущен ли код на не-Windows 32-разрядной платформе (например, DOS, Linux). Если так, она устанавливает константу MAX_PATH в 144 символа.
3. Секция реализации определяет массив a с MAX_PATH элементами, инициализированными в ноль.
4. Функция GetWindowsDirectory заполняет массив a путем директории Windows (например, C:\Windows).
5. Функция ShowMessage отображает сообщение с содержимым массива a как строку, конвертированную с помощью StrPas.
6. Те же шаги повторяются для директории системы (GetSystemDirectory) и отображаются в другом сообщении.

Чтобы запустить этот код, вам нужно создать новый проект Delphi или Borland Pascal, добавить это код в модуль (например, unit1.pas), а затем скомпилировать и запустить его. Вывод будет два сообщения с путями директории Windows и системы.

Обратите внимание, что константа MAX_PATH установлена в 144 символа, что было разумным лимитом для файловых систем Windows 95-эры. Современные платформы Windows имеют гораздо длиннее ограничения пути, но этот код не будет использовать эти изменения.

В этой статье описывается способ найти каталог Windows 2 и системный каталог в программировании на языке Pascal.

Комментарии и вопросы

:: Главная :: Windows ::