DiskFree, DiskSize, Execute, ExecuteEx, GetClipboardText, GetComputerName, GetCPUInfo, GetEnvValue, GetFileVersion, GetIdleTime, GetMemoryInfo, GetSystemDate, GetSystemTime, LockWorkstation, SendKeys, SetClipboardText, SetEnvValue, SetLedState, SetScreenResolution, UpTime

 

function DiskFree(disknum :byte) :int64;

Функция возвращает, сколько свободного места (в байтах) находится на указанном диске. "disknum" может принимать значения "0" — текущий диск, "1" — диск "A", "2" — "B", "3" — "C" и так далее.

 

function DiskSize(disknum :byte) :int64;

Функция возвращает размер указанного диска в байтах.

 

function Execute(FileName, Parameters, WorkFolder :string) :integer;

Запустить из скрипта любую программу, BAT-файл, открыть документ и прочее. "FileName" — что именно нужно запустить/открыть, "Parameters" — параметры командной строки, "WorkFolder" — рабочий каталог.

 

function ExecuteEx(FileName, Parameters, WorkFolder :string; RunType :integer) :integer;

Расширенный вариант функции Execute. Запускает из скрипта любую программу, BAT-файл, открывает документы и прочее. "FileName" — что именно нужно запустить/открыть, "Parameters" — параметры командной строки, "WorkFolder" — рабочий каталог; RunType — в каком виде запускать приложение из скрипта:

1 — спрятать окно запускаемого приложения, фокус не отбирать;

2 — минимизировать окно приложения, фокус не отбирается;

3 — максимизировать окно запускаемого приложения, фокус не отбирается;

4 — активировать и показать окно запускаемого приложения;

5 — активировать и показать окно запускаемого приложения в его текущей позиции и размере;

6 — аналогично 5;

7 — активировать окно и развернуть на весь экран;

8 — активировать окно и минимизировать его;

9 — показать окно в его стандартном размере, фокус не отбирать;

10 — показать окно приложения в стандартном режиме, активное окно остаётся активным, фокус не передаётся;

11 — то же, что и 10, но окно приложения будет показано там, где оно показывалось в прошлый раз;

12 — активировать и показать окно приложения.

 

function GetClipboardText :string;

Функция возвращает текст, хранящийся в буфере обмена Windows.

 

function GetComputerName:string;

Возвращает сетевое имя компьютера, на котором исполняется скрипт.

 

procedure GetCPUInfo(var Name :string; var Mhz :word; var Vendor, Identifier :string);

Получить информацию о микропроцессоре, установленном в системе. "Name" — название, "Mhz" — частота, "Vendor" — производитель, "Identifier" — технические данные (family, model, stepping).

 

function GetEnvValue(ValueName :string) :string;

Возвращает значение переменной окружения под именем "ValueName".

 

function GetFileVersion(FileName: string): string;

Функция возвращает версию указанного файла.

 

function GetIdleTime: cardinal;

Определить время простоя системы в миллисекундах. Временем простоя считается время, в течении которого пользователь ничего не нажимает на клавиатуре и не двигает мышку.

 

procedure GetMemoryInfo(var MemoryLoad :byte; var TotalPhys :int64; var AvailPhys :int64; var TotalPageFile :int64; var AvailPageFile :int64);

Получить информацию о памяти, используемой в системе. "MemoryLoad" — сколько процентов физической оперативной памяти занято в данній момент, "TotalPhys" — размер физической оперативной памяти, имеющейся в системе, "AvailPhys" — сколько памяти есть в наличии, "TotalPageFile" — размер файла подкачки, "AvailPageFile" — сколько байт из файла подкачки свободно. Все данные возвращаются в байтах.

 

procedure GetSystemDate(var Year, Month, Day :word);

Получить системную дату (год, месяц, день).

 

procedure GetSystemTime(var Hour, Min, Sec, mSec :word);

Получить системное время (часы, минуты, секунды, сотые доли секунд).

 

function LockWorkStation: boolean;

Функция блокирует рабочую станцию. Действует аналогично нажатию Ctrl+Alt+Del и выбору "Блокировка" в диалоговом окне Windows. Для того, чтобы разблокировать компьютер, нужно выполнить вход в систему под текущим логином и паролем.

 

procedure SendKeys(Buffer, WndCaption:string);

Отправить клавишу или последовательность кодов приложению, заголовок которого передаётся в переменной WndCaption.

 

procedure SetClipboardText(Txt :string);

Сохраняет в буфере обмена Windows указанный текст.

 

function SetEnvValue(VarName, VarValue: string): integer;

Функция устанавливает значение "VarValue" для переменной окружения "VarName". Если операция прошла успешно, функция возвращает значение "0".

 

procedure SetLedState(KeyCode:byte; OnOff:boolean);

Включить или выключить индикаторы клавиатуры NumLock, CapsLock и ScrollLock. Индикатор зависит от номера переменной KeyCode. 1 — NumLock, 2 — CapsLock, 3 — ScrollLock. OnOff — включить либо выключить индикатор.

 

function SetScreenResolution(PixelsWidth, PixelsHeight, BitsPerPixel, DisplayFrequency:integer): boolean;

Функция для установки разрешения экрана. PixelsWidth — ширина экрана в точках, PixelsHeight — высота экрана в точках, BitsPerPixel — глубина цвета в битах (8, 16, 24, 32), DisplayFrequency — частота обновления экрана в секунду. Если испоьзуется TFT монитор — то устанавливать в 0.

 

procedure UpTime(var d, h, m, s :integer);

Сколько времени работает Windows без перезагрузки. "d" — дни, "h" — часы, "m" — минуты, "s" — секунды.