mirro_d7.pas

Mirror Delphi 7 驱动源代码单元文件

{///////////////////////////////////////////////////////////////////////////////
Project   Dcu2Pas Version 1.3
Purpose   Decompile a D2-D7, K1-K3's dcu(dpu) file to Delphi source as origin as
          possible, without or with minimal modifications, then recompile to new
          one under other Delphi versions
Author    Nengwen Zhuo(卓能文)
Homes     http://soarowl.uhome.net, http://www.websamba.com/soarowl,
          http://soarowl.0catch.com
Emails    [e-mail], [e-mail]
Released  2003-02-10
Lastest   home/dl/Dcu2Pas.rar

          FOR RESTORE YOUR LOST SOURCES AND OPTIMIZE YOUR CODES ONLY!!!

          Decompiled on 2007-1-12 20:39:54
///////////////////////////////////////////////////////////////////////////////}

unit Mirro_D7;

interface

uses
  Windows;

const
  MR_GET_FULL_SCREEN = 4240;
  MR_GET_ACTIVE = 4241;
  MR_GET_INFO = 4242;
  MR_SET_MOUSE = 4243;
  CHANGE_EXIT = 0;
  CHANGE_NO = 1;
  CHANGE_SCREEN = 2;
  SCREEN_COLOR_16 = 1;
  SCREEN_COLOR_24 = 2;

type
  tagMIRROR_CHANGE_INFO = record
    dwChangeType: DWORD;
    rcDest: TRect;
    pBuf: PByte;
  end;

  TMIRROR_CHANGE_INFO = record
    dwChangeType: DWORD;
    rcDest: TRect;
    pBuf: PByte;
  end;

  PMIRROR_CHANGE_INFO = ^tagMIRROR_CHANGE_INFO;

function InstallMirroDriver: Boolean;

function UninstallMirroDriver: Boolean;

function MirrorStart(dwSetColor: DWORD; pnWidth: PInteger; pnHeight: PInteger; bCapMouse: BOOL): DWORD;

function MirrorStop: DWORD;

function MirrorGetChangeInfo(ThePRect: PRect; pBuf: PByte): DWORD;

function MirrorGetFullScreen(ThePRect: PRect; pBuf: PByte): DWORD;

function MirrorVersion: String;

implementation

const
  CThemymr_dll = 'v9.'#0#0#24#15'臮VUUUQUUU