Функция для удаления папки с файлами
Что бы удалить папку с файлами можно воспользоваться данной функцией function DelDir (dir: string): Boolean; var fos: TSHFileOpStruct; begin ZeroMemory (@fos, SizeOf (fos)); with fos do begin wFunc := FO_DELETE; fFlags :=
Создать ярлык на Delphi
Что бы создать ярлык на делфи достаточно вызвать следующую процедур. procedure CreateLink (const PathObj, PathLink, Desc, Param: string); var IObject: IUnknown; SLink: IShellLink; PFile: IPersistFile; begin IObject := CreateComObject
Удалить информацию о флеш носителях из реестра. (windows xp)
На компьютер в копи центре постоянно клиенты толкают флешки, что бы с них что ни будь распечатать, со временем компьютер при подключение флешки или любого другого
Получить хеш файла
Функция хеширование файла. //проверка занят ли файл 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 подсветкой. Купил