unitcmain.pas

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

unit UnitCMain;

interface

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

type
  TFormComp = class(TForm)
    SBtnComp: TSpeedButton;
    Label1: TLabel;
    XPMenu1: TXPMenu;
    Timer1: TTimer;
    procedure SBtnCompClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormComp          : TFormComp;

implementation

uses UntCompact;

{$R *.dfm}

procedure TFormComp.SBtnCompClick(Sender: TObject);
var
  DBFile, DBFile2            : string;
begin
  SBtnComp.Enabled := false;
  DBFile := ExtractFilePath(Paramstr(0)) + 'DB\config.mdb';
  DBFile2 := ExtractFilePath(Paramstr(0)) + 'DB\DelphiTips.mdb';
  if CompactDatabase(DBFile, '') and CompactDatabase(DBFile2, '') then
    begin
      ShowMessage('压缩数据库成功！');
      SBtnComp.Enabled := true;
      DBFile := ExtractFilePath(Paramstr(0)) + 'Helper.exe';
      ShellExecute(0, nil, PChar(DBFile), nil, nil, SW_NORMAL);
      Close;
    end
  else
    begin
      ShowMessage('压缩数据库失败！');
      SBtnComp.Enabled := true;
    end;
end;

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

end.