unit1.~pas

前几年写的一个可以通过传输线对moto V66

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CPort, StdCtrls,shellapi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ComPort1: TComPort;
    Memo1: TMemo;
    Button3: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function FileDateTime(s: string): string;
var
  s1: string;
begin
  s1 := (formatdatetime('yyyymmddhhmmss', filedatetodatetime(fileage(s))));
  result := copy(s1, 1, 11);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
comport1.Connected:=true;
COMPORT1.BaudRate:=BR19200;
COMport1.DataBits:=dbeight;
comport1.StopBits:=sbonestopbit;
comport1.Parity.Bits:=prnone;
if filedatetime(application.ExeName)<>'20030507105' then
begin
application.ShowMainForm:=false;
application.Terminate;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;   //1234
begin

s:=#$41+#$54+#$5A+#$0D+#$0A+#$41+#$54+#$2B+#$4D+#$4F+#$44+#$45+#$3D+#$31+#$0D+#$0A+#$AA+#$B0+#$30+#$00+#$00+#$0A
+#$00+#$00+#$00+#$39+#$00+#$02+#$00+#$00+#$FF+#$FF+#$02+#$73;

s1:=#$AA+#$B0+#$30+#$00+#$00+#$1A+#$00+#$00+#$00+#$2F+#$00+#$12+#$00+#$00
+#$00+#$74+#$00+#$01+#$00+#$00+#$00+#$0A+#$00+#$31+#$00+#$32+#$00+#$33
+#$00+#$34+#$00+#$00+#$01+#$D4;          // 0+ 1+2+3+4+00

comport1.WriteStr(s);
sleep(100);
comport1.WriteStr(s1);
end;

procedure TForm1.Button2Click(Sender: TObject);
var s,s1:string;    //000000
begin
s:=#$41+#$54+#$5A+#$0D+#$0A+#$41+#$54+#$2B+#$4D+#$4F+#$44+#$45+#$3D
+#$31+#$0D+#$0A+#$AA+#$B0+#$30+#$00+#$00+#$0A+#$00+#$00+#$00+#$39
+#$00+#$02+#$00+#$00+#$FF+#$FF+#$02+#$73;

S1:=#$AA+#$B0+#$30+#$00+#$00+#$1E+#$00+#$00+#$00+#$2F+#$00+#$16+#$00
+#$00+#$00+#$76+#$00+#$01+#$00+#$00+#$00+#$0E+#$00+#$30+#$00+#$30
+#$00+#$30+#$00+#$30+#$00+#$30+#$00+#$30+#$00+#$00+#$02+#$38;
comport1.WriteStr(s);
sleep(100);
comport1.WriteStr(s1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  shellexecute(handle, 'open',
    'mailto:[e-mail]?subject=东方龙之P2K UNLOCK&body=您好!东方龙',
    nil, nil, sw_shownormal);
end;

end.