untmain.pas

来自「delphi制作的帮助学习软件」· PAS 代码 · 共 73 行

unit UntMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, XPMenu, StdCtrls, ShellAPI, ExtCtrls;

type
  TFormMain = class(TForm)
    SBtnBackUp: TSpeedButton;
    SBtnRestore: TSpeedButton;
    XPMenu1: TXPMenu;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    procedure SBtnBackUpClick(Sender: TObject);
    procedure SBtnRestoreClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain          : TFormMain;

implementation

uses datafrm;

{$R *.dfm}

procedure TFormMain.SBtnBackUpClick(Sender: TObject);
var
  DBFile            : string;
begin
  SBtnBackUp.Enabled := false;
  SBtnRestore.Enabled := false;
  datafrm.Show_Backup;
  SBtnBackUp.Enabled := true;
  SBtnRestore.Enabled := true;
  DBFile := ExtractFilePath(Paramstr(0)) + 'Helper.exe';
  ShellExecute(0, nil, PChar(DBFile), nil, nil, SW_NORMAL);
  Close;
end;

procedure TFormMain.SBtnRestoreClick(Sender: TObject);
var
  DBFile            : string;
begin
  SBtnRestore.Enabled := false;
  SBtnBackUp.Enabled := false;
  datafrm.Show_Restore;
  SBtnRestore.Enabled := true;
  SBtnBackUp.Enabled := true;
  DBFile := ExtractFilePath(Paramstr(0)) + 'Helper.exe';
  ShellExecute(0, nil, PChar(DBFile), nil, nil, SW_NORMAL);
  Close;
end;

procedure TFormMain.Timer1Timer(Sender: TObject);
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    begin
      SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
      Application.ProcessMessages;
    end;
end;

end.