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;
|