sm
服务器租用 996 无法下载点击此处反馈
/
查看: 1116|回复: 2

GSQL2000绿色版源代码delphi绿色SQL源码 [传奇3源码]

[复制链接]

826

主题

37

回帖

23万

积分

霸王教主

积分
237197
发表于 2023-5-30 21:21:35 | 显示全部楼层 |阅读模式
绿色SQL GSQL2000绿色版 delphi源码

GSQL2000绿色版源代码delphi绿色SQL源码
  1. {$R *.res}

  2. Const
  3.   REP          = '实例名为 %s 的绿色SQL已经存在, 请检查进程.';
  4.   NotAdmin     = '您的权限不足, 此程序需要管理员权限运行.';
  5.   CpuErr       = '您的Cpu核心数量为 %d个 不被SQLServer核心支持, 请使用虚拟机或者在BIOS关闭若干核心.';
  6.   //HDLL         = '请不要在本目录存放任何DLL.';
  7.   VERR         = '文件版本校验失败.';
  8.   NotFull      = '绿色SQL不完整, 请重新下载.';
  9. Var
  10.   File1, File2, File3, File4 : String;
  11.   Check                      : Boolean;
  12.   TempStr                    : String;
  13.   OldFromHandle              : THandle;
  14.   CPUCount                   : integer;
  15. begin
  16.   //此类代码是加密加密 与vmprotect配合防止反编译的
  17.   asm db $EB,$10,'VMProtect begin',0 end;

  18.   //是否是管理员  不是管理员提示退出
  19.   if Not IsAdmin then
  20.   begin
  21.     Application.MessageBox(PChar(NotAdmin), 'GSQL', MB_OK or MB_ICONWARNING);
  22.     Exit;
  23.   end;

  24.   //不支持三核心 CPU
  25.   CPUCount := GetProcessNumber;
  26.   if Not (CPUCount in [1, 2, 4, 8, 16, 32]) then
  27.   begin
  28.     Application.MessageBox(PChar(Format(CpuErr,[CPUCount])), 'GSQL', MB_OK or MB_ICONERROR);
  29.     Exit;
  30.   end;

  31.   //初始化设置
  32.   InitConfig;

  33.   //读取设置
  34.   LoadConfig;

  35.   //保存设置(如果INI文件丢失,可以自动按默认设置生成INI文件)
  36.   SaveConfig;

  37.   //有没有DLL型内存注入工具  有则退出
  38.   if FindDll(TempStr) then
  39.   begin
  40.     Application.MessageBox(PChar(TempStr), 'GSQL', MB_OK or MB_ICONWARNING);
  41.     Exit;
  42.   end;
  43.   
  44.   //这个是参数校验
  45.   if Trim(Oem_SV01.Pass) <> '' then
  46.   begin
  47.     if ParamCount >= 1 then
  48.     begin
  49.       if ParamStr(1) <> Trim(Oem_SV01.Pass) then
  50.       begin
  51.         Exit;
  52.       end;
  53.     end else
  54.     begin
  55.       Exit;
  56.     end;
  57.   end;

  58.   //文件自我校验
  59.   File1   := GetSPath(Paramstr(0));                           //管理器本身
  60.   File2   := GetSPath(FmStr('$RunPath\Sql_spX.sys' ));    //功能扩展DLL
  61.   File3   := GetSPath(FmStr('$RunPath\Binn\opends60.dll'));    //功能扩展DLL
  62.   File4   := GetSPath(FmStr('$RunPath\Binn\opends80.dll'));    //功能扩展DLL

  63.   //文件不完整
  64.   if Not(FileExists(File1) and FileExists(File2) and FileExists(File3) and FileExists(File4)) then
  65.   begin
  66.     Application.MessageBox(PChar(NotFull), 'GSQL', MB_OK or MB_ICONWARNING);
  67.     Exit;
  68.   end;

  69.   //取得校验值
  70.   Check   := (GetFileStr(File1) = CrcKey[1]) and
  71.              (GetFileStr(File2) = CrcKey[2]) and
  72.              (GetFileStr(File3) = CrcKey[3]) and
  73.              (GetFileStr(File4) = CrcKey[4]);

  74.   //版本校验
  75.   if Not Check then
  76.   begin
  77.     //Application.MessageBox(PChar(VERR), 'GSQL', MB_OK or MB_ICONWARNING);
  78.     //Exit;
  79.   end;

  80.   //本实例的管理器是否存在
  81.   Createmutex(nil, false, Pchar('GSQL_' + SQLServerConfig.Name));
  82.   if getlasterror = error_already_exists then
  83.   begin
  84.     //提示实例存在
  85.     Application.MessageBox(PChar(Format(REP,[SQLServerConfig.Name])), 'GSQL', MB_OK or MB_ICONWARNING);
  86.     TempStr := Oem.Title;
  87.     OldFromHandle := FindWindow('TMain',PChar(TempStr));
  88.     SendMessage(OldFromHandle, MyMsg, MyMsg_Show, 0);
  89.     SetForegroundWindow(OldFromHandle);
  90.     Exit;
  91.   end;
复制代码




gsql绿色版源码.txt

65 Bytes, 下载次数: 2, 下载积分: 积分 -5

售价: 50 积分  [记录]





上一篇:传奇EI3.0 客户端5.0插件ClientEx.dll的完整源代码
下一篇:首发GOD传奇引擎源码,Cocos2d手游三端引擎源码完整版
回复

使用道具 举报

1

主题

546

回帖

29

积分

旋风流星刀

积分
29
发表于 2023-8-23 07:26:17 | 显示全部楼层
感谢分享
回复

使用道具 举报

1

主题

546

回帖

29

积分

旋风流星刀

积分
29
发表于 2023-8-30 07:52:42 | 显示全部楼层
感谢分享
回复

使用道具 举报

© 2001-2024 Discuz! Team. Powered by Discuz! X3.5

GMT+8, 2024-12-4 01:16 , Processed in 0.290676 second(s), 63 queries 手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系

快速回复 返回顶部 返回列表