spCalc_func

Адрес этой странички : http://spcalc.narod.ru/spcalc_func_file.htm
spCalc.exe
Простой программируемый калькулятор.

Интерпретатор скриптов.

ВНИМАНИЕ !
Прежде, чем читать этот документ, крайне рекомендуется детально ознакомиться с документом :
"Библиотека скриптов FastScript 1.4. Руководство разработчика" ( http://spcalc.narod.ru/download/fs14_ru_rtf.zip ).

Список процедур и функций

Файлы, папки

Вызов стандартного диалога для выбора файла (open)
function SelectFile_Open(StartDir,
                           StartFN,
                           sFilter,
                           Title : string) : string;

Вызов стандартного диалога для выбора файла (save)
function SelectFile_Save(StartDir,
                           StartFN,
                           sFilter,
                           Title : string) : string;

Вызов стандартного диалога для выбора каталога
function SelectDir(Title : string) : string;

Проверка существоваания файла
function FileExists(fn : string) : boolean;

Выделить из полного имени файла – полный путь
function ExtractFilePath(fn : string) : string;

Выделить из полного имени файла – имя файла
function ExtractFileName(fn : string) : string;

Выделить из полного имени файла – расширение
function ExtractFileExt(fn : string) : string;

Получить размер диска
function GetDiskSize(Disk : string) : extended;

Получить свободное место на диске
function GetDiskFree(Disk : string) : extended;

Проверить, доступен ли заданный диск для записи
function ThisDiskIsReadOnly(Disk : string) : boolean;

Получить размер файла
function GetFileSize(FileName : string) : extended;

Получить кол-во файлов по маске
function GetFilesMaskSize(Mask : string) : extended;

Получить общий размер файлов, имена которых перечислены в списке
function GetFilesListSize(ListFiles : TStrings) : extended;

Получить список файлов по маске
function GetListFiles(Mask : string; ListFiles : TStrings) : integer;

Получить кол-во файлов по маске
function GetCountFiles(Mask : string) : integer;

Получить имя каталога, где Windows
function GetWindowsDirectory : string;

Получить имена логических дисков
function GetListDrives(DiskTypes : string;YesDriveType : boolean; List : TStrings; YesControl : boolean) : integer;
Параметры :
DiskTypes – перечень констант (DRIVE_UNKNOWN … DRIVE_RAMDISK) через
запятую, которые определяют типы требуемых дисков
YesDriveType – если true, то в List будут как имена логических дисков,
так и их типы
List – список логических дисков (выходная информация)
YesControl – если true, то при формировании сделать контроль
существования диска (принудительный вызов функции DiskSize).
Внимание: в этом случае для дисков типа DRIVE_REMOVABLE
производится реальный контроль наличия носителя в дисководе!
Это особенно актуально для FDD и CD-ROM
(если нет диска в дисководе, то и логический диск
в список не попадет).
Возвращаемое функцией значение – кол-во найденных дисков
Пример :
//Получить список приводов CD ROM (DVD ROM) и сетевых дисков
GetListDrives(IntToStr(DRIVE_CDROM)+','+IntToStr(DRIVE_REMOTE),
true, List, false);
List_View('Список приводов CD ROM (DVD ROM) и сетевых дисков',List);

Получить имена каталогов по маске
function GetListDirs(Mask : string;
List : TStrings;
YesFullDirName : boolean) : integer;

Получить уникальное полное имя файла из заданного полного имени файла
function GetUniFileName(FileName : string; CountChar : integer) : string;

Записать значение параметра в INI-файл
procedure PutToINI_StringParamW(NameINI,
                                  NameTop,
                                  NameParam,
                                  S : string);

Прочитать значение параметра из INI-файла
function GetFromINI_StringParamDef(NameINI,
                                     NameTop,
                                     NameParam : string;
                                     Def : string) : string;

Копирование файла
function CopyFile(fnFrom,fnTo : string) : Boolean;

Переименование файла
function RenameFile(fnOld,fnNew : string) : Boolean;

Перемещение файла
function MoveFile(fnFrom,fnTo : string) : Boolean;

Создать каталог (с учетом вложенности).
function CreateDir(FullDirName : string) : boolean;