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

八五论坛

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;

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