传奇一条龙,复古传奇,GM基地,传奇服务端

 找回密码
 立即注册

QQ登录

只需一步,快速开始

网友自助信息发布区,请自行甄别

查看: 675|回复: 0

IGEM2 IGE传奇引擎源码Delphi RC版+工具

[复制链接]

624

帖子

2145

钻石

1359

积分

管理员

Rank: 9Rank: 9Rank: 9

在线时间
114 小时
发表于 2018-12-2 23:05:00 | 显示全部楼层 |阅读模式
IGEM2 IGE传奇引擎源码Delphi版全套+工具

所需要的控件 ---------------------//这套代码中有几个单元少了
businessskinform.v5.25.fs
ehlib3.6
ImageButton
ImageProgressbar
indy 9.0.18 for d7
JSocket
MSIC
Raize_v4.1
SUIPack
Vclskinv3.98
VCLZip.Pro.v3.05.b1.FS.D7
WinHTTP.v3.1.For.Delphi5679.CR
delphix_d7
DCPcrypt_v2.rar

=================代码预览=========================
unit GClearServer;

interface
uses StdCtrls, Windows, forms, Inifiles, SysUtils, GShare, GMain , Dialogs,ShellApi;

procedure ListBoxAdd(ListBox: TListBox; AddStr:string);  //增加ListBox记录
procedure ListBoxDel(ListBox: TListBox);   //删除ListBox某条记录
function ClearGlobal(FileName: string):Boolean;//清全局变量
function DeleteTree(s: string):Boolean;//删除目录
function ClearWriteINI(FileName,ini1,ini2,ini3:string):Boolean; //写INI文件
procedure ClearTxt(TxtName: string); //清空TXT文件
procedure ListBoxClearTxtFile(ListBox: TListBox); //清空ListBox里的Txt文件
procedure ListBoxDelFile(ListBox: TListBox);      //删除ListBox里的文件
function ListBoxDelDir(ListBox: TListBox):Boolean; //清空ListBod里的目录
function Clear_IniConf(): Boolean;      //写配置信息
procedure Clear_LoadIniConf();  //读取配置信息

procedure ClearModValue();  //使保存按钮正常使用

var
  GlobalVal:  array[0..999] of Integer;
  GlobalAVal: array[0..999] of string;
  rec_stack:  array [1..30] of TSearchRec;
  rec_pointer: Integer;
  g_sClearError: string;
implementation

procedure ClearModValue();
begin
  frmMain.ClearSaveBtn.Enabled := True;
end;

function ClearGlobal(FileName: string):Boolean;
var
  Config: TIniFile;
  I:integer;
begin
    Result := False;
    Config := TIniFile.Create(FileName);
    for I := Low(GlobalVal) to High(GlobalVal) do begin
      Config.WriteInteger('Setup', 'GlobalVal' + IntToStr(I), 0);
    end;

    for I := Low(GlobalAVal) to High(GlobalAVal) do begin
      Config.WriteString('Setup', 'GlobalStrVal' + IntToStr(I), '');
    end;
    Config.Free;
    //sleep(2000);
    Result := True;
end;


游客,如果您要查看本帖隐藏内容请回复

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|八五GM论坛专业的传奇私服GM技术交流基地 ( 粤ICP备11015868号-18 ) 传奇私服 Array7.2 版权所有 © 八五论坛 Comsenz Inc.

|网站地图
快速回复 快速发帖 返回顶部 返回列表