Переводим указанное количество секунд в дни, часы, минуты и секунды.
|
1 2 3 4 5 6 7 8 |
var sec: Integer; dhms: string; begin sec:= 2145414543; dhms:= secToDHMS(sec); ShowMessage(dhms); end; |
По указанному расширению, получаем путь к ассоциированному с ним приложению.
|
1 2 3 4 5 6 7 8 9 10 11 |
Uses Winapi.ShLwApi; ... var fileExt, assocExePath: WideString; begin fileExt:= '.html'; assocExePath:= shellFindExeByExt(fileExt); ShowMessage(assocExePath); end; |
По указанному файлу, получаем путь к ассоциированному с ним приложению.
|
1 2 3 4 5 6 7 8 9 10 11 |
Uses Winapi.ShellAPI; ... var filePath, assocExePath: WideString; begin filePath:= 'C:\Windows\Fonts\tahoma.ttf'; assocExePath:= ShellFindExecutable(filePath); ShowMessage(assocExePath); end; |
По букве диска (тома), определяем номер диска в системе.
|
1 2 3 4 5 6 7 8 |
var volLetter: Char; driveIndex: Integer; begin volLetter:= 'C'; driveIndex:= getDeviceNumberByLetter(volLetter); ShowMessage(IntToStr(driveIndex)); end; |
Редактор таблиц для создания базы товаров и настройки ККМ. Для кассовых аппаратов АТОЛ 90Ф, 91Ф, 92Ф. Файл Версия Описание 3.0.2.1978 Для 90Ф со старыми прошивками. 2.0.0 Для 90Ф с прошивками от 10-7942 и выше, и 91Ф, 92Ф с прошивками 10-xxxx. 2.1.2 Для 91Ф, 92Ф с...
Конвертер использует двоичные единицы измерения (1 Килобайт = 1024 байта).
Настройка должна производиться при закрытой смене, иначе в процессе выполнения возникнет ошибка Е000-156. РЕ - 4 - 3 - 0 - ИТ - ПВ - ВВ - ВВ - ИТ - [введите яркость от 1 до 15] - ИТ - РЕ
Удаляем файл в корзину без подтверждения и появления любых диалоговых окон.
|
1 2 3 4 5 6 7 8 9 10 |
Uses Winapi.ShellAPI; ... var filePath: WideString; begin filePath:= 'C:\My_file.txt'; delFileToRecycle(filePath); end; |
Можно получить список как своих ресурсов, так и любого компьютера в сети. В том числе админ ресурсов С$, D$ ...
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
var lst: TStringlist; servName: string; showAdminRes: Boolean; begin lst:= TStringlist.Create; servName:= 'localhost'; showAdminRes:= True; enumServerShares(servName, showAdminRes, lst); ShowMessage(lst.Text); FreeAndNil(lst); end; |
