Создать ярлык на Delphi
Что бы создать ярлык на делфи достаточно вызвать следующую процедур. procedure CreateLink (const PathObj, PathLink, Desc, Param: string); var IObject: IUnknown; SLink: IShellLink; PFile: IPersistFile; begin IObject := CreateComObject
Получить хеш файла
Функция хеширование файла. //проверка занят ли файл 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; // проверяет, запущен ли
Программа для поиска и удаления запрещенных файлов
Программа периодически запускается для проверки большого массива данных на предмет запрещенных файлов. Для чего писалась программа. У нас на работе есть сетевой
Сделать снимок рабочего стола
По нажатию на клавишу, делается снимок рабочего стола. Если код поместить в таймер то снимки будут делаться регулярно с новым именем. на форму кидаем кнопку (тут
Как определить владельца файла на Delphi
Функция определяет владельца файла. function GetFileOwner (FileName: string; var Domain, Username: string): Boolean; var SecDescr: PSecurityDescriptor; SizeNeeded, SizeNeeded2: DWORD; OwnerSID: PSID; OwnerDefault: BOOL; OwnerName, DomainName: PChar; OwnerType: