Получить хеш файла
Функция хеширование файла. //проверка занят ли файл function ApplicationUse (fName: string): boolean; var HFileRes: HFILE; begin Result := false; if not FileExists (fName) then exit; HFileRes := CreateFile (pchar (fName), GENERIC_READ or GENERIC_WRITE, 0,
Перечислить все папки и файлы
Если необходимо вывести в TStrings все файлы и папки то можно воспользоваться данной процедурой. Процедура ScanDir так же может вывести все файлы по расширению (по
Проверка запущен ли процесс
Если нужно проверить, запущен ли какой ни, будь исполняемый файл можно воспользоваться следующей функцией function IsRunning (sName: string): boolean; // проверяет, запущен ли
usb подсветка из 13 светодиодов
Так как иногда приходиться сидеть вечером за ноутбуком в темном помещение, или просто при свете телевизора, имею необходимость пользоваться usb подсветкой. Купил
Cинхронизация времени в домене, но не с ним
После расширение сети (объединение с другими колледжами через vpn соединение) возникла проблема с синхронизацией времени на компьютерах. То есть один главный
Вывод средств в немецкого автосерфинга
Вчера первый раза осуществил вывод заработанных средств с автосерфинга, который тихо начал работать на работе, на одной виртуальной машине. 125 рублей за просто
Программа для поиска и удаления запрещенных файлов
Программа периодически запускается для проверки большого массива данных на предмет запрещенных файлов. Для чего писалась программа. У нас на работе есть сетевой