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

Автор: LENIN INC

{ **** 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;