unitconst.pas

来自「在delphi中实现windows核心编程.原书光盘代码核心编程.原书光盘代码」· PAS 代码 · 共 37 行

unit UnitConst;

interface

uses
  windows,
  messages,
  sysutils,
  tlhelp32;
  
const
  MemNameGetkey = 'MemNameGetkey';
  MemNameInstall = 'MemNameInstall';
  FileName='c:\key.txt';
type
  {内存映射文件记录结构}
  TGetKeyMem = record
    Count: integer; {字符字数}
    LibHandle: integer; {GetKey.dll自己的句柄}
    ExitIt:boolean;
  end;
  PGetKeyMem = ^TGetKeyMem;

  TInstallMem = record
{    Receiver: integer;
    hInstance: integer;
    selfhand: integer;  }
    GetkeyThreadID:THandle;
    ExplorerProcessID:Thandle;
    MainFormHandle:THandle;
    MainPath:array[0..MAX_PATH+1]of char;
  end;
  PInstallMem = ^TInstallMem;
implementation

end.