unit3.pas

这是我自己用DELPHI写的一个完全模仿WINDOWS扫雷的游戏

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    chutime: TLabel;
    zhongtime: TLabel;
    gaotime: TLabel;
    chuname: TLabel;
    zhongname: TLabel;
    gaoname: TLabel;
    bitrecount: TButton;
    bitok: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure bitokClick(Sender: TObject);
    procedure bitrecountClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses unit1;
{$R *.dfm}

procedure TForm3.bitokClick(Sender: TObject);
begin
form3.Close;
end;

procedure TForm3.bitrecountClick(Sender: TObject);
begin
form1.Writetoreg('匿名',999,form1.Menchuji);
form1.Writetoreg('匿名',999,form1.Menzhongji);
form1.Writetoreg('匿名',999,form1.Mengaoji);
form1.readfromreg;
end;

procedure TForm3.FormCreate(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;

    Reg.RootKey := HKEY_CURRENT_USER;
    if not Reg.OpenKey('\MinMine\MinMine Hero\',false) then 
      begin
        reg.CloseKey;
        reg.OpenKey('\MinMine\MinMine Hero\',true);
        form1.Writetoreg('匿名',999,form1.Menchuji);
        form1.Writetoreg('匿名',999,form1.Menzhongji);
        form1.Writetoreg('匿名',999,form1.Mengaoji);
      end;

   form1.readfromreg;

   reg.Free;

end;

end.