Александр HoShiMin
- Telegram: @HoShiMin
HoShiMin
/ SpliceProtection.pas
Last active
December 16, 2015 15:08
Простой модуль для статической защиты от сплайсинга
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit SpliceProtection; | |
| interface | |
| implementation | |
| uses | |
| Windows, HookAPI; | |
| type |
HoShiMin
/ CPUIDInfo.pas
Created
November 21, 2015 17:47
Модуль для получения характеристик процессора
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit CPUIDInfo; | |
| interface | |
| type | |
| TSSESupport = record | |
| SSE1 : Boolean; | |
| SSE2 : Boolean; | |
| SSE3 : Boolean; | |
| SSSE3 : Boolean; |
HoShiMin
/ FilesNotifier.pas
Last active
November 13, 2015 22:15
Модуль для отслеживания изменений файлов в папках
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit FilesNotifier; | |
| interface | |
| uses | |
| Windows, SysUtils, Classes, ShlwAPI; | |
| const | |
| FULL_NOTIFY_FILTER = FILE_NOTIFY_CHANGE_FILE_NAME or | |
| FILE_NOTIFY_CHANGE_DIR_NAME or |
HoShiMin
/ BeeWave.pas
Created
September 2, 2015 20:44
Проигрыватель WAV-файлов на системной пищалке
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit BeeWave; | |
| interface | |
| uses | |
| Windows, Classes, WAVParser, BeeperWrapper, TimeManagement; | |
| type | |
| TBeeWavePlayer = class | |
| private |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit WAVParser; | |
| interface | |
| uses | |
| Classes; | |
| type | |
| TWAVHeader = packed record | |
| ChunkId : LongWord; // "RIFF" в ASCII |
HoShiMin
/ IndependentSynthesizer.pas
Last active
September 23, 2015 09:57
Асинхронный многоканальный синтезатор для работы с системной пищалкой
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit IndependentSynthesizer; | |
| interface | |
| uses | |
| SysUtils, Math, Generics.Collections, | |
| NotesInfo, NotesSerializer, BeeperWrapper, TimeManagement; | |
| //HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH | |
| // Плеер с независимыми каналами |
HoShiMin
/ PowerUP.pas
Last active
November 8, 2015 14:51
Экспериментальный модуль для вывода процессора из энергосберегающего режима и определения рабочей частоты
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit PowerUP; | |
| interface | |
| uses | |
| Windows, Classes; | |
| function SetPowerValue(MinPowerValue, MaxPowerValue: Byte; out OldMinThrottle, OldMaxThrottle: Byte): Boolean; | |
| function SetPowerPercentage(PowerPercentage: Byte): Boolean; | |
| function SetMaximumPower: Boolean; |
HoShiMin
/ TimeManagement.pas
Last active
November 11, 2015 22:14
Модуль для точного измерения времени и реализации задержек с микро- и наносекундным разрешением
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit TimeManagement; | |
| interface | |
| uses | |
| Windows; | |
| function NtQueryPerformanceCounter(Counter, Frequency: PInt64): LongWord; stdcall; external 'ntdll.dll'; | |
| function NtDelayExecution(Alertable: Boolean; Delay: PInt64): LongWord; stdcall; external 'ntdll.dll'; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use16 | |
| org 100h | |
| ; Успешно загрузились: | |
| mov ax, SuccessfulStartup | |
| call WriteLn | |
| ; Настраиваем пищалку: | |
| call SetBeeperRegime | |
| call StartBeeper |
HoShiMin
/ FastestMove.pas
Last active
August 29, 2015 14:23
Самое быстрое копирование в памяти: реализация на MMX
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| unit FastestMove; | |
| interface | |
| procedure MoveMMX(Src, Dest: Pointer; {$IFDEF CPUX64}Size: UInt64{$ELSE}Size: LongWord{$ENDIF}); stdcall; | |
| implementation |