control.~pas

串口监控程序,可与UPS进行通信,适合初学者使用

unit control;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, ComCtrls, jpeg, ExtCtrls, Spin, Buttons;

type
  Tfcontrol = class(TForm)
    GroupBox1: TGroupBox;
    RzButton5: TRzButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    SpinEdit1: TSpinEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure exitwin32sys(iflags: integer);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fcontrol: Tfcontrol;

implementation
  uses
  main;
{$R *.dfm}

procedure Tfcontrol.BitBtn1Click(Sender: TObject);
begin
 fmain.Timer1.Enabled :=false;
 fmain.Comm1.WriteCommData(Pchar(HexStrToStr(order[3])),Length(HexStrToStr(order[3])));
 sleep(3000);
 fmain.Timer1.Enabled :=true;

end;

procedure Tfcontrol.BitBtn2Click(Sender: TObject);
begin
 fmain.Timer1.Enabled :=false;
 fmain.Comm1.WriteCommData(Pchar(HexStrToStr(order[3])),Length(HexStrToStr(order[3])));
 sleep(3000);
 fmain.Timer1.Enabled :=true;
end;


 procedure Tfcontrol.exitwin32sys(iflags: integer);
    begin
    if getsystypes then
    exitwindowsex(iflags,0)
    else

    if setprivilege('seshutdownprivilege',true) then
    if not exitwindowsex(iflags,0) then
    setprivilege('seshutdownprivilege',false);
    end;

procedure Tfcontrol.BitBtn6Click(Sender: TObject);
begin
 exitwin32sys(1);
end;

end.