개발자를 위한 커닝페이퍼

unit LibMutex; interface uses Windows; function OpenMutex(const ID : PChar; var Handle : THandle) : Boolean; procedure CloseMutex(const Handle : THandle); implementation function OpenMutex(const ID : PChar; var Handle : THandle) : Boolean; begin SetLastError(0); Handle := CreateMutex(nil, True, ID); Result := (Handle 0 ) and (GetLastError = 0); end; procedure CloseMutex(const Handle : THandle); ..

unit LibMemoryMap; interface uses Windows, SysUtils; type TJazzMemoryMap = class(TObject) private MapHandle : THandle; FME: TJazzMemoryMap; public constructor Create(Size:Int64; id_name:PChar); destructor Destroy; override; function ReadInteger : Integer; procedure WriteInteger(value : Integer); function ReadString : String; procedure WriteString(value : String); procedure ReadBlock(PBuf: Pointe..

unit LibItemIDList; interface uses Windows, ActiveX, Classes, NewShlObj, SysUtils, ShlObj2, LibString; type PPItemIDList = ^PItemIDList; var FF_IMalloc : IMalloc; FF_IShellFolder_Desktop : IShellFolder; function PIDL_GetIMalloc : IMalloc; function PIDL_GetSize(PIDL: PItemIDList): DWORD; function PIDL_Clone(PIDL: PItemIDList): PItemIDList; procedure PIDL_Free(PIDL: PItemIDList); function PIDL_Get..

unit LibInetCookie; interface uses Windows, WinInet, SysUtils, Classes, ShLwApi, LibString; function INET_DecodeURL(Str: String) : String; function INET_GetCookies(const URL: String; CookieList: TStrings) : Integer; function INET_GetCookie(const URL: String; const CookieName: String; var CookieValue: String) : Boolean; function INET_GetRawCookie(const URL: String) : String; var Ln : DWORD; R : B..

IE는 무덤으로 갔지만... 컨트롤은 남아 있겠지. unit LibIExplore; interface uses Windows, Messages, SysUtils, Classes, Dialogs, SHDocVW, MSHTML, ActiveX, ComObj, Variants, ShlObj, LibWindowsDynamicLoader, LibString, LibProcessToken; type TSearchFrameProc = Procedure(APP : IWebBrowserApp; Depth : Integer); stdcall; TSearchIEProc = Procedure(WB : IWebBrowser2; Param : DWORD; var StopSearch : Boolean); stdcall; TSear..

unit LibDesktop; interface uses Windows, SysUtils, Messages, ShellApi; const FEATURE_DEBUG_LOG= FALSE; function WINDOW_STATION_FindVisibleStation(var Station: HWINSTA) : BOOL; function WINDOW_STATION_AttachToVisibleStation(var Attached: BOOL; var HomeStation: HWINSTA) : BOOL; function WINDOW_STATION_AttachToStation(Station: HWINSTA) : BOOL; //Window를 가지거나 Desktop Hooks 을 가진 쓰레드는 다른 데스크탑으로 Attach..

아주 먼 옛날... 어디선가 가져온 코드... unit LibDateLunar; interface uses Sysutils; const montharray : array[0..24] of integer = (0,21355,42843,64498,86335,108366,130578,152958, 175471,198077,220728,243370,265955,288432,310767,332928, 354903,376685,398290,419736,441060,462295,483493,504693,525949); { 입춘시점에서 24절기의 시점까지의 길이 - 분 } { yearmin := 525948.75 ; - 실제 1년길이 (분) yearmini := 525949 ; - 근사치 (오차 3456년에 1일)} ..

unit LibCriticalSection; interface uses Windows; type TCriticalSectionClass = class private FCreated: Boolean; protected __Critical: TRTLCriticalSection; procedure InitializeCritical; virtual; procedure DeleteCritical; virtual; public constructor Create; virtual; destructor Destroy; override; procedure EnterCritical; virtual; procedure LeaveCritical; virtual; end; implementation { TCriticalSecti..

unit LibComplex; interface uses SysUtils, SysConst, Math; // VarCmplx 참고 type // Complex 계산의 정밀도가 낮아서 따로 만듦. TExComplex = record R : Extended; I : Extended; end; function ExComplex(const R, I: Extended): TExComplex; function ExComplex_IsZero(const A: TExComplex): Boolean; function ExComplex_Equal(const A, B: TExComplex): Boolean; function ExComplex_ToStr(const A: TExComplex; Precision: Integer; ..

unit LibBitmap; interface uses Windows; function CreateCompatibleBitmapAndDC(BaseDC: HDC; Width, Height : DWORD; var DC : HDC; var BMP : HBITMAP) : BOOL; function CreateCompatibleDIBAndDC_RGB(BaseDC: HDC; BMI : PBITMAPINFO; var DC : HDC; var BMP : HBITMAP; var ImgData : Pointer) : BOOL; function CreateCompatibleDIBAndDC_PAL(BaseDC: HDC; BMI : PBITMAPINFO; var DC : HDC; var BMP : HBITMAP; var Img..