Tube Space ver 10.04.2011 (для конкурса) Вроде победил (2 стр)

//*********************************************
// Panteleymonov Aleksandr Konstantinovich 2001
//    Delphi 3.0
//*********************************************

program nill;

{$A-,B-,C-,D-,E-,F-,G-,H+,I-,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y-,Z1}
{$IMPORTEDDATA OFF}

{$R *.res}

Type
  TWndClass = packed record
    style: LongWord;
    lpfnWndProc: Pointer;
    cbClsExtra: Integer;
    cbWndExtra: Integer;
    hInstance: LongWord;
    hIcon: LongWord;
    hCursor: LongWord;
    hbrBackground: LongWord;
    lpszMenuName: PAnsiChar;
    lpszClassName: PAnsiChar;
  end;

  TPoint = packed record
    X: Longint;
    Y: Longint;
  end;

  TMSG = packed record
    hwnd: LongWord;
    message: LongWord;
    wParam: Longint;
    lParam: Longint;
    time: LongWord;
    pt: TPoint;
  end;

{$EXTERNALSYM RegisterClass}
function RegisterClass(const lpWndClass: TWndClass): Word; stdcall;
 external 'user32.dll' name 'RegisterClassA';
function DefWindowProc(hWnd: LongWord; Msg: LongWord; wParam: Longint;
 lParam: Longint): Longint; stdcall; external 'user32.dll' name 'DefWindowProcA';
function CreateWindowEx(dwExStyle: LongWord; lpClassName: PChar;
  lpWindowName: PChar; dwStyle: LongWord; X, Y, nWidth, nHeight: Integer;
  hWndParent: LongWord; hMenu: LongWord; hInstance: LongWord;
  lpParam: Pointer): LongWord; stdcall; external 'user32.dll' name 'CreateWindowExA';
function DestroyWindow(hWnd: LongWord): LongBool; stdcall;
 external 'user32.dll' name 'DestroyWindow';
function MessageBox(hWnd: LongWord; lpText, lpCaption: PChar;
 uType: LongWord): Integer; stdcall; external 'user32.dll' name 'MessageBoxA';
function ShowWindow(hWnd: LongWord; nCmdShow: Integer): LongBool; stdcall;
 external 'user32.dll' name 'ShowWindow';
procedure PostQuitMessage(nExitCode: Integer); stdcall;
 external 'user32.dll' name 'PostQuitMessage';
function GetModuleHandle(lpModuleName: PChar): LongWord; stdcall;
 external 'kernel32.dll' name 'GetModuleHandleA';
function LoadCursor(hInstance: LongWord; lpCursorName: PAnsiChar): LongWord; stdcall;
 external 'user32.dll' name 'LoadCursorA';
function SetFocus(hWnd: LongWord): LongWord; stdcall; external 'user32.dll' name 'SetFocus';
function PeekMessage(var lpMsg: TMsg; hWnd: LongWord;
  wMsgFilterMin, wMsgFilterMax, wRemoveMsg: LongWord): LongBool; stdcall;
 external 'user32.dll' name 'PeekMessageA';
function TranslateMessage(const lpMsg: TMsg): LongBool; stdcall;
 external 'user32.dll' name 'TranslateMessage';
function DispatchMessage(const lpMsg: TMsg): Longint; stdcall;
 external 'user32.dll' name 'DispatchMessageA';
function WaitMessage: LongBool; stdcall; external 'user32.dll' name 'WaitMessage';
function UnregisterClass(lpClassName: PChar; hInstance: HINST): LongBool; stdcall;
 external 'user32.dll' name 'UnregisterClassA';

const
  {$EXTERNALSYM CS_HREDRAW}
  CS_HREDRAW = LongWord(2);
  {$EXTERNALSYM CS_VREDRAW}
  CS_VREDRAW = LongWord(1);
  {$EXTERNALSYM CS_OWNDC}
  CS_OWNDC = LongWord(1);
  {$EXTERNALSYM COLOR_WINDOW}
  COLOR_WINDOW = 5;  
  {$EXTERNALSYM IDC_ARROW}
  IDC_ARROW = PAnsiChar(32512);
  
  {$EXTERNALSYM SW_MINIMIZE}
  SW_MINIMIZE = 6;

  {$EXTERNALSYM WM_ACTIVATE}
  WM_ACTIVATE         = $0006;
  {$EXTERNALSYM WA_INACTIVE}
  WA_INACTIVE = 0;
  {$EXTERNALSYM WM_CLOSE}
  WM_CLOSE            = $0010;
  {$EXTERNALSYM WM_QUIT}
  WM_QUIT             = $0012;  

  {$EXTERNALSYM WS_EX_TOPMOST}
  WS_EX_TOPMOST = 8;
  {$EXTERNALSYM WS_POPUP}
  WS_POPUP = LONGWORD($80000000);
  {$EXTERNALSYM WS_VISIBLE}
  WS_VISIBLE = $10000000;
  {$EXTERNALSYM SW_SHOW}
  SW_SHOW = 5;

  {$EXTERNALSYM PM_REMOVE}
  PM_REMOVE = 1;

var
 WndName:Pchar;
 Handle:longint;
 hInstance:HINST;
 WNDClass:TWndClass=(style:CS_HREDRAW or CS_VREDRAW or CS_OWNDC;
  lpfnWndProc:nil;
  cbClsExtra:0;cbWndExtra:0;
  hInstance:0;hIcon:0;
  hbrBackground:COLOR_WINDOW;
  lpszMenuName:nil;
  lpszClassName:'WindowClass');
 finished:boolean;
 msg:TMsg;

procedure ErrorMes(Mes:pchar);
begin
MessageBox(0,mes,'Error!',16);
halt;
end;

function WndProc(hWnd:LongWord;Msg:LongWord;wParam:Longint;lParam:Longint):Longint;Stdcall;
begin
case (Msg) of
WM_ACTIVATE:begin
 if wParam and $FFFF and WA_INACTIVE<>0 then ShowWindow(handle,SW_Minimize);
 Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
end;
WM_CLOSE:begin
 PostQuitMessage(0);
 Result:=0;
end;
 else
  Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
 end;
end;

procedure MyCreate;
begin
end;

procedure MyDestroy;
begin
end;

begin

  WndName:='Nill';
  HInstance:=GetModuleHandle(nil);
  wndClass.lpfnWndProc:=@WndProc;
  wndClass.hInstance:=hInstance;
  wndClass.hCursor:=LoadCursor(0, IDC_ARROW);
  wndClass.lpszClassName:='Nill';
  if RegisterClass(wndClass)=0 then ErrorMes('Failed to register the window class!');
  Handle:=CreateWindowEx(WS_EX_TOPMOST,wndClass.lpszClassName,
   WndName,WS_POPUP or WS_VISIBLE,10,10,200,200,0,0,HInstance,nil);
  if Handle=0 then ErrorMes('Unable to create window!');
  MyCreate;

  ShowWindow(Handle,SW_SHOW);
  SetFocus(Handle);
  finished:=false;
  while not finished do begin
  if PeekMessage(msg, 0, 0, 0, PM_REMOVE) then begin
  if (msg.message=WM_QUIT) then finished:=True
   else begin
    TranslateMessage(msg);
    DispatchMessage(msg);
   end;
  end else begin
   WaitMessage;
  end;
  end;

  MyDestroy;
  if ((Handle<>0) and (not DestroyWindow(Handle))) then
   ErrorMes('Unable to destroy window!');
  if (not UnRegisterClass(wndClass.lpszClassName,hInstance)) then
   ErrorMes('Unable to unregister window class!');

end.