Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
41 changes: 41 additions & 0 deletions .gitattributes
Original file line number Diff line number Diff line change
@@ -0,0 +1,41 @@
# Conservative policy for an upstream-synced fork: do NOT globally normalise
# (that would drift the fork from winddriver on every sync). Only force endings
# where a wrong one breaks the file, and keep vendored/byte-exact files intact.

# Scripts & CI — a wrong ending breaks these
*.sh text eol=lf
*.bat text eol=crlf
*.cmd text eol=crlf
*.ps1 text eol=crlf
*.yml text eol=lf
*.yaml text eol=lf

# Vendored CnPack (GBK-encoded) + patches — never normalise; stay identical to source
CnPack/** -text
*.patch -text
*.diff -text

# Certs / keys — exact bytes
*.crt binary
*.cer binary
*.der binary
*.pem binary
*.key binary
*.pfx binary
*.p12 binary

# Binaries / build artifacts
*.png binary
*.jpg binary
*.gif binary
*.ico binary
*.res binary
*.dcr binary
*.dcu binary
*.dcp binary
*.exe binary
*.dll binary
*.so binary
*.dylib binary
# NOTE: *.pas/.dpr/.inc/.dproj are intentionally NOT listed — left to core.autocrlf
# so the fork stays byte-close to upstream after each sync.
83 changes: 83 additions & 0 deletions .gitignore
Original file line number Diff line number Diff line change
@@ -0,0 +1,83 @@
modules/
dist/
static/
**/Win32/
**/Win64/
**/Linux64/
**/__history/
**/__recovery/
src/*.~*
__history/
__recovery/
packages/Win32/
packages/Win64/
packages/Linux64/
packages/dcu/
packages/dcp/
packages/bpl/
*.res
*.exe
*.dll
*.bpl
*.bpi
*.dcp
*.bpl
*.so
*.apk
*.drc
*.map
*.dres
*.rsm
*.tds
*.dcu
*.lib
*.a
*.o
*.ocx
*.local
*.identcache
*.projdata
*.tvsconfig
*.dsk
*.dcu
*.exe
*.ico
*.so
*.~*
*.a
*.stat
*.skincfg

# Mac
*.DS_Store

#FPC/Laz
lib/
backup/
*.lps

# Code coverage reports
**/console/
**/vcl/
dunitx-results.xml
*.bak

# Claude Code
.claude/settings.local.json
.claude.json
CLAUDE.md

# Delphi build output
__history/
__recovery/
*.dcu
*.exe
*.dll
*.bpl
*.dcp
*.local
*.identcache
*.tvsconfig
*.dsk
*.dproj.local
*.dsv
252 changes: 252 additions & 0 deletions CnPack/Common/CnConsts.pas
Original file line number Diff line number Diff line change
@@ -0,0 +1,252 @@
{******************************************************************************}
{ CnPack For Delphi/C++Builder }
{ �й����Լ��Ŀ���Դ������������� }
{ (C)Copyright 2001-2026 CnPack ������ }
{ ------------------------------------ }
{ }
{ ���������ǿ�Դ���������������������� CnPack �ķ���Э������ }
{ �ĺ����·�����һ���� }
{ }
{ ������һ��������Ŀ����ϣ�������ã���û���κε���������û�� }
{ �ʺ��ض�Ŀ�Ķ������ĵ���������ϸ���������� CnPack ����Э�顣 }
{ }
{ ��Ӧ���Ѿ��Ϳ�����һ���յ�һ�� CnPack ����Э��ĸ�������� }
{ ��û�У��ɷ������ǵ���վ�� }
{ }
{ ��վ��ַ��https://www.cnpack.org }
{ �����ʼ���master@cnpack.org }
{ }
{******************************************************************************}

unit CnConsts;
{* |<PRE>
================================================================================
* �������ƣ�������������
* ��Ԫ���ƣ�������Դ�ַ������嵥Ԫ
* ��Ԫ���ߣ�CnPack ������
* �� ע��
* ����ƽ̨��PWin98SE + Delphi 5.0
* ���ݲ��ԣ�PWin9X/2000/XP + Delphi 5/6
* �� �� �����õ�Ԫ�е��ַ��������ϱ��ػ�������ʽ
* �޸ļ�¼��2005.12.24 V1.0
* ������Ԫ����ֲ��Ӣ���ַ�
================================================================================
|</PRE>}

interface

{$I CnPack.inc}

const
ECN_OK = 0; // ������ OK���޴���

ECN_FILE_NOT_FOUND = $10; // �������

ECN_CUSTOM_ERROR_BASE = $1000; // ������趨�Ĵ�������ʼֵ

//==============================================================================
// Strings DO NOT Localize:
//==============================================================================

resourcestring

// CnPack Reg Path
SCnPackRegPath = '\Software\CnPack';

// Tools Reg Path
SCnPackToolRegPath = 'CnTools';

//==============================================================================
// Strings to be Localized:
//==============================================================================


var
// Common Information
SCnHint: string = 'Hint';
SCnInformation: string = 'Information';
SCnWarning: string = 'Warning';
SCnError: string = 'Error';
SCnEnabled: string = 'Enabled';
SCnDisabled: string = 'Disabled';
SCnMsgDlgOK: string = '&OK';
SCnMsgDlgCancel: string = '&Cancel';
SCnMsgDlgYes: string = '&Yes';
SCnMsgDlgNo: string = '&No';
SCnMsgDlgYesToAll: string = 'Yes to &All';
SCnMsgDlgNoToAll: string = 'No to A&ll';
SCnVersion: string = 'Version';
SCnNeedAdmin: string = 'Maybe Need Administrator';
SCnNotSupport: string = 'Operation Not Supported';

const
// CnPack Information
SCnPackAbout = 'CnPack';
SCnPackVer = 'Ver 0.1.8.0';
SCnPackStr = SCnPackAbout + ' ' + SCnPackVer;
SCnPackUrl = 'https://www.cnpack.org';
SCnPackBbsUrl = 'https://bbs.cnpack.org';
SCnPackNewsUrl = 'news://news.cnpack.org';
SCnPackSourceUrl = 'https://github.com/cnpack';
SCnPackEmail = 'master@cnpack.org';
SCnPackBugEmail = 'bugs@cnpack.org';
SCnPackSuggestionsEmail = 'suggestions@cnpack.org';

SCnPackDonationUrl = 'https://www.cnpack.org/donation.php';
SCnPackDonationUrlSF = 'http://sourceforge.net/donate/index.php?group_id=110999';
SCnPackGroup = 'CnPack Team';
SCnPackCopyright = '(C)Copyright 2001-2026 ' + SCnPackGroup;

// CnPropEditors
SCopyrightFmtStr =
SCnPackStr + #13#10#13#10 +
'Component Name: %s' + #13#10 +
'Author: %s(%s)' + #13#10 +
'Comment: %s' + #13#10 +
'HomePage: ' + SCnPackUrl + #13#10 +
'Email: ' + SCnPackEmail + #13#10#13#10 +
SCnPackCopyright;

resourcestring

// Component Palette Name
SCnNonVisualPalette = 'CnPack Tools';
SCnGraphicPalette = 'CnPack VCL';
SCnNetPalette = 'CnPack Net';
SCnDatabasePalette = 'CnPack DB';
SCnReportPalette = 'CnPack Report';

// CnPack Developers Added from Last.
var
SCnPack_Team: string = 'CnPack Team';
SCnPack_Zjy: string = 'Zhou JingYu';
SCnPack_Shenloqi: string = 'Chinbo';
SCnPack_xiaolv: string = 'xiaolv';
SCnPack_Flier: string = 'Flier Lu';
SCnPack_LiuXiao: string = 'Liu Xiao';
SCnPack_PanYing: string = 'Pan Ying';
SCnPack_Hubdog: string = 'Hubdog';
SCnPack_Wyb_star: string = 'wyb_star';
SCnPack_Licwing: string = 'Licwing zue';
SCnPack_Alan: string = 'Alan';
SCnPack_GuYueChunQiu: string = 'GuYueChunQiu';
SCnPack_Aimingoo: string = 'Aimingoo';
SCnPack_QSoft: string = 'QSoft';
SCnPack_Hospitality: string = 'ZhangJiongXuan (Hospitality)';
SCnPack_SQuall: string = 'SQUALL';
SCnPack_Hhha: string = 'Hhha';
SCnPack_Beta: string = 'beta';
SCnPack_Leeon: string = 'Leeon';
SCnPack_SuperYoyoNc: string = 'SuperYoyoNC';
SCnPack_JohnsonZhong: string = 'Johnson Zhong';
SCnPack_DragonPC: string = 'Dragon P.C.';
SCnPack_Kendling: string = 'Kending';
SCnPack_ccrun: string = 'ccrun';
SCnPack_Dingbaosheng: string = 'dingbaosheng';
SCnPack_LuXiaoban: string = 'Zhou Yibo(Lu Xiaoban)';
SCnPack_Savetime: string = 'savetime';
SCnPack_solokey: string = 'solokey';
SCnPack_Bahamut: string = 'Bahamut';
SCnPack_Sesame: string = 'Sesame';
SCnPack_BuDeXian: string = 'BuDeXian';
SCnPack_XiaoXia: string = 'Summer';
SCnPack_ZiMin: string = 'ZiMin';
SCnPack_rarnu: string = 'rarnu';
SCnPack_dejoy: string = 'dejoy';
SCnPack_Rain: string = 'Rain';
SCnPack_cnwinds: string = 'cnwinds';

// CnCommon
SUnknowError: string = 'Unknow error';
SErrorCode: string = 'Error code:';

const
SCnPack_TeamEmail = 'master@cnpack.org';
SCnPack_ZjyEmail = 'zjy@cnpack.org';
SCnPack_ShenloqiEmail = 'Shenloqi@hotmail.com';
SCnPack_xiaolvEmail = 'xiaolv888@etang.com';
SCnPack_FlierEmail = 'flier_lu@sina.com';
SCnPack_LiuXiaoEmail = 'liuxiao@cnpack.org';
SCnPack_PanYingEmail = 'panying@sina.com';
SCnPack_HubdogEmail = 'hubdog@263.net';
SCnPack_Wyb_starMail = 'wyb_star@sina.com';
SCnPack_LicwingEmail = 'licwing@chinasystemsn.com';
SCnPack_AlanEmail = 'BeyondStudio@163.com';
SCnPack_GuYueChunQiuEmail = 'guyuechunqiu@cnpack.org';
SCnPack_AimingooEmail = 'aim@263.net';
SCnPack_QSoftEmail = 'hq.com@263.net';
SCnPack_HospitalityEmail = 'Hospitality_ZJX@msn.com';
SCnPack_SQuallEmail = 'squall_sa@163.com';
SCnPack_HhhaEmail = 'Hhha@eyou.com';
SCnPack_BetaEmail = 'beta@01cn.net';
SCnPack_LeeonEmail = 'real-like@163.com';
SCnPack_SuperYoyoNcEmail = 'superyoyonc@sohu.com';
SCnPack_JohnsonZhongEmail = 'zhongs@tom.com';
SCnPack_DragonPCEmail = 'dragonpc@21cn.com';
SCnPack_KendlingEmail = 'kendling@21cn.com';
SCnPack_ccRunEmail = 'info@ccrun.com';
SCnPack_DingbaoshengEmail = 'yzdbs@msn.com';
SCnPack_LuXiaobanEmail = 'zhouyibo2000@sina.com';
SCnPack_SavetimeEmail = 'savetime2k@hotmail.com';
SCnPack_solokeyEmail = 'crh611@163.com';
SCnPack_BahamutEmail = 'fantasyfinal@126.com';
SCnPack_SesameEmail = 'sesamehch@163.com';
SCnPack_BuDeXianEmail = 'appleak46@yahoo.com.cn';
SCnPack_XiaoXiaEmail = 'summercore@163.com';
SCnPack_ZiMinEmail = '441414288@qq.com';
SCnPack_rarnuEmail = 'rarnu@cnpack.org';
SCnPack_dejoyEmail = 'dejoybbs@163.com';
SCnPack_RainEmail = SCnPack_TeamEmail; // ���������� Email���ÿ������������
SCnPack_cnwindsEmail = SCnPack_TeamEmail;

// CnMemProf
SCnPackMemMgr = 'CnMemProf';
SMemLeakDlgReport = 'Found %d memory leaks. [There are %d allocated before replace memory manager.]';
SMemMgrODSReport = 'Get = %d Free = %d Realloc = %d';
SMemMgrOverflow = 'Memory Manager''s list capability overflow, Please enlarge it!';
SMemMgrRunTime = '%d hour(s) %d minute(s) %d second(s)��';
SOldAllocMemCount = 'There are %d allocated before replace memory manager.';
SAppRunTime = 'Application total run time: ';
SMemSpaceCanUse = 'HeapStatus.TotalAddrSpace: %d KB';
SUncommittedSpace = 'HeapStatus.TotalUncommitted: %d KB';
SCommittedSpace = 'HeapStatus.TotalCommitted: %d KB';
SFreeSpace = 'HeapStatus.TotalFree: %d KB';
SAllocatedSpace = 'HeapStatus.TotalAllocated: %d KB';
SAllocatedSpacePercent = 'TotalAllocated div TotalAddrSpace: %d%%';
SFreeSmallSpace = 'HeapStatus.FreeSmall: %d KB';
SFreeBigSpace = 'HeapStatus.FreeBig: %d KB';
SUnusedSpace = 'HeapStatus.Unused: %d KB';
SOverheadSpace = 'HeapStatus.Overhead: %d KB';
SObjectCountInMemory = 'Objects count in memory: ';
SNoMemLeak = ' No memory leak.';
SNoName = '(no name)';
SNotAnObject = ' Not an object';
SByte = 'Byte';
SCommaString = ',';
SPeriodString = '.';

resourcestring
SCnErrorMapViewOfFile = 'MapViewOfFile Failed. ';
SCnErrorCreateFileMapping = 'CreateFileMapping Failed. ';

function CnGetLastError: Integer;

procedure _CnSetLastError(Err: Integer);

implementation

threadvar
CnErrorCode: Integer;

function CnGetLastError: Integer;
begin
Result := CnErrorCode;
end;

procedure _CnSetLastError(Err: Integer);
begin
CnErrorCode := Err;
end;

end.

Loading