softkeypwd.pas

絮语2007视频聊天软件源程序.仅供参考

{*******************************************************}
{                                                       }
{       Borland Delphi Supplemental Components          }
{       ZLIB Data Compression Interface Unit            }
{                                                       }
{       Copyright (c) 1997,99 Inprise Corporation       }
{                                                       }
{*******************************************************}

unit SoftKeyPwd;

interface

uses SysUtils, Windows, Classes;

 function MessageBoxA(HWnd: Integer; Text, Caption: PChar; Flags: Integer): Integer;
  stdcall; external 'user32.dll' name 'MessageBoxA'
 function lstrcpyA(lpString1,lpString2: PChar): PChar;
  stdcall; external 'Kernel32.dll' name 'lstrcpyA'

  function SetupDiGetClassDevsA( ClassGuid:dword; Enumerator:pchar;hwndParent,Flag:DWORD):dword;
  stdcall;  external 'Setupapi.dll' name 'SetupDiGetClassDevsA'
  function  SetupDiEnumDeviceInterfaces( DeviceInfoSet, DeviceInfoData,InterfaceClassGuid,
  MemberIndex:dword; DeviceInterfaceData :dword):BOOLean; stdcall;  external 'Setupapi.dll' name 'SetupDiEnumDeviceInterfaces'
  function SetupDiGetDeviceInterfaceDetailA(DeviceInfoSet,DeviceInterfaceData:dword;
   DeviceInterfaceDetailData:dword;DeviceInterfaceDetailDataSize:dword;var RequiredSize:dword; DeviceInfoData  :dword):boolean;
  stdcall;   external 'Setupapi.dll' name 'SetupDiGetDeviceInterfaceDetailA'
  function SetupDiDestroyDeviceInfoList( DeviceInfoSet:dword):boolean;stdcall; external 'Setupapi.dll' name 'SetupDiDestroyDeviceInfoList'

  procedure HidD_GetHidGuid(  HidGuid:dword ) stdcall; external 'hid.dll' name 'HidD_GetHidGuid'
  function HidD_SetFeature(  HidDeviceObject,ReportBuffer,ReportBufferLength :dword):BOOLEAN;
   stdcall; external 'hid.dll' name 'HidD_SetFeature'
  function  HidD_GetFeature(HidDeviceObject:dword; ReportBuffer:dword;ReportBufferLength :dword):BOOLEAN;
    stdcall; external 'hid.dll' name 'HidD_GetFeature'
  function HidP_GetUsages( ReportType,UsagePage:dword; LinkCollection:integer; UsageList:dword;
    var UsageLength:dword;  PreparsedData:dword;  Report:pchar; ReportLength:word):dword;
      stdcall; external 'hid.dll' name 'HidP_GetUsages'
  function  HidP_GetUsageValue( ReportType,UsagePage:dword; LinkCollection:integer;Usage:dword;
     UsageValue:dword; PreparsedData:dword; Report:pchar;ReportLength :dword):dword;
   stdcall; external 'hid.dll' name 'HidP_GetUsageValue'
 function HidP_GetScaledUsageValue( ReportType,UsagePage:dword; LinkCollection:integer;Usage:dword;
     UsageValue:dword; PreparsedData:dword; Report:pchar;ReportLength :dword ):dword;
  stdcall; external 'hid.dll' name 'HidP_GetScaledUsageValue'
  function HidP_SetUsages(ReportType,UsagePage:dword; LinkCollection:integer;UsageList:dword;
    var UsageLength :dword;  PreparsedData:dword;Report:pchar;ReportLength:dword):dword;
     stdcall; external 'hid.dll' name 'HidP_SetUsages'
  function HidP_SetUsageValue( ReportType,UsagePage:dword; LinkCollection:integer;Usage:dword;
    UsageValue, PreparsedData:dword;Report:pchar; ReportLength:dword):dword;
   stdcall; external 'hid.dll' name 'HidP_SetUsageValue'
   function HidP_GetCaps(PreparsedData:dword; Capabilities:dword):dword;
    stdcall; external 'hid.dll' name 'HidP_GetCaps'
   function HidP_GetSpecificValueCaps( ReportType,UsagePage:dword; LinkCollection:integer;Usage:dword;
   ValueCaps:dword; var ValueCapsLength:dword;PreparsedData:dword):dword;
     stdcall; external 'hid.dll' name 'HidP_GetSpecificValueCaps'
  function HidP_GetSpecificButtonCaps(ReportType,UsagePage:dword; LinkCollection:integer;Usage:dword;
   ButtonCaps:dword;var ButtonCapsLength:dword; PreparsedData :dword):dword;
  stdcall; external 'hid.dll' name 'HidP_GetSpecificButtonCaps'
  function   HidP_MaxUsageListLength( ReportType,UsagePage ,PreparsedData:dword):dword;
    stdcall; external 'hid.dll' name 'HidP_MaxUsageListLength'
  function HidD_FreePreparsedData(  PreparsedData :DWORD):BOOLEAN;
  stdcall; external 'hid.dll' name 'HidD_FreePreparsedData'
  function HidD_GetAttributes( HidDeviceObject:DWORD;    Attributes :dword):BOOLEAN;
    stdcall; external 'hid.dll' name 'HidD_GetAttributes'
  function HidD_GetPreparsedData(  HidDeviceObject:DWORD; PreparsedData :dword):BOOLEAN;
    stdcall; external 'hid.dll' name 'HidD_GetPreparsedData'
  //   function GetProcessHeap(): dword;
//  stdcall; external 'Kernel32.dll' name 'GetProcessHeap'
//procedure _free(var p:pchar);
//function _calloc(var p:pchar;n,m:integer):pchar;
function FindPort(Start: integer; OutPath: PChar): integer; external;

function FindPort_2(Start: integer; In_Data: DWord; Verf_Data: DWord; OutPath: PChar): integer; external;

function NT_GetIDVersion(var AVersion: integer; InPath: PChar): integer; external;

function GetID(var ID_1, ID_2: DWord; InPath: PChar): integer; external;

function sWrite(In_Data: DWord; InPath: PChar): integer; external;

function sWrite_2(In_Data: DWord; InPath: PChar): integer; external;

function sRead(var Out_Data: DWord; InPath: PChar): integer; external;

function YRead(var Out_EPROM: byte; Address: smallint; hkey,lkey,InPath: PChar): integer; external;

function YWrite(InData: byte; Address: smallint;hkey,lkey, InPath: PChar): integer; external;

function YReadString( Out_STR: pchar; Address: smallint; v_len: integer; hkey,lkey,InPath: PChar): integer; external;

function YWriteString(In_STR: pchar; Address: smallint;hkey: PChar;lkey: PChar;InPath: PChar): integer; external;

function  SetReadPassword(W_HKey,W_LKey,new_HKey,new_LKey,InPath:pchar): integer; external;

function  SetWritePassword(W_HKey,W_LKey,new_HKey,new_LKey,InPath:pchar): integer; external;

implementation

uses ZLibConst;

 {$L yt.obj}

procedure _memset(P: Pointer; B: Byte; count: Integer); cdecl;
begin
  FillChar(P^, count, B);
end;

procedure _memcpy(dest, source: Pointer; count: Integer); cdecl;
begin
  Move(source^, dest^, count);
end;


function zlibAllocMem(AppData: Pointer; Items, Size: Integer): Pointer; register;
begin

  Result := AllocMem(Items * Size);
end;

procedure zlibFreeMem(AppData, Block: Pointer); register;
begin
  FreeMem(Block);
end;








end.