Получение имени текущего каталога

ПОЛУЧЕНИЕ ИНФОРМАЦИИ ОБ УСТРОЙСТВАХ, КАТАЛОГАХ

////////////////////////////////////////////////////////////////////////////

Получение списка доступных устройств и их типов

GetDriveType(S:PChar):integer;// например S:=PChar(C:\);

возвращает целое значение:

0 - тип устройства определить невозможно

1 - корневого каталога не существует

DRIVE_REMOVABLE - съёмное устройство памяти

DRIVE_FIXED - несъёмное устройство памяти

DRIVE_REMOTE - удалённое сетевое устройство памяти

DRIVE_CDROM - компакт диск

Получение информации о размещении каталога Windows

Для получения информации о расположении каталога Windows необходимо использовать функцию Win32 API GetWindowsDirectory(), которая определена следующим образом:

function GetWindowsDirectory(lpBuffer: PChar; uSize: UINT): UINT;

Первый параметр представляет собой буфер, в который помещается каталог Windows в виде строки с ограничивающим нуль-символом. Второй параметр определяет размер.

var

WDir: String;

begin

SetLength(WDir, 144);

if GetWindowsDirectory(PChar(WDir), 144) <> 0 then

begin

SetLength(WDir,

StrLen(PChar(WDir)));

ShowMessage(WDir);

End

else

RaiseLastWin32Error;

end;

Получение информации о размещении системного каталога

Вызвав функцию Win32 API GetSystemDirectory(), можно также получить информацию о расположении системного каталога. Эта функция работает аналогично функции GetWindowsDirectory(), за исключением того, что она возвращает полный путь в системный каталог Windows, а не в некоторый другой каталог. Следующий фрагмент кода показывает, как использовать эту функцию:

var

SDir: String;

begin

SetLengthfSDir, 144);

if GetSystemDirectory(PChar(SDir), 144) <> 0 then

begin

SetLengthfSDir, StrLen(PChar(SDir))); ShowMessage(SDir);

End

else

RaiseLastWin32Error;

end;

Значения, возвращаемые этой функцией, совпадают со значениями, возвращаемыми функцией GetWindowsDirectory().

Получение имени текущего каталога

Часто возникает необходимость в получении имени текущего каталога, из которого было запущено данное приложение. Для этого достаточно вызвать функцию Win32 API GetCurrentDirectory(). Разница в том, что у нее другой порядок следования параметров. Приведенный ниже фрагмент кода иллюстрирует использование этой функции.

var

CDir: String;

begin

SetLength(CDir, 144);

if GetCurrentDirectory(144, PChar(CDir)) <> 0 then

begin

SetLength(CDir, StrLen(PChar(CDir))); ShowMessage(CDir);

End

else

RaiseLastWin32Error;

end;

Например, свойство TApplication.ExeName содержит полный путь и имя файла выполняемого процесса. Если, например, этот параметр будет иметь значение C:\Delphi\Bin\Project.exe, то некоторые функции при переда­че им свойства TApplication.ExeName вернут значения, перечисленные в табл. 12.7.

Таблица 12.7. Функции, возвращающие данные о файле или каталоге