types.pas

可以获得qq密码

unit Types;

interface

uses
  Windows,Messages,Classes;

type
  Tmhotkey=record
    cusHotkey:boolean;
    shift:boolean;
    ctrl:boolean;
    alt:boolean;
    key:word;
  end;
  TOption=record
    autorun:boolean;
    password:string;
    OptWinHotkey:tmhotkey;
    CloseAppHotKey:tmhotkey;
    autosendmail:boolean;
    mailserver:string;
    mailPort:word;
    servercheck:boolean;
    mailUserName:string;
    mailPassword:string;
    MailAddress:string;
    DataFile:string;
  end;
const  WM_getdata=WM_User+100;
var
 appOption:Toption;
implementation

end.