Насчет размера ты не прав,вот этот код делает еxe-шник,размером 40 кило:
program Project1;

uses
windows, messages, sysutils;

{$R *.RES}

var
Instance: HWnd;
WindowClass: TWndClass;
Handle: HWnd;
msg: TMsg;

procedure DoExit;
begin
Halt;
end;

function WindowProc (Hwn,msg,wpr,lpr: longint): longint; stdcall;
begin
result:=defwindowproc(hwn,msg,wpr,lpr);
if msg=wm_destroy then
DoExit;

if msg=wm_KeyDown then
if wpr=VK_ESCAPE then
DoExit;
end;

begin
instance :=GetModuleHandle(nil);

WindowClass.style:=CS_HRedraw or CS_VRedraw;
WindowClass.Lpfnwndproc:=@windowproc;
WindowClass.Hinstance:=Instance;
WindowClass.HbrBackground:= color_btnface;
WindowClass.LpszClassName:='DX';
WindowClass.Hcursor:=LoadCursor(0,IDC_ARROW);

RegisterClass(WindowClass);

Handle:=CreateWindowEx (0,'DX','',WS_POPUP, 5,5, 200, 200,0,0,instance, nil);
ShowWindow(Handle, SW_SHOW);
UpdateWindow (Handle);

while (GetMessage(msg, 0, 0, 0)) do
begin
translatemessage(msg);
dispatchmessage (msg);
end;
end.

А насчет :

Цитата:

---

Во-первых, не While, а while, и лучше не money!=0, а просто money, не Beer==0, а !Beer, и не Beer=Beer-100, а Beer-=100, аналогично для Money, и не GoToShop, а GoToShop(). Это же вам не Паскаль.

---

Адрес поста | Один пост | Сообщить модератору | IP: Logged