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

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

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

;

Другое по теме: