getapass.pas

来自「这是本人使用Borland Delphi 6编写的提取Microsoft Off」· PAS 代码 · 共 49 行

unit GetAPass;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Variants, ComOBJ, StdCtrls, ExtCtrls, ComCtrls, FileCtrl, ActnList, ImgList,
  ToolWin;

const
  Model = 'yyyy-mm-dd hh:nn:ss';

type
  PassType = record
    PassCode: String;
    FileType: String;
    FileTime: TDateTime;
  end;

  TPassForm = class(TForm)
    ListView1: TListView;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    Memo1: TMemo;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    cmdSetCurTime: TToolButton;
    cmdGetAllPass: TToolButton;
    cmdCreateMDB: TToolButton;
    cmdSelectMDBDir: TToolButton;
    cmdCloseForm: TToolButton;
    Edit1: TEdit;
    Pick1: TDateTimePicker;
    Splitter1: TSplitter;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure cmdSelectMDBDir_Click(Sender: TObject);
    procedure cmdGetAllPass_Click(Sender: TObject);
    procedure cmdCreateMDB_Click(Sender: TObject);
    procedure cmdSetCurTime_Click(Sender: TObject);
    procedure cmdCloseForm_Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    procedure ExecDirectory(S: String);
    procedure SetTime(MYDate: TDate); overload;
    procedure SetTime(YY, MM, DD: Word); overload;
    function CreateDatabaseAccessVer(dbName: String): Boolean;
    function CreateDatabaseXP(dbName: String; Password: String = ''): Boolean;
    function GetMicrosoftAccessPassword(mdbName: String): PassType; {矗