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

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

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

;

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com