?? auautoupgraderpassword.int
字號:
{*******************************************************************************
AutoUpgrader Professional
FILE: auAutoUpgraderPassword.pas - Password Request form
Copyright (c) 1999-2004 UtilMind Solutions
All rights reserved.
E-Mail: info@utilmind.com
WWW: http://www.utilmind.com, http://www.appcontrols.com
The entire contents of this file is protected by International Copyright
Laws. Unauthorized reproduction, reverse-engineering, and distribution of all
or any portion of the code contained in this file is strictly prohibited and
may result in severe civil and criminal penalties and will be prosecuted to
the maximum extent possible under the law.
*******************************************************************************}
unit auAutoUpgraderPassword;
interface
uses
Windows, Classes, Controls, Forms, StdCtrls,
ExtCtrls, auAutoUpgrader, Graphics;
type
TauAutoUpgraderPasswordForm = class(TForm)
Label1: TLabel;
Image1: TImage;
BottomPanel: TPanel;
UsernameLab: TLabel;
PasswordLab: TLabel;
UsernameEdit: TEdit;
PasswordEdit: TEdit;
OKBtn: TButton;
CancelBtn: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure OKBtnClick(Sender: TObject);
private
AutoUpgrader: TauAutoUpgrader;
public
end;
var
PasswordForm: TauAutoUpgraderPasswordForm = nil;
function ShowPasswordBox(aAutoUpgrader: TauAutoUpgrader; FileName: String): Boolean;
implementation
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -