摘要：
program Monitor;// {$APPTYPE CONSOLE}uses Winapi.Windows, System.SysUtils, ProcLib in 'ProcLib.pas';var Mutex: HWND;const c_AppName = 'server.exe';begin Mutex := Winapi.Windows.CreateMutex(nil, False, 'Monitor'); if (GetLastError = ERROR_ALREADY_EXISTS) or (Mutex = 0) then Ex 阅读全文
摘要：
unit uDBJson;interface{$HINTS OFF}uses SysUtils, Classes, Variants, DB, DBClient, SuperObject;type TTableJSon = class private const cstFieldType = 'FieldType'; const cstFieldName = 'FieldName'; const cstFieldSize = 'FieldSize'; const cstJsonType = 'JsonType'; const cs 阅读全文
摘要：
unit untMemoryPool;interface{$WARNINGS OFF}uses System.Classes, System.SysUtils, Winapi.Windows;type //Node for block memory pMemNode = ^TMemNode; TMemNode = record Free : Boolean; //Is free? FSize: Integer; //Block Size FAddr: Pointer; //Address pointer to memory allocated FNext: pMemNode; //Next b 阅读全文