Житиё моё

Что бы создать  ярлык на делфи достаточно вызвать следующую процедур. 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, Новости

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

Delphi, Новости

Так как иногда приходиться сидеть вечером за ноутбуком в темном помещение, или просто при свете телевизора, имею необходимость пользоваться usb подсветкой. Купил

Разное разное

После расширение сети (объединение с другими колледжами через vpn соединение) возникла проблема с синхронизацией времени на компьютерах. То есть один главный

Работа time, работа