tempwindow.pas

来自「破解“国际领先的Nprotect键盘加密技术”」· PAS 代码 · 共 74 行

unit  TempWindow;

interface

uses
  Windows, Messages;

procedure Register_TempForm;   // 注册窗体类
procedure Unregister_TempForm; // 撤销窗体类
procedure Create_TempForm;     // 建立主窗体

var
  TempFormHandle : HWND = 0;

implementation


const
  ClassName = 'TempForm_20061214';  

  // 窗体过程回调函数
function FormProc(hForm, MsgID, WParam, LParam: LongWord): LongWord; stdcall;
begin
  Result := DefWindowProc(hForm, MsgID, WParam, LParam); // 标准处理
  case MsgID of
    WM_CREATE:
      begin
      end;
    WM_SHOWWINDOW:
      begin
      end;
    WM_DESTROY:
      begin
        //PostQuitMessage(0);
      end;
  end;
end; 

  // 注册窗体类
procedure Register_TempForm;
var
  FormClass: TWndClass;
begin
  FormClass.Style := CS_HREDRAW or CS_VREDRAW;
  FormClass.lpfnWndProc := @FormProc;
  FormClass.cbClsExtra := 0;
  FormClass.cbWndExtra := 0;
  FormClass.hInstance := SysInit.HInstance;
  FormClass.hIcon := 0;
  FormClass.hCursor :=  LoadCursor(0, IDC_ARROW);
  FormClass.hbrBackground := COLOR_WINDOW;
  FormClass.lpszMenuName := nil;
  FormClass.lpszClassName := ClassName;
  RegisterClass(FormClass);
end;

  // 注销窗体类
procedure Unregister_TempForm;
begin
  UnregisterClass(ClassName, HInstance);
end;    

  // 建立主窗体
procedure Create_TempForm;
begin
  TempFormHandle := CreateWindowEx(WS_EX_TOPMOST, ClassName, 'QQ_Temp',
                     WS_VISIBLE or WS_TILED or WS_SYSMENU or WS_MINIMIZEBOX or WS_SIZEBOX,
                     0, 0, 2, 2, 0, 0, HInstance, nil);
end;



end.