【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:denglu.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit denglu;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, WebDisp, StdCtrls, Buttons,shellapi, DB, DBTables;
type
TPassworddlg = class(TForm)
Image1: TImage;
GroupBox1: TGroupBox;
Label3: TLabel;
Label1: TLabel;
Password: TEdit;
Label4: TLabel;
ComboBox1: TComboBox;
Bevel1: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label4Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Passworddlg: TPassworddlg;
timeid:integer;
quanxian:string;
implementation
{$R *.dfm}
procedure TPassworddlg.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label4.Font.Color:=clblue;
end;
procedure TPassworddlg.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label4.Font.Color :=clmaroon;
end;
procedure TPassworddlg.Label4Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('mailto:
denglu.pas为[网学网-网友上传,谢谢支持]。'),nil,nil,sw_shownormal);
end;
procedure TPassworddlg.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
perform(WM_NEXTDLGCTL,0,0);
END;
end;
procedure TPassworddlg.FormCreate(Sender: TObject);
var
datafile:file;
NumRead,NumWrite,ii:integer;
siz:longint;
FileOk:boolean;
buf:string[60];
begin
FileOk:=true;
assignfile(datafile,'sys.ini');
if fileexists('sys.ini')=false then
fileok:=false
else
begin
reset(datafile);
siz:=filesize(datafile);
if siz<24 then
fileok:=false;
end;
if fileok=false then
begin
rewrite(datafile,1);
buf:='system';
blockwrite(datafile,buf,12,numwrite);
buf:='system';
blockwrite(datafile,buf,12,numwrite);
buf:='renshi';
blockwrite(datafile,buf,12,numwrite);
buf:='renshi';
blockwrite(datafile,buf,12,numwrite);
buf:='caiwu';
blockwrite(datafile,buf,12,numwrite);
buf:='caiwu';
blockwrite(datafile,buf,12,numwrite);
closefile(datafile);
end;
reset(datafile,1);
repeat
blockread(datafile,buf,12,numread);
if numread>10 then
combobox1.Items.Add(buf);
blockread(datafile,buf,12,numread);
until(numread=0);
closefile(datafile);
end;
end.
上一篇:
frmfindbook.frm
下一篇:
法律专业开题报告范文