program CIAO;
{$MODE DELPHI}
uses Windows;
function WindowProc(Window:HWnd; AMessage,WParam,LParam:Longint): Longint; stdcall;
begin
WindowProc := 0;
case AMessage of
wm_Destroy : begin
PostQuitMessage(0);
Exit;
end;
end;
WindowProc := DefWindowProc(Window, AMessage, WParam, LParam);
end;
{ Register the Window Class }
function WinRegister: Boolean;
var WC: WndClass;
begin
with WC do begin
Style := cs_hRedraw or cs_vRedraw;
lpfnWndProc := WndProc(@WindowProc);
cbClsExtra := 0;
cbWndExtra := 0;
hInstance := system.MainInstance;
hIcon := LoadIcon(0, idi_Application);
hCursor := LoadCursor(0, idc_Arrow);
hbrBackground := GetStockObject(WHITE_BRUSH);
lpszMenuName := nil;
lpszClassName := 'CIAO';
end;
Result := RegisterClass(WC) <> 0;
end;
{ Create the window }
function WinCreate: HWnd;
var hWindow: HWnd;
begin
hWindow:=CreateWindow('CIAO','ciao',ws_OverlappedWindow,cw_UseDefault,cw_UseDefault,
cw_UseDefault,cw_UseDefault,0,0,system.MainInstance, nil);
if hWindow <> 0 then begin
ShowWindow(hWindow, CmdShow);
UpdateWindow(hWindow);
end;
Result := hWindow;
end;
var
AMessage: Msg;
hWindow: HWnd;
Begin
if not WinRegister then begin
MessageBox(0, 'registrazione fallita', nil, mb_Ok);
Exit;
end;
hWindow := WinCreate;
if longint(hWindow) = 0 then begin
MessageBox(0, 'creazione finestra fallita', nil, mb_Ok);
Exit;
end;
while GetMessage(@AMessage, 0, 0, 0) do begin
TranslateMessage(AMessage);
DispatchMessage(AMessage);
end;
End.
