{$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).
Каждая часть кода выполняет следующее:
Первая строка - шутка о Win95, как самолете без выхода.
Директива {$IFNDEF WIN32} проверяет, запущен ли код на не-Windows 32-разрядной платформе (например, DOS, Linux). Если так, она устанавливает константу MAX_PATH в 144 символа.
Секция реализации определяет массив a с MAX_PATH элементами, инициализированными в ноль.
Функция GetWindowsDirectory заполняет массив a путем директории Windows (например, C:\Windows).
Функция ShowMessage отображает сообщение с содержимым массива a как строку, конвертированную с помощью StrPas.
Те же шаги повторяются для директории системы (GetSystemDirectory) и отображаются в другом сообщении.
Чтобы запустить этот код, вам нужно создать новый проект Delphi или Borland Pascal, добавить это код в модуль (например, unit1.pas), а затем скомпилировать и запустить его. Вывод будет два сообщения с путями директории Windows и системы.
Обратите внимание, что константа MAX_PATH установлена в 144 символа, что было разумным лимитом для файловых систем Windows 95-эры. Современные платформы Windows имеют гораздо длиннее ограничения пути, но этот код не будет использовать эти изменения.
В этой статье описывается способ найти каталог Windows 2 и системный каталог в программировании на языке Pascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.