whkz.pas

利用网络高效维护机房

unit whkz;

interface

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

type
  TKzForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    MnSet: TMenuItem;
    N4: TMenuItem;
    MnExit: TMenuItem;
    MnRun: TMenuItem;
    MnStop: TMenuItem;
    procedure MnRunClick(Sender: TObject);
    procedure MnStopClick(Sender: TObject);
    procedure MnSetClick(Sender: TObject);
    procedure MnExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KzForm: TKzForm;

implementation


uses setting, weihu;

{$R *.dfm}

procedure TKzForm.MnRunClick(Sender: TObject);
var
  strlist:TStrings;
begin
  self.MnRun.Checked:=true;
  strlist:=Tstringlist.Create;
  strlist.SaveToFile(startFile);
  strlist.Free;
end;

procedure TKzForm.MnStopClick(Sender: TObject);
begin
  self.MnStop.Checked:=true;
  deletefile(startFile);
end;

procedure TKzForm.MnSetClick(Sender: TObject);
begin
  SetForm.ShowModal;
end;

procedure TKzForm.MnExitClick(Sender: TObject);
begin
  close;
end;

procedure TKzForm.FormShow(Sender: TObject);
begin
  exePath:=extractFilePath(application.ExeName);
  if fileexists(exepath+startFile) then
    MnRun.Checked:=true
  else
    MnStop.Checked:=true;

end;

end.