login.pas

自己编写的简单禁用usb端口的程序。 演示程序登录密码99366

unit login;

interface

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

type
  TForm_login = class(TForm)
    Button_OK: TButton;
    EditPass: TEdit;
    procedure Button_OKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_login: TForm_login;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm_login.Button_OKClick(Sender: TObject);
begin
  if EditPass.Text = '99366' then
     ModalResult := 1
     else  application.Terminate;
end;

procedure TForm_login.FormCreate(Sender: TObject);
begin
  self.Left:=(screen.Width-self.Width) div 2;
  self.Top:=(screen.Height-self.Height) div 2 + 80;
  SetWindowPos(Handle,Hwnd_Topmost,0,0,0,0,(SWP_NOMOVE   Or   SWP_NOSIZE));   //前端显示  
end;

procedure TForm_login.FormActivate(Sender: TObject);
begin
  editpass.SetFocus;
end;

end.