www.pudn.com > SPYQQ3.rar > TempWindow.pas

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.