unit1.pas

游戏菜单,pottos写的调用VD的菜单.(附菜单全部源码)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList,UsClass,Shellapi, Menus,inifiles;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    ListView1: TListView;
    TabControl1: TTabControl;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure TabControl1Change(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Tabc:TC;
  vi:TlistViewBox;
  Dir:string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Dir:=ExtractFilePath(Application .ExeName);
   Tabc:=TC.Create(Dir+'\setup.ini');
   TabControl1.Tabs:=Tabc.T;

end;

procedure TForm1.TabControl1Change(Sender: TObject);
var
 title:integer;
begin
  title:=TabControl1.TabIndex;
  vi:=TlistViewBox.Create(ListView1,ImageList1,Dir+Tabc.GetPath(title));
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
var
 selec:integer;
begin
  selec:=ListView1.ItemIndex;
  if selec<0 then exit;
  Shellexecute(0,'Open',pchar(Dir+'\load.exe'),'',Pchar(Dir),1);
end;

procedure TForm1.ListView1Click(Sender: TObject);
var
 selec:integer;
 TE:TExecute;
 Title:string;
begin
  selec:=ListView1.ItemIndex;
  if selec<0 then exit;
    Title:=ListView1.Items.Item[selec].Caption;
    TE:=TExecute.Create(Title,Dir+Tabc.GetPath(TabControl1.TabIndex),Dir+'\load.ini');

end;

procedure TForm1.N3Click(Sender: TObject);
var
 selec:integer;
 Gamedir:string;
 ini:Tinifile;
begin
  selec:=ListView1.ItemIndex;
  if selec<0 then exit;
  ini:=Tinifile.Create(dir+'\load.ini');
  Gamedir:=ini.ReadString('Game','Udir','');
  Shellexecute(0,'Open',pchar('explorer.exe'),Pchar(Gamedir),Pchar(Dir),1);

end;

procedure TForm1.FormShow(Sender: TObject);
begin
  vi:=TlistViewBox.Create(ListView1,ImageList1,Dir+Tabc.GetPath(0));
  //-------------------自定义外表
  application.Title:='游戏菜单';
end;

end.