Житиё моё

Что бы создать  ярлык на делфи достаточно вызвать следующую процедур. procedure CreateLink (const PathObj, PathLink, Desc, Param: string); var IObject: IUnknown; SLink: IShellLink; PFile: IPersistFile; begin IObject := CreateComObject

Delphi, Новости

Функция хеширование файла. //проверка занят ли файл 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,

Delphi, Новости

Если необходимо вывести в TStrings все файлы и папки то можно воспользоваться данной процедурой.  Процедура ScanDir так же может вывести все файлы по расширению (по

Delphi, Новости

Если нужно проверить, запущен ли какой ни, будь исполняемый файл можно воспользоваться следующей функцией function IsRunning (sName: string): boolean; // проверяет, запущен ли

Delphi, Новости

Программа периодически запускается для проверки большого массива данных на предмет запрещенных файлов. Для чего писалась программа. У нас на работе есть сетевой

Мои программы

По нажатию на клавишу, делается снимок рабочего стола. Если код поместить в таймер то снимки будут делаться регулярно с новым именем. на форму кидаем кнопку (тут

Delphi

Функция определяет владельца файла. function GetFileOwner (FileName: string; var Domain, Username: string): Boolean; var SecDescr: PSecurityDescriptor; SizeNeeded, SizeNeeded2: DWORD; OwnerSID: PSID; OwnerDefault: BOOL; OwnerName, DomainName: PChar; OwnerType:

Delphi, Новости