delphi 游戏菜单部分源码

procedure prstart(new:bool);
begin

main.ListView1.BackPicture.Graphic:=nil;
main.ListView2.BackPicture.Graphic:=nil;
main.ListView3.BackPicture.Graphic:=nil;
main.ListView4.BackPicture.Graphic:=nil;
main.ListView5.BackPicture.Graphic:=nil;
main.ListView6.BackPicture.Graphic:=nil;
main.ListView7.BackPicture.Graphic:=nil;
main.ListView8.BackPicture.Graphic:=nil;
main.ListView9.BackPicture.Graphic:=nil;
main.WGListView.BackPicture.Graphic:=nil;

main.TabSheet1.Caption:=readinifile('设置','分组1名称','最新推荐');
main.TabSheet2.Caption:=readinifile('设置','分组2名称','网络游戏');
main.TabSheet3.Caption:=readinifile('设置','分组3名称','单机游戏');
main.TabSheet4.Caption:=readinifile('设置','分组4名称','私服专区');
main.TabSheet5.Caption:=readinifile('设置','分组5名称','休闲游戏');
main.TabSheet6.Caption:=readinifile('设置','分组6名称','电影音乐');
main.TabSheet7.Caption:=readinifile('设置','分组7名称','升级补丁');
main.TabSheet8.Caption:=readinifile('设置','分组8名称','游戏外挂');

main.TabSheet1.TabVisible:=readinifile('设置','显示分组1',true);
main.TabSheet2.TabVisible:=readinifile('设置','显示分组2',true);
main.TabSheet3.TabVisible:=readinifile('设置','显示分组3',true);
main.TabSheet4.TabVisible:=readinifile('设置','显示分组4',true);
main.TabSheet5.TabVisible:=readinifile('设置','显示分组5',true);
main.TabSheet6.TabVisible:=readinifile('设置','显示分组6',true);
main.TabSheet7.TabVisible:=readinifile('设置','显示分组7',true);
main.TabSheet8.TabVisible:=readinifile('设置','显示分组8',true);
main.SeathTab.TabVisible:=false;

if fileexists(selfpath+'logo1.jpg') then
main.logo1.Picture.LoadFromFile('logo1.jpg');
if fileexists(selfpath+'logo2.jpg') then
main.logo2.Picture.LoadFromFile('logo2.jpg');
main.logoimage.Picture:=main.logo1.Picture;

//if readinifile('设置','窗口最大',true) then main.WindowState:=wsMaximized;
if readinifile('设置','作为桌面',true) then
   begin
    main.BorderStyle:=bsDialog; //   bsToolWindow
    main.Align:=alClient;
    Windows.SetParent(main.Handle, FindWindow('Progman', nil));
   end else
       begin
        //ShowWindowAsync(Application.Handle,sw_show);
        main.BorderStyle:=bsSizeable;
        main.Align:=alNone;
        Windows.SetParent(main.Handle, main.Handle);
   end;

NeedOutPass:=readinifile('设置','退出需要密码',true);
pass:=myword(readinifile('设置','程序密码',''),'');
if pass = '' then pass:='o123v123x123ssd13fer123zfxcow123e';
   main.Panel1.Visible:=readinifile('设置','显示logo',true);   //@@ 免费功能不能用
   main.MainPubPanel.Visible:=readinifile('设置','显示公告',true);

    main.ListView9.Visible:=readinifile('设置','显示外挂',true);
if  readinifile('设置','右边公告',true)  then
    main.MainPubPanel.Align:=alRight else main.MainPubPanel.Align:=alLeft;
    main.N10.Checked:=(main.MainPubPanel.Align=alRight);

ServerIp  :=readinifile('设置','服务器IP','127.0.0.1');;
ServerPort:=readinifile('设置','服务器端口',75601);;
AutoUPgame:=readinifile('设置','询问更新游戏',true);
AutoRePic :=readinifile('设置','自动刷新图标',false);
netpath   :=readinifile('设置','网络更新','');
wguppath  :=readinifile('设置','外挂升级','');
    setskin(readinifile('设置','程序外观',1));
UseBackPic:=readinifile('设置','启用背景',true);
SjBackPic :=readinifile('设置','随机背景',true);
main.Memo2.Lines.Text:=readinifile('设置','系统公告','未设置公告');
main.Memo3.Lines.Text:=readinifile('设置','最新更新','当前无更新');
setcolor(readinifile('设置','界面颜色',clWindow),readinifile('设置','界面字体颜色',clWindow));
LoadGameLabel(GameLabel);

IPListSet1.NetName:=readinifile('设置','网关名称1','');
IPListSet1.NetIP  :=readinifile('设置','网关地址1','');
IPListSet1.NetSub :=readinifile('设置','子网掩码1','');
IPListSet1.aDNS   :=readinifile('设置','主DNS1','');
IPListSet1.bDNS   :=readinifile('设置','副DNS1','');

IPListSet2.NetName:=readinifile('设置','网关名称2','');
IPListSet2.NetIP  :=readinifile('设置','网关地址2','');
IPListSet2.NetSub :=readinifile('设置','子网掩码2','');
IPListSet2.aDNS   :=readinifile('设置','主DNS2','');
IPListSet2.bDNS   :=readinifile('设置','副DNS2','');

main.N_net1.Caption:=IPListSet1.NetName;
main.N_net2.Caption:=IPListSet2.NetName;

ToolsInfo.Tools1:=readinifile('工具设置','tools1',format('%stools/Grachics.lnk',[selfpath]));
ToolsInfo.Show1 :=readinifile('工具设置','show1',true);
ToolsInfo.Tools2:=readinifile('工具设置','tools2',format('%stools/IME.exe',[selfpath]));
ToolsInfo.Show2 :=readinifile('工具设置','show2',true);
ToolsInfo.Tools3:=readinifile('工具设置','tools3',format('%stools/key.lnk',[selfpath]));
ToolsInfo.Show3 :=readinifile('工具设置','show3',true);
ToolsInfo.Tools4:=readinifile('工具设置','tools4',format('%stools/mouse.lnk',[selfpath]));
ToolsInfo.Show4 :=readinifile('工具设置','show4',true);
ToolsInfo.Tools5:=readinifile('工具设置','tools5','C:/WINDOWS/system32/sndvol32.exe');
ToolsInfo.Show5 :=readinifile('工具设置','show5',true);
ToolsInfo.Tools6:=readinifile('工具设置','tools6','');
ToolsInfo.Show6 :=readinifile('工具设置','show6',true);
ToolsInfo.Tools7:=readinifile('工具设置','tools7','');
ToolsInfo.Show7 :=readinifile('工具设置','show7',true);


PicIndex :=readinifile('设置','背景图片',0);
randomize;
if  SjBackPic then  PicIndex:=random(10);
if fileexists(selfpath+'icolist.dat') then
loadimagelist(selfpath+'icolist.dat')
else  new:=true;
if new then
begin
main.Imagelist2.Clear;
loadallini;
resavepic;
GetSystemImageList(main.ImageList2);
saveimagelist(selfpath+'icolist.dat');
end;
main.Timer1.Enabled:=true;
end;

function ExecuteFile(const FileName, Params, DefaultDir: String;
ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
try
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
finally;
end;
end;

function upexec(itemsx:Tlistitems;i:integer):bool;
var
exepath,uppath:string;  //源目录和目标目录
begin
if i > -1 then
begin
uppath:=Itemsx.Item[i].SubItems[5];
exepath:=Itemsx.Item[i].SubItems[1];
if application.MessageBox(Pchar(format('要更新 %s 游戏吗 ? ',[Itemsx.Item[i].Caption])),'系统信息',MB_YESNO+MB_Iconquestion)=IDyes then
if extractfileext(exepath)='' then
begin
if writetbq(exepath,uppath,Itemsx.Item[i].SubItems[0]) then Itemsx.Item[i].ImageIndex:=strtoint(Itemsx.Item[i].SubItems[4]);
result:=true;
end
else
begin
  result:=true;
  WinExec(pchar(exepath),SW_SHOWNORMAL);
  Itemsx.Item[i].ImageIndex:=strtoint(Itemsx.Item[i].SubItems[4]);
  end;
  if Itemsx.Item[i].SubItems.Count = 6 then Itemsx.Item[i].SubItems.Append('NOGAMEUP');
end;
end;

function ExePathToDir(FilePath:string):string;
begin
if ExtractFileExt(FilePath)='.lnk' then
begin
result:=extractfiledir(GetLinkFullFileName(FilePath));
end else
result:=extractfiledir(FilePath);
end;

procedure exectools(pathx:string);
var
exepath,path:string;
begin
begin
exepath:=pathx;
if not fileexists(exepath) then
begin
//application.MessageBox('指定的工具不存在 !',' 提示 ',mb_ok+MB_ICONINFORMATION);
//exit;
end;
path:=ExePathToDir(exepath);
ExecuteFile(exepath,'',path,SW_SHOWNORMAL);
if isfree2 then   setgame.Free;
end;
end;

Function UPGames:bool;
begin
with main do
case page1.ActivePageIndex  of
   0:  result:=upexec(listview1.Items,listview1.ItemIndex);
   1:  result:=upexec(listview2.Items,listview2.ItemIndex);
   2:  result:=upexec(listview3.Items,listview3.ItemIndex);
   3:  result:=upexec(listview4.Items,listview4.ItemIndex);
   4:  result:=upexec(listview5.Items,listview5.ItemIndex);
   5:  result:=upexec(listview6.Items,listview6.ItemIndex);
   6:  result:=upexec(listview7.Items,listview7.ItemIndex);
   7:  result:=upexec(listview8.Items,listview8.ItemIndex);
   8:  result:=upexec(listview9.Items,listview9.ItemIndex);
end;
end;

procedure Tmain.ListView1DblClick(Sender: TObject);
begin
exec(listview1.Items,listview1.ItemIndex);
end;

procedure Tmain.ListView2DblClick(Sender: TObject);
begin
exec(listview2.Items,listview2.ItemIndex);
end;

procedure Tmain.N2Click(Sender: TObject);
begin
if application.MessageBox('要刷新所有项目的图标吗 , 此过程可能要几秒种 . ','系统信息',MB_YESNO+MB_Iconquestion)=IDyes then
begin
main.WGListView.Items.Clear;
resavepic;
GetSystemImageList(main.ImageList2);
saveimagelist(selfpath+'icolist.dat');
end;
end;

procedure Tmain.N1Click(Sender: TObject);
begin
if page1.ActivePageIndex=0 then exec(listview1.Items,listview1.ItemIndex);
if page1.ActivePageIndex=1 then exec(listview2.Items,listview2.ItemIndex);
if page1.ActivePageIndex=2 then exec(listview3.Items,listview3.ItemIndex);
if page1.ActivePageIndex=3 then exec(listview4.Items,listview4.ItemIndex);
if page1.ActivePageIndex=4 then exec(listview5.Items,listview5.ItemIndex);
if page1.ActivePageIndex=5 then exec(listview6.Items,listview6.ItemIndex);
if page1.ActivePageIndex=6 then exec(listview7.Items,listview7.ItemIndex);
if page1.ActivePageIndex=7 then exec(listview8.Items,listview8.ItemIndex);
if page1.ActivePageIndex=8 then exec(listview9.Items,listview9.ItemIndex);
end;

procedure Tmain.ListView3DblClick(Sender: TObject);
begin
exec(listview3.Items,listview3.ItemIndex);
end;

procedure ShowSetup;
begin
setgame.TabSheet9.TabVisible :=not istry;
setgame.Edit8.Text             :=pass;
setgame.Edit9.Text             :=netpath;
setgame.AutoUPgameCk.Checked   :=AutoUPgame;
setgame.AutoReICOck.Checked    :=AutoRePic;
setgame.NeedOutPassCk.Checked  :=NeedOutPass;
setgame.ServerIPEdit.Text      :=ServerIp ;
setgame.ServerPortEdit.Text    :=inttostr(ServerPort);
setgame.MaxCheck.Checked     :=readinifile('设置','窗口最大',true);
setgame.AsDesktopCk.Checked  :=readinifile('设置','作为桌面',true);
setgame.logoCheck.Checked    :=readinifile('设置','显示logo',true);
setgame.pubCheck.Checked     :=readinifile('设置','显示公告',true);
setgame.wgCheck.Checked      :=readinifile('设置','显示外挂',true);
setgame.RightCheck.Checked   :=readinifile('设置','右边公告',true);

setgame.ShowGameTxtCheck.Checked  :=readinifile('设置','显示游戏介绍',true);
setgame.ShowPBCheck.Checked       :=readinifile('设置','显示系统公告',true);
setgame.ShowNetCheck.Checked      :=readinifile('设置','显示切换网关',true);
setgame.ShowNewUPCheck.Checked    :=readinifile('设置','显示最新更新',true);

setgame.Memo2.Lines.Text         :=readinifile('设置','系统公告','未设置公告');
setgame.Memo3.Lines.Text         :=readinifile('设置','最新更新','当前无更新');
setgame.RadioGroup1.ItemIndex    :=readinifile('设置','程序外观',1);
setgame.colorpanel.Color         :=readinifile('设置','界面颜色',clWindow);
setgame.colorpanel.Font.Color    :=readinifile('设置','界面字体颜色',clblack);

setgame.NetNameEdit1.Text:=IPListSet1.NetName;
setgame.NetEdit1.Text:=IPListSet1.NetIP;
setgame.NetSubEdit1.Text:=IPListSet1.NetSub;
setgame.aDNSEdit1.Text:=IPListSet1.aDNS;
setgame.bDNSEdit1.Text:=IPListSet1.bDNS;

setgame.NetNameEdit2.Text:=IPListSet2.NetName;
setgame.NetEdit2.Text:=IPListSet2.NetIP;
setgame.NetSubEdit2.Text:=IPListSet2.NetSub;
setgame.aDNSEdit2.Text:=IPListSet2.aDNS;
setgame.bDNSEdit2.Text:=IPListSet2.bDNS;

setgame.ToolEdit1.Text      := ToolsInfo.Tools1;
setgame.ToolShowCK1.Checked := ToolsInfo.Show1;
setgame.ToolEdit2.Text      := ToolsInfo.Tools2;
setgame.ToolShowCK2.Checked := ToolsInfo.Show2;
setgame.ToolEdit3.Text      := ToolsInfo.Tools3;
setgame.ToolShowCK3.Checked := ToolsInfo.Show3;
setgame.ToolEdit4.Text      := ToolsInfo.Tools4;
setgame.ToolShowCK4.Checked := ToolsInfo.Show4;
setgame.ToolEdit5.Text      := ToolsInfo.Tools5;
setgame.ToolShowCK5.Checked := ToolsInfo.Show5;
setgame.ToolEdit6.Text      := ToolsInfo.Tools6;
setgame.ToolShowCK6.Checked := ToolsInfo.Show6;
setgame.ToolEdit7.Text      := ToolsInfo.Tools7;
setgame.ToolShowCK7.Checked := ToolsInfo.Show7;

setgame.AutoUPgameCk.Checked:=AutoUPGame;
setgame.BackPicCk.Checked:=UseBackPic;
setgame.SJPicCk.Checked:=SjBackPic;
setgame.PicCombo1.ItemIndex:=PicIndex;

setgame.Editls1.Text:=main.TabSheet1.Caption;
setgame.Editls2.Text:=main.TabSheet2.Caption;
setgame.Editls3.Text:=main.TabSheet3.Caption;
setgame.Editls4.Text:=main.TabSheet4.Caption;
setgame.Editls5.Text:=main.TabSheet5.Caption;
setgame.Editls6.Text:=main.TabSheet6.Caption;
setgame.Editls7.Text:=main.TabSheet7.Caption;
setgame.Editls8.Text:=main.TabSheet8.Caption;

setgame.Checkls1.Checked:=main.TabSheet1.TabVisible;
setgame.Checkls2.Checked:=main.TabSheet2.TabVisible;
setgame.Checkls3.Checked:=main.TabSheet3.TabVisible;
setgame.Checkls4.Checked:=main.TabSheet4.TabVisible;
setgame.Checkls5.Checked:=main.TabSheet5.TabVisible;
setgame.Checkls6.Checked:=main.TabSheet6.TabVisible;
setgame.Checkls7.Checked:=main.TabSheet7.TabVisible;
setgame.Checkls8.Checked:=main.TabSheet8.TabVisible;

setgame.FontSizeTrack.Position:=Gamelabel.fontSize;
setgame.TabStyleTrack.Position:=Gamelabel.TabStyle;
setgame.LabelTrack.Position:=Gamelabel.Height;
setgame.TabWidethTrack.Position:=Gamelabel.TabWidth;

loadini('分组1-',setgame.ListView1.Items);
loadini('分组2-',setgame.ListView2.Items);
loadini('分组3-',setgame.ListView3.Items);
loadini('分组4-',setgame.ListView4.Items);
loadini('分组5-',setgame.ListView5.Items);
loadini('分组6-',setgame.ListView6.Items);
loadini('分组7-',setgame.ListView7.Items);
loadini('分组8-',setgame.ListView8.Items);

setgame.Visible:=true;
setgame.WindowState:=wsNormal;
end;

procedure Tmain.setbuttonClick(Sender: TObject);
begin
if istry then ShowSetup
              else  begin
                       Passbutton.Tag:=1;
                       PassBox.Top:=main.ClientHeight div 3;
                       PassBox.Left:=main.ClientWidth div 3;
                       PassBox.Show;
                       PassEdit.SetFocus;
                    end;

end;

procedure Tmain.Timer1Timer(Sender: TObject);
begin
   Timer1.Enabled:=false;
   GameTextPanel.Visible:=readinifile('设置','显示游戏介绍',true);
   SystemTxtPanel.Visible:=readinifile('设置','显示系统公告',true);
   NETListBtn.Visible:=readinifile('设置','显示切换网关',true);
   NewTxtPanel.Visible:=readinifile('设置','显示最新更新',true);

Label1.Caption:='正在启动,请稍侯.....';
StopButton.Enabled:=false;
rePanel.Visible:=true;
application.ProcessMessages;
ProgressBar1.Position:=10;
Local_IP:=LocalIP;
loadallini;
application.ProcessMessages;
if UseBackpic then
OkPic:=setbackbmp(format('%s%d.jpg',[selfpath,PicIndex]));
rePanel.Visible:=false;
page1.ActivePage:=TabSheet1;
Panel5.Visible:=true;
n7.Checked:=main.panel1.Visible;
n5.Checked:=main.MainPubPanel.Visible;
n6.Checked:= listview9.Visible;
isbusy:=false;
if setgame.Visible then setgame.WindowState:=wsNormal;
if notry and (oem) then
begin
frmApp.Show;
page1.Enabled:=false;
end;
end;

procedure Tmain.FormCreate(Sender: TObject);
var
userstrings:Tstringlist;
Tmps:string;
begin

begin
//正式信息
name1:='飞视游戏菜单 V1.2b';
name2:='飞视游戏菜单 V1.2b';
name3:=' 欢迎您定制或OEM快速、美观、专用的游戏菜单，请联系 QQ 561684 ';

//试用信息
sname1:='飞视游戏菜单 V1.2b 免费版';
sname2:='飞视游戏菜单 V1.2b 免费版';
sname3:=' 欢迎您定制或OEM快速、美观、专用的游戏菜单，请联系 QQ 561684 ';
end;
userstrings:=Tstringlist.Create;
IPListSet1:=TIPListSet.Create;
IPListSet2:=TIPListSet.Create;
Gamelabel:=TGameLabel.Create;
ToolsInfo :=TToolsInfo.Create;
isbusy:=true;
main.Panel5.Visible:=false;
selfpath:=ExtractFilePath(Application.Exename);
SetCurrentDir(selfpath);

try
if readinifile('设置','作为桌面',true) then
    begin
     ShowWindowAsync(Application.Handle, SW_HIDE);
     setwindowlong(application.handle,gwl_exstyle,ws_ex_toolwindow);
    end;

if istry then
begin
main.Caption:=sname1;
application.Title:=sname2;
main.StatusBar1.Panels[2].Text:=sname3;
end else
begin
main.Caption:=name1;
application.Title:=name2;
main.StatusBar1.Panels[2].Text:=name3;
end;
LOGOtimer.Enabled:=true;
finally
userstrings.Free;
end;
prstart(false);
end;

function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
//  Result := -CompareText(Item1.Caption,Item2.Caption);
Result := -CompareText(Item1.Caption,Item1.Caption);
end;

procedure Tmain.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
ListView1.CustomSort(@CustomSortProc, 0);
ListView2.CustomSort(@CustomSortProc, 0);
ListView3.CustomSort(@CustomSortProc, 0);
ListView4.CustomSort(@CustomSortProc, 0);
ListView5.CustomSort(@CustomSortProc, 0);
ListView6.CustomSort(@CustomSortProc, 0);
ListView7.CustomSort(@CustomSortProc, 0);
ListView8.CustomSort(@CustomSortProc, 0);
ListView9.CustomSort(@CustomSortProc, 0);
if UseBackPic then
setbuttonpic(OKPic);
end;

procedure Tmain.LOGOTimerTimer(Sender: TObject);
begin
if s1=0 then
begin
s1:=1;
main.logoimage.Picture:=logo1.Picture;
end else
begin
s1:=0;
main.logoimage.Picture:=logo2.Picture;
end;
end;

procedure Tmain.N7Click(Sender: TObject);
begin
main.panel1.Visible:=not main.panel1.Visible;
n7.Checked:=main.panel1.Visible;
end;

procedure Tmain.N5Click(Sender: TObject);
begin
main.MainPubPanel.Visible:=not main.MainPubPanel.Visible;
n5.Checked:=main.MainPubPanel.Visible;
end;

procedure Tmain.N6Click(Sender: TObject);
begin
listview9.Visible:=not listview9.Visible;
n6.Checked:=listview9.Visible;
end;

procedure Tmain.N10Click(Sender: TObject);
begin
if main.MainPubPanel.Align=alLeft then
   begin
  main.MainPubPanel.Align:=alRight ;
  //ToolPUBPanel.Align:=alRight ;
  end else
  begin
  main.MainPubPanel.Align:=alLeft;
  //ToolPUBPanel.Align:=alLeft;
  end;
N10.Checked:=(main.MainPubPanel.Align <> alLeft);
end;

procedure Tmain.Page1Change(Sender: TObject);
begin
case page1.ActivePageIndex of
0:  main.StatusBar1.Panels[0].Text:=format('当前 %d 项',[listview1.Items.Count]);
1:  main.StatusBar1.Panels[0].Text:=format('当前 %d 项',[listview2.Items.Count]);
2:  main.StatusBar1.Panels[0].Text:=format('当前 %d 项',[listview3.Items.Count]);
3:  main.StatusBar1.Panels[0].Text:=format('当前 %d 项',[listview4.Items.Count]);
4:  main.StatusBar1.Panels[0].Text:=format('当前 %d 项',[listview5.Items.Count]);
5:  main.StatusBar1.Panels[0].Text:=format('当前 %d 项',[listview6.Items.Count]);
6:  main.StatusBar1.Panels[0].Text:=format('当前 %d 项',[listview7.Items.Count]);
7:  main.StatusBar1.Panels[0].Text:=format('当前 %d 项',[listview8.Items.Count]);
8:  main.StatusBar1.Panels[0].Text:=format('当前 %d 项',[listview9.Items.Count]);
end;
ClearMemory;
end;

procedure UPgameset(IsStop:bool);
var hbutton1,hparent1:HWND;
begin
//     hparent:=findwindowex(0,hparent,'#32770',nil);
     hparent1:=FindWindow(nil, '拷贝文件');
     hbutton1:=findwindowEX(hparent1,0,nil,'停止');
  if (hbutton1<>0) then
      begin
//      main.Edit1.Text:='已经找到程序窗口了';
//      ShowWindow(hparent1, SW_HIDE);
        if (not IsStop) then sendmessage(hbutton1,BM_CLICK,0,0);
        //   memo1.Lines.Append('找到了') ;
      end else
    begin
        if  (not IsStop) then
               begin
               main.rePanel.Visible:=false;
               exit;
               end
             else
          begin
            main.StopButton.Caption:='确定';
            main.Label1.Caption:='同步操作已经完成 .';
            main.ProgressBar1.Position:=100;
          end;
      main.REGTimer.Enabled:=false;
    end;
end;

procedure Tmain.REGTimerTimer(Sender: TObject);
begin
try
main.IdUDPServer1.Send(ServerIP,ServerPort,('S_reg'+main.IdUDPServer1.LocalName));
finally
end;
end;

procedure Tmain.StopButtonClick(Sender: TObject);
begin
if StopButton.Caption='取消' then
  begin
  StopButton.Enabled:=false;
  label1.Caption:='正在取消同步，请稍候.......';
  end;
if StopButton.Caption='确定' then
   begin
   rePanel.Visible:=false;
   end;
end;

procedure Tmain.rePanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
with repanel do
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND,$f012,0);
  end;
end;

procedure Tmain.MemoTimerTimer(Sender: TObject);
begin
if main.Active then
   if memo3.Lines.Count>10 then
    begin
     memo3.Lines.Append(memo3.Lines.Strings[0]);
     memo3.Lines.Delete(0);
    end;
end;

procedure SetNet(NetSet:TIPListSet);
var
line1,line2,line3:string;
begin
if application.MessageBox(Pchar(format('要切换到 %s 线路吗 ? ',[NetSet.NetName])),'系统信息',MB_YESNO+MB_Iconquestion)=IDyes then
if (NetSet.NetName <> '') and (NetSet.NetIP <> '') and (NetSet.NetSub <> '')
and (NetSet.aDNS <> '') then
  begin
    line1:= format('netsh interface ip set address name="本地连接" source=static addr=%s mask=%s gateway=%s gwmetric=1',
    [Local_IP,NetSet.NetSub,NetSet.NetIP]);
    line2:=format('netsh interface ip set dns name="本地连接" source=static addr=%s',[NetSet.aDNS]);
    line3:=format('netsh interface ip add dns name="本地连接" addr=%s index=2',[NetSet.bDNS]);
    if isfree then application.Terminate;
    ExeWait(line1,SW_HIDE);
    ExeWait(line2,SW_HIDE);
    ExeWait(line3,SW_HIDE);
    application.MessageBox(Pchar(NetSet.NetName+' 线路切换成功 !'),' 提示 ',mb_ok+MB_ICONINFORMATION);
    end else application.MessageBox('未设置网络参数 !',' 提示 ',mb_ok+MB_ICONINFORMATION);
    end;

procedure Tmain.N8Click(Sender: TObject);
begin
randomize;
UseBackPic:=true;
setbackbmp(format('%s%d.jpg',[selfpath,random(10)]));
end;

procedure Tmain.Action2Execute(Sender: TObject);
begin
if oem then
frmApp.Show;
end;

function StreamToStr(AData: TStream;var StrId:string):string;
var strstream:TStringStream;
begin
  strstream:=TStringStream.Create('');
  try
  AData.Position:=0;
  strstream.CopyFrom(AData,AData.Size);
  StrId:= copy(strstream.DataString,0,5);
  result:=copy(strstream.DataString,6,AData.Size);
  finally
  strstream.Free;
  end;
end;

procedure addgameTop(str1,str2,str3,str4,str5,str6:string;Ietmx:TListItems);
var
  listitem:Tlistitem;
begin
try
listitem:= Ietmx.Add;
listitem.Caption:=str1;
listitem.SubItems.Add(str2);
listitem.SubItems.Add(str3);
listitem.SubItems.Add(str4);
listitem.SubItems.Add(str5);
listitem.SubItems.Add(str6);
listitem.ImageIndex:=19;
finally
end;
end;

procedure StrToGameTop(i:integer;
strx,strs:string;list:TListItems);
var
n1:integer;
str1,str2,str3,str4,str5:string;
begin
try
strs:=copy(strs,1,length(strs));
n1:=pos(strx,strs);
str1:=copy(strs,1,n1-1);
strs:=copy(strs,n1+2,length(strs));

n1:=pos(strx,strs);
str2:=copy(strs,0,n1-1);
strs:=copy(strs,n1+2,length(strs));

n1:=pos(strx,strs);
str3:=copy(strs,0,n1-1);
strs:=copy(strs,n1+2,length(strs));

n1:=pos(strx,strs);
str4:=copy(strs,0,n1-1);
strs:=copy(strs,n1+2,length(strs));

n1:=pos(strx,strs);
if n1 > 0 then  str5:=copy(strs,0,n1) else
str5:=strs;
strs:=copy(strs,n1+2,length(strs));
                                       //timetostr(now)
addgameTop(inttostr(i),str5,str1,str2,str3,str4,main.GameTopListView.Items);
finally
end;
end;

procedure StrsToGameTop(Stream:TStream;Ietmx:TListItems);
var   strs:Tstringlist;
         i:integer;
begin
  Strs:=Tstringlist.Create;
try
Stream.Position:=5;
strs.LoadFromStream(Stream);
main.GameTopListView.Items.Clear;
for i:=0 to strs.Count-1 do
begin
StrToGameTop(i+1,'<>',strs[i],main.GameTopListView.Items);
end;
finally
strs.Free;
end;
end;

procedure Tmain.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
  var  StrId,Str:string;
begin
  if AData.Size < 6 then exit;
  Str:=StreamToStr(AData,StrId);
  if Strid = 'S_reg' then
   begin
    memo4.Lines.Append(format('ID %s , 内容 %s',[StrId,Str]));
    REGTimer.Enabled:=false;
   end;

  if Strid = 'S_gck' then
   begin
     memo4.Lines.Append(format('ID %s , 内容 %s',[StrId,Str]));
     StrsToGameTop(AData,main.GameTopListView.Items);
   end;
end;

procedure Tmain.Button1Click(Sender: TObject);
var i:integer;
begin
for i:= 1 to 5 do                              //IdUDPServer1.LocalName
IdUDPServer1.Send(ServerIP,ServerPort,('S_reg'+format('Game %d',[i])));
end;

procedure Tmain.PassButtonClick(Sender: TObject);
begin
if not not not(PassEdit.Text <> pass) then
  begin
    case  Passbutton.Tag of
    1:   ShowSetup;

    2:   exectools(selfpath+'tools');

    3:   application.Terminate;
    end;

end;
PassBox.Visible:=false;
PassEdit.Clear;
end;

procedure Tmain.Button3Click(Sender: TObject);
begin
PassBox.Visible:=false;
PassEdit.Clear;
end;

procedure Tmain.Panel4MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
with PassBox do
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND,$f012,0);
  end;
end;

procedure Tmain.Button4Click(Sender: TObject);
var i:integer;
begin
for i:= 6 to 11 do                              //IdUDPServer1.LocalName
IdUDPServer1.Send(ServerIP,ServerPort,('S_reg'+format('Game %d',[i])));
end;

procedure Tmain.Panel3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
with panel3 do
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND,$f012,0);
  end;
end;

procedure FindGame(Itemsx:Tlistitems);
var
i:integer;
begin
begin
for i:=0 to Itemsx.Count-1 do
if pos(UpperCase(main.SeachEdit.Text),UpperCase(Itemsx.Item[i].Caption)) <> 0 then
addgamelist(
Itemsx.Item[i].Caption,
Itemsx.Item[i].SubItems[0],
Itemsx.Item[i].SubItems[1],
Itemsx.Item[i].SubItems[2],
Itemsx.Item[i].SubItems[3],
Itemsx.Item[i].SubItems[4],
Itemsx.Item[i].SubItems[5],
main.ListView9.items);
end;
end;

procedure Tmain.ViewBtnClick(Sender: TObject);
begin
if SeachEdit.Text = '' then exit;
main.SeathTab.TabVisible:=true;
Listview9.Items.Clear;
if TabSheet1.TabVisible then FindGame(Listview1.Items);
if TabSheet2.TabVisible then FindGame(Listview2.Items);
if TabSheet3.TabVisible then FindGame(Listview3.Items);
if TabSheet4.TabVisible then FindGame(Listview4.Items);
if TabSheet5.TabVisible then FindGame(Listview5.Items);
if TabSheet6.TabVisible then FindGame(Listview6.Items);
if TabSheet7.TabVisible then FindGame(Listview7.Items);
if TabSheet8.TabVisible then FindGame(Listview8.Items);
Page1.ActivePage:=SeathTab;
end;

procedure Tmain.RzPanel5MouseEnter(Sender: TObject);
begin
MemoTimer.Enabled:=false;
end;

procedure Tmain.RzPanel5MouseLeave(Sender: TObject);
begin
MemoTimer.Enabled:=true;
end;

procedure Tmain.RzToolButton1Click(Sender: TObject);
begin
if MainPubPanel.Visible and (page2.ActivePageIndex=0) then
begin
MainPubPanel.Visible:=false;
exit;
end;
MainPubPanel.Visible:=true;
page2.ActivePageIndex:=0;
end;

procedure Tmain.N_net1Click(Sender: TObject);
begin
SetNet(IPListSet1);
end;

procedure Tmain.N_net2Click(Sender: TObject);
begin
SetNet(IPListSet2);
end;
function CustomSortProc2(Item1, Item2: TListItem; ColumnIndex: integer): integer; stdcall;
var i:integer;
begin
//if VSort then i:=1 else i:=-1;
i:=1;
try
if ColumnIndex = 0 then
Result := -(StrToInt(Item1.Caption) - StrToInt(Item2.Caption)) * i
else
Result := -(StrToInt(Item1.SubItems[ColumnIndex-1]) - StrToInt(Item2.SubItems[ColumnIndex-1])) * i;
finally;
end;
end;

procedure ReListGameTop(ColumnIndex:integer);
begin
main.GameTopListView.CustomSort(@CustomSortProc2,ColumnIndex);
case ColumnIndex of
2:   main.GameTopLabel.Caption:='游戏排行榜 - 总排行';
3:   main.GameTopLabel.Caption:='游戏排行榜 - 月排行';
4:   main.GameTopLabel.Caption:='游戏排行榜 - 周排行';
5:   main.GameTopLabel.Caption:='游戏排行榜 - 日排行';
end;
main.GameTopListView.Columns.Items[2].Width:=0;
main.GameTopListView.Columns.Items[3].Width:=0;
main.GameTopListView.Columns.Items[4].Width:=0;
main.GameTopListView.Columns.Items[5].Width:=0;
main.GameTopListView.Columns.Items[ColumnIndex].Width:=52;
end;

procedure Tmain.NoteBtnClick(Sender: TObject);
begin
if MainPubPanel.Visible and (page2.ActivePageIndex=2) then
begin
MainPubPanel.Visible:=false;
exit;
end;
MainPubPanel.Visible:=true;
page2.ActivePageIndex:=2;
end;

procedure Tmain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   if NeedOutPass then
    begin
    CanClose:=false;
    PassBox.Top:=main.ClientHeight div 3;
    PassBox.Left:=main.ClientWidth div 3;
    PassBox.Show;
    PassEdit.SetFocus;
    Passbutton.Tag:=3;
    end;
end;

procedure Tmain.ClenToolButtonClick(Sender: TObject);
begin
LYEdit.Text:='';
LYMemo.Lines.Clear;
end;

procedure Tmain.RzToolButton3Click(Sender: TObject);
begin
if (LYEdit.Text = '请输入姓名') or (LyMemo.Lines[0] = '请输入留言内容')
    or (LYEdit.Text = '') or (LyMemo.Lines[0] = '') then
application.MessageBox('请输入您的 "姓名" 和 "留言内容" ，谢谢您的支持 .',' 提示 ',mb_ok+MB_ICONINFORMATION)
else
if application.MessageBox('您要提交这条留言吗 ? ','系统信息',MB_YESNO+MB_Iconquestion)=IDyes then
begin
      IdUDPServer1.Send(ServerIP,ServerPort,('S_lys'+
      format('[%s] %s 留言说: %s',[DateTimeToStr(now),LYEdit.Text,LyMemo.Lines.Text])));
      application.MessageBox('感谢您的留言，我们会尽快处理您的意见和建议 。 ',' 提示 ',mb_ok+MB_ICONINFORMATION);
      ClenToolButton.Click;
     end;
end;

procedure Tmain.N22Click(Sender: TObject);
begin
   Passbutton.Tag:=2;
   PassBox.Top:=main.ClientHeight div 3;
   PassBox.Left:=main.ClientWidth div 3;
   PassBox.Show;
   PassEdit.SetFocus;
end;

procedure Tmain.VolumeBtnClick(Sender: TObject);
begin
exectools(ToolsInfo.Tools5);
end;

procedure Tmain.PassEditKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then PassButton.Click;
end;

procedure Tmain.Page2Change(Sender: TObject);
begin
if (Page2.ActivePage = GameTopTabSheet) and (GameTopListView.Items.Count = 0)
   then RefreshBtn.Click;
end;

procedure Tmain.LYEditEnter(Sender: TObject);
begin
if (LYEdit.Text = '请输入姓名') then
   begin
    LYEdit.Text:='';
    LYEdit.Font.Color:=clBlack;
   end;
end;

procedure Tmain.LYEditExit(Sender: TObject);
begin
if (LYEdit.Text = '') then
  begin
   LYEdit.Text:='请输入姓名';
   LYEdit.Font.Color:=clSilver;
  end;
end;

procedure Tmain.LYMemoEnter(Sender: TObject);
begin
if (LYMemo.Lines[0] = '请输入留言内容') then
   begin
    LYMemo.Text:='';
    LYMemo.Font.Color:=clBlack;
   end;
end;

procedure Tmain.LYMemoExit(Sender: TObject);
begin
if (LYMemo.Lines[0] = '') then
  begin
   LYMemo.lines.Text:='请输入留言内容';
   LYMemo.Font.Color:=clSilver;
  end;
end;

end.
function  ckokpath(path:string):string;
procedure setcolor(colorx,colorx1:Tcolor);
procedure saveseting(num:integer;itemsx:TListItems);
implementation
uses gamemenu,UseIniFile;
{$R *.dfm}

procedure foundwg2(listviewx,wglistview,swglistview:Tlistview);
var
i:integer;
ls:string;
begin
if listviewx.ItemIndex > -1 then
begin
//swglistview.Items.Clear;
ls:=listviewx.Items.Item[listviewx.ItemIndex].SubItems[2];
for i:=0 to wglistview.Items.Count-1 do
if pos((','+inttostr(i)),ls) <> 0 then
swglistview.Items.Item[i].Checked:=true else
swglistview.Items.Item[i].Checked:=false;
end;
end;

procedure listtoedit(listviewx:Tlistview);
var
i:integer;
begin
if listviewx.ItemIndex >-1 then
begin
i:=listviewx.ItemIndex;
setgame.Edit1.Text:=listviewx.Items.Item[i].Caption;
setgame.Edit2.Text:=listviewx.Items.Item[i].SubItems[0];
setgame.Edit3.Text:=listviewx.Items.Item[i].SubItems[1];
setgame.Edit4.Text:=listviewx.Items.Item[i].SubItems[3];
setgame.Edit5.Text:=listviewx.Items.Item[i].SubItems[5];
setgame.memo1.Text:=setgame.edit4.Text;
setgame.wgListView.Items.Assign(setgame.ListView8.Items);
foundwg2(listviewx,setgame.ListView8,setgame.wgListView);
end;
end;

function cklistviewtostr(listviewx:Tlistview):string;
var
i:integer;
ls:string;
begin
ls:='';
for i:=0 to listviewx.Items.Count-1 do
begin
if listviewx.Items[i].Checked then ls:=ls+','+inttostr(i);
end;
result:=ls+',';
end;

procedure edittolist(listviewx:Tlistview);
var
I:integer;
begin
if listviewx.ItemIndex >-1 then
begin
i:=listviewx.ItemIndex;
listviewx.Items.Item[i].Caption:=setgame.Edit1.Text;
listviewx.Items.Item[i].SubItems[0]:=setgame.Edit2.Text;
listviewx.Items.Item[i].SubItems[1]:=setgame.Edit3.Text;
listviewx.Items.Item[i].SubItems[2]:=cklistviewtostr(setgame.wgListView);
listviewx.Items.Item[i].SubItems[3]:=setgame.Edit4.Text;
end;
end;
procedure MoveItemUp(ListViewx:TListView);
var i:integer; ListItemx:TlistItem;
begin
i:=ListViewx.ItemIndex ;
if  (i <> -1) and (i > 0) then
  begin
   Listitemx:=ListViewx.Items.Insert(i-1);
   Listitemx.Caption:=ListViewx.Items.Item[i+1].Caption;
   Listitemx.SubItems:=ListViewx.Items.Item[i+1].SubItems;
   ListItemx.ImageIndex:=ListViewx.Items.Item[I+1].ImageIndex;
   ListViewx.Items.Delete(i+1);
   ListViewx.ItemIndex:=I-1;
   ListViewx.Items[i-1].MakeVisible(true);
  end;
end;

procedure MoveItemDown(ListViewx:TListView);
var i:integer; ListItemx:TlistItem;
begin
i:=ListViewx.ItemIndex ;
if  (i <> -1) and (i < ListViewx.Items.Count-1) then
  begin
   Listitemx:=ListViewx.Items.Insert(i+2);
   Listitemx.Caption:=ListViewx.Items.Item[i].Caption;
   Listitemx.SubItems:=ListViewx.Items.Item[i].SubItems;
   ListItemx.ImageIndex:=ListViewx.Items.Item[i].ImageIndex;
   ListViewx.Items.Delete(i);
   ListViewx.ItemIndex:=I+1;
   ListViewx.Items[i+1].MakeVisible(true);
  end;
end;

procedure Tsetgame.Button6Click(Sender: TObject);
begin
case setnum of
0:  MoveItemUp(ListView1);
1:  MoveItemUp(ListView2);
2:  MoveItemUp(ListView3);
3:  MoveItemUp(ListView4);
4:  MoveItemUp(ListView5);
5:  MoveItemUp(ListView6);
6:  MoveItemUp(ListView7);
7:  MoveItemUp(ListView8);
end;
end;

procedure Tsetgame.Button5Click(Sender: TObject);
begin
case setnum of
0:  MoveItemDown(ListView1);
1:  MoveItemDown(ListView2);
2:  MoveItemDown(ListView3);
3:  MoveItemDown(ListView4);
4:  MoveItemDown(ListView5);
5:  MoveItemDown(ListView6);
6:  MoveItemDown(ListView7);
7:  MoveItemDown(ListView8);
end;
end;

procedure Tsetgame.PicCombo1Select(Sender: TObject);
begin
OkPic:=setbackbmp(format('%s%d.jpg',[selfpath,PicCombo1.ItemIndex]));
end;

procedure Tsetgame.wgListViewExit(Sender: TObject);
begin
SetGameInfo;
end;

procedure Tsetgame.LS_ColorLabelClick(Sender: TObject);
begin
if ColorDialog1.Execute then
begin
colorpanel.Color:=ColorDialog1.Color;
setcolor(colorpanel.Color,colorpanel.Font.Color);
end;
end;

procedure Tsetgame.Label7Click(Sender: TObject);
begin
if ColorDialog1.Execute then
begin
GameLabel.Color:=ColorDialog1.Color;
SetPage1(GameLabel);
end;
end;

procedure Tsetgame.Label40Click(Sender: TObject);
begin
if ColorDialog1.Execute then
begin
GameLabel.TextColor:=ColorDialog1.Color;
SetPage1(GameLabel);
end;
end;

procedure Tsetgame.LabelTrackChange(Sender: TObject);
begin
GameLabel.Height:=LabelTrack.Position;
SetPage1(GameLabel);
end;

procedure Tsetgame.TabStyleTrackChange(Sender: TObject);
begin
GameLabel.TabStyle:=TabStyleTrack.Position;
SetPage1(GameLabel);
end;

procedure Tsetgame.FontSizeTrackChange(Sender: TObject);
begin
GameLabel.fontSize:=FontSizeTrack.Position;
SetPage1(GameLabel);
end;

procedure Tsetgame.TabWidethTrackChange(Sender: TObject);
begin
GameLabel.TabWidth:=TabWidethTrack.Position;
SetPage1(GameLabel);
end;

procedure Tsetgame.Button7Click(Sender: TObject);
begin
setgame.WindowState:=wsMinimized;
application.ProcessMessages;
SetGameInfo;
saveini;
setgame.WindowState:=wsNormal;
end;

procedure Tsetgame.LS_FontColorLabelClick(Sender: TObject);
begin
if ColorDialog1.Execute then
begin
setgame.colorpanel.Font.Color:=ColorDialog1.Color;
setcolor(colorpanel.Color,colorpanel.Font.Color);
end;
end;

procedure Tsetgame.AsDesktopCkMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
application.MessageBox('重新启动程序后此设置才生效  !',' 提示 ',mb_ok+MB_ICONINFORMATION);
end;

procedure Tsetgame.Checkls1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Checkls1.Checked:=true;
application.MessageBox('第一个分类不能隐藏，您可以修改为其它名称，例如 "最新推荐"  !',' 提示 ',mb_ok+MB_ICONINFORMATION);
end;

procedure Tsetgame.Button10Click(Sender: TObject);
begin
button11.Click;
setgame.Close;
end;

procedure Tsetgame.DeTool1Click(Sender: TObject);
begin
Tooledit1.text:=format('%stools/Grachics.lnk',[selfpath]);end;

procedure Tsetgame.DeTool2Click(Sender: TObject);
begin
Tooledit2.text:=format('%stools/IME.exe',[selfpath]);
end;

procedure Tsetgame.DeTool3Click(Sender: TObject);
begin
Tooledit3.text:=format('%stools/key.lnk',[selfpath]);
end;

procedure Tsetgame.DeTool4Click(Sender: TObject);
begin
Tooledit4.text:=format('%stools/mouse.lnk',[selfpath]);
end;

procedure Tsetgame.DeTool5Click(Sender: TObject);
begin
Tooledit5.text:='C:/WINDOWS/system32/sndvol32.exe';
end;

procedure RunTool(Path:string);
begin
exectools(path);
end;

procedure Tsetgame.ToolTest1Click(Sender: TObject);
begin
Runtool(ToolEdit1.Text);
end;

procedure Tsetgame.ToolTest2Click(Sender: TObject);
begin
Runtool(ToolEdit2.Text);
end;

procedure Tsetgame.Button12Click(Sender: TObject);
begin
winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9);

end;

procedure Tsetgame.ToolTest5Click(Sender: TObject);
begin
Runtool(ToolEdit5.Text);
end;

procedure Tsetgame.ToolTest4Click(Sender: TObject);
begin
Runtool(ToolEdit4.Text);
end;

procedure Tsetgame.ToolTest3Click(Sender: TObject);
begin
Runtool(ToolEdit3.Text);
end;

end.