...

Листинг 4.16.

Определение текущей папки

function GetCurrentDir(): String;

var

len: Integer;

buffer: String;

begin

SetLength(buffer, MAX_PATH + 1);

len := GetCurrentDirectory(MAX_PATH, PAnsiChar(buffer));

GetCurrentDir := Copy(buffer, 1, len);

end;

Функция определения пути текущей папки основана на применении соответствующей API-функции GetCurrentDirectory. Вполне естественно, что она имеет пару – функцию для задания текущего каталога SetCurrentDirectory. Объявление этой функции:

Загрузка...