Как найти корневой каталог

Delphi , Файловая система , Директории

Автор: LENIN INC
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Как найти корневой каталог...

Зависимости: Windows
Автор:       LENIN INC, fuck2all@ukr.net, Kiev
Copyright:   LENIN INC, http://lenininc.narod.ru
Дата:        22 февраля 2003 г.
***************************************************** }

//Находим корневой каталог

function RootDir: string;
var
  buffer: array[0..1023] of char;
begin
  SetString(Result, Buffer, GetWindowsDirectory(Buffer, Sizeof(Buffer) - 1));
  if (Result <> '') and (Result[Length(Result)] <> '\') then
    Result := Copy(Result + '\', 1, 3);
end;

Статья Как найти корневой каталог раздела Файловая система Директории может быть полезна для разработчиков на Delphi и FreePascal.

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

:: Главная :: Директории ::