Artificial Intelligence
Программа
На форумах с октября 2004
Местонахождение: Санкт-Петербург
Сообщений: 3
|
Насчет размера ты не прав,вот этот код делает е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(). Это же вам не Паскаль.
Ну в принципе компилятор мне скажет,где я ошибся,тяжело катать на двух языках,тем более,что C мы проходим в универе а для себя я пишу в Дельфи,но C Builder мне не нравится!Уж тогда лучше MSVC!
Адрес поста | Один пост | Сообщить модератору | IP: Logged
|
Программа Pic2Matrix 1.2 for Windows [ShareWare] - конвертер рисунков в код "Матрицы"
27.05.2004 07:34
Crack
...
.
