개발자를 위한 커닝페이퍼

unit LibStandardCRC8; interface uses Windows, SysUtils; type TStandardCRC8 = class private FPolynomial: BYTE; FInitVal: BYTE; FXorVal: BYTE; private FCRCTable: array[0..255] of BYTE; procedure GenCRCTable; function GetPolynomialEquation: String; public constructor Create(const Polynomial : BYTE; const InitVal: BYTE = 0; const XorVal: BYTE = 0); virtual; function CalcCRC(Data: PBYTE; Len: Integer..

unit LibSimpleParser; interface uses SysUtils; type TSimpleParser = class private FBuf : String; FBoundary : String; FBoundarySize : Integer; FRequestCount : Integer; FErasedCount : Integer; FRecentWord : String; function GetRest: String; public doTrim: Boolean; constructor Create(const Buf : String; const Boundary: String; Trim : Boolean = True); function Get(const Ord:Integer) : String; overlo..

unit LibResourceControl; interface uses Windows, SysUtils; type PFileVersionResourceData = ^TFileVersionResourceData; TFileVersionResourceData = record ResourceHandle : HRSRC; GlobalHandle : HGLOBAL; LockedPointer : Pointer; FixedInfo : PVSFixedFileInfo; Buffer : Pointer; ResourceSize : DWORD; end; function OpenFileVersionResource(hInstance : LongWord; V : PFileVersionResourceData) : BOOL; stdca..

unit LibRegistryEx; interface uses Windows, SysUtils, Classes, LibStringEx, LibRegistry; procedure REG_SetMultiString(const RKey:HKEY; const Folder,Name : String; Value: TStrings); procedure REG_GetMultiString(const RKey:HKEY; const Folder,Name : String; Value: TStrings); procedure REG_SetExpandString(const RKey:HKEY; const Folder,Name,Value: String); procedure REG_SubFolderList(const RKey:HKEY;..

unit LibStringEx; interface uses Windows, SysUtils, Graphics, LibString, LibWideString; function ToHex(const CH : char): String; function FromHex(const CH,CL : Char): Char; procedure CommandParse_URL(URL : String; var CMD, Para : String); // 가능하면 이걸쓰지말고 HTTPApp 유닛의 HTTPEncode/HTTPDecode를 사용해라. // 이것들은 URL을 통째로 파라미터로 넣도록 설계되었고, // HTTPApp의 함수들은 필드별로 따로 인코딩해야한다. function URLEncode(const Str : Stri..

unit LibWideString; interface uses Windows, SysUtils; function WideStrPCopy(Dest: PWideChar; const Source: WideString): PWideChar; function StringReplaceW(const S, OldPattern, NewPattern: WideString; Flags: TReplaceFlags): WideString; implementation function WideStrPCopy(Dest: PWideChar; const Source: WideString): PWideChar; begin CopyMemory(Dest, PWideChar(Source), (Length(Source) + 1) * SizeOf..

unit LibString; interface uses Windows, SysUtils; type TSetOfChar= set of Char; TFillTextAlign= (ftaLeft, ftaCenter, ftaRight); procedure Parsing(var Text, First : String; Deli : String); overload; function Parsing(var Text: String; Deli : String) : String; overload; procedure Parsing(var Text, First : WideString; Deli : WideString); overload; function Parsing(var Text: WideString; Deli : WideSt..

unit LibPowerSystem; interface uses Windows, SysUtils, TlHelp32, Forms, WinBase, Messages, LibProcessInfo; procedure SYSTEM_Reboot(Force : Boolean); procedure SYSTEM_PowerOff(Force : Boolean); procedure SYSTEM_LogOff; // 2010.11.25 JAZZ 추가 // Deny 횟수만큼 Allow 해야 실제로 Allow된다. 단 AllowForce인 경우 무조건 Allow. procedure SYSTEM_DenySuspendMode; procedure SYSTEM_AllowSuspendMode(const AllowForce: Boolean =..

unit LibOSVersion; interface uses Windows, SysUtils; {$IF CompilerVersion < 21} //Delphi 2010 - 21 //Delphi 2009 - 20 //Delphi 2007 - 18.5 //Delphi 2006 - 18 //Delphi 2005 - 17 //Delphi 8 - 16 //Delphi 7 - 15 //Delphi 6 - 14 type POSVersionInfoExA = ^TOSVersionInfoExA; POSVersionInfoEx = POSVersionInfoExA; _OSVERSIONINFOEXA = record dwOSVersionInfoSize: DWORD; dwMajorVersion: DWORD; dwMinorVersi..

unit LibOLECommand; interface uses Windows, ActiveX, SysUtils, Variants; type TOLECommandID = ( OLECMDID_NONE = 0 , OLECMDID_OPEN = 1 , OLECMDID_NEW = 2 , OLECMDID_SAVE = 3 , OLECMDID_SAVEAS = 4 , OLECMDID_SAVECOPYAS = 5 , OLECMDID_PRINT = 6 , OLECMDID_PRINTPREVIEW = 7 , OLECMDID_PAGESETUP = 8 , OLECMDID_SPELL = 9 , OLECMDID_PROPERTIES = 10, OLECMDID_CUT = 11, OLECMDID_COPY = 12, OLECMDID_PASTE ..