Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. 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
;