Житиё моё

После года эксплуатации сломался мой стробоскоп мультитроникс с2. Просто перестал включаться, не горел индикатор, не светилась лампа. Сломался после окончание

Мое авто авто

Иногда нужно запустить несколько презентаций подряд на одном компьютере, что бы они крутились бесконечно. Можно пойти двумя путями 1: это склеить все презентации

batch файлы

Что бы удалить папку  с файлами можно воспользоваться данной функцией   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

Delphi, Новости

На компьютер в копи центре постоянно клиенты толкают флешки, что бы с них что ни будь распечатать, со временем компьютер при подключение флешки или любого другого

batch файлы, Новости

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