Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Файловая система \ Каталоги \ Как найти корневой каталог

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

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

Название: Как найти корневой каталог
Дата публикации: 2004-06-13 (3480 Прочтено)

 
 

 

Page generation 0.036 seconds