unit1.pas

本代码系统介绍了运筹学算法及编程实践

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    M1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    Image1: TImage;
    N7: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure M1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  fontsize:Integer;
implementation

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\11.exe';
  winexec(pchar(filename),sw_shownormal);
end;
procedure TForm1.N4Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\12.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.M1Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\13.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N5Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\14.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N53Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\15.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N54Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\16.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N7Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\65.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N11Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\21.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N12Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\22.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N9Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\23.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N10Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\24.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N14Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\31.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N15Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\32.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N16Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\34.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N17Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\33.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N19Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\41.exe';
  winexec(pchar(filename),sw_shownormal);
end;
procedure TForm1.N20Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\42.exe';
  winexec(pchar(filename),sw_shownormal);
end;
procedure TForm1.N21Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\43.exe';
  winexec(pchar(filename),sw_shownormal);
end;
procedure TForm1.N22Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\44.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N24Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\51.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N25Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\52.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N26Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\53.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N29Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\61.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N30Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\62.exe';
  winexec(pchar(filename),sw_shownormal);
end;
procedure TForm1.N31Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\63.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N32Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\64.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N34Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\71.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N35Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\72.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N36Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\73.exe';
  winexec(pchar(filename),sw_shownormal);
end;
procedure TForm1.N37Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\74.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N38Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\75.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N40Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\81.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N41Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\82.exe';
  winexec(pchar(filename),sw_shownormal);
end;
procedure TForm1.N42Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\83.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N43Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\84.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N44Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\85.exe';
  winexec(pchar(filename),sw_shownormal);
end;
procedure TForm1.N46Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\91.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N47Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\92.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N48Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\93.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N55Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\1011.exe';
  winexec(pchar(filename),sw_shownormal);
end;


procedure TForm1.N56Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\1012.exe';
  winexec(pchar(filename),sw_shownormal);
end;


procedure TForm1.N57Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\1013.exe';
  winexec(pchar(filename),sw_shownormal);
end;


procedure TForm1.N58Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\1014.exe';
  winexec(pchar(filename),sw_shownormal);
end;


procedure TForm1.N59Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\1021.exe';
  winexec(pchar(filename),sw_shownormal);
end;


procedure TForm1.N60Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\1022.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N61Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\1023.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N62Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\1024.exe';
  winexec(pchar(filename),sw_shownormal);
end;
procedure TForm1.N63Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\1025.exe';
  winexec(pchar(filename),sw_shownormal);
end;

procedure TForm1.N52Click(Sender: TObject);
var
  filename:string;
begin
  getdir(0,filename);
  filename:=filename+'\Exe\1031.exe';
  winexec(pchar(filename),sw_shownormal);
end;

function GetMenuFontSize: Integer; 
var 
  ncm: TNonClientMetrics; 
  PixelsPerInch: integer; 
begin 
  ncm.cbSize := sizeof(TNonClientMetrics); 
  SystemParametersInfo( 
    SPI_GETNONCLIENTMETRICS,
    sizeof(NONCLIENTMETRICS), 
    @ncm, 
    SPIF_UPDATEINIFILE 
  ); 
  PixelsPerInch := GetDeviceCaps(GetDC(0), LOGPIXELSY); 
  Result := -MulDiv(ncm.lfMenuFont.lfHeight, 72, PixelsPerInch); 
end; 
{----------------获取菜单字体-----------------------------------------}

procedure SetMenuFontSize(FontSize: Integer);
var 
  ncm: TNonClientMetrics; 
  PixelsPerInch: Integer; 
begin 
  ncm.cbSize := sizeof(TNonClientMetrics); 
  SystemParametersInfo(
    SPI_GETNONCLIENTMETRICS,
    sizeof(NONCLIENTMETRICS), 
    @ncm, 
    0 
  );
  PixelsPerInch := GetDeviceCaps(GetDC(0), LOGPIXELSY);
  ncm.lfMenuFont.lfHeight := -MulDiv(FontSize, PixelsPerInch, 72);
  SystemParametersInfo( 
    SPI_SETNONCLIENTMETRICS, 
    sizeof(NONCLIENTMETRICS), 
    @ncm,
    SPIF_UPDATEINIFILE
  ); 
end;
{----------------设置菜单字体-----------------------------------------}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('pic/bgpic.bmp') ;
  //fontsize:= GetMenuFontSize;
  //MainMenu1.OwnerDraw:=true;
  //screen.MenuFont.name:='宋体';
  //Screen.MenuFont.Size:=10;
 // SetMenuFontSize(12);

end;

end.