Архив

Архив рубрики «Delphi&»

Создать ярлык на Delphi

29 Янв 2014

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


Delphi, Новости

Получить хеш файла

26 Янв 2014

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

Перечислить все папки и файлы

26 Янв 2014

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


Delphi, Новости

Проверка запущен ли процесс

26 Янв 2014

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


Delphi, Новости

Программа для поиска и удаления запрещенных файлов

15 Янв 2014

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


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

Сделать снимок рабочего стола

25 Дек 2013

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


Delphi

Как определить владельца файла на Delphi

24 Дек 2013

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


Delphi, Новости