exe-шники в C++ Builder и Delphi

[Spike]

<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Тут в форуме есть еще одна тема посвященная тому же, что и мы сейчас обсуждаем, так вот там кто-то сказал, что Нужно убрать галочку в Project -> Options -> Packages -> Build with runtime packages, тогда размер файла увеличивается, и в C++ Builder и в Delphi становится примерно одинаковым<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
тогда прогу на компе без дельфи запустить нельзя

для создания маленьких по размеру прог в дельфи надо использовать KOL, <a href='http://kol.mastak.ru/' target='_blank'>http://kol.mastak.ru/</a>

[Sh0Ck_filE]

Я предлагаю опыт: на всех перечисленных средах сваять небольшие проги на чистом винАпи, а потом сравнить... я сам этим этим займусь тоже, просто чтобы потом о подтасовке не говорили
Сравнивать будем дизасмом

[Леха]

Предлагаю даже такой текст:

Код: выделить все

#include <windows.h>
LONG WINAPI WndProc(HWND, UINT, WPARAM,LPARAM);

int WINAPI WinMain(HINSTANCE hInstance,
                  HINSTANCE hPrevInstance,
                  LPSTR     lpCmdLine,
                  int       nCmdShow)
{
   HWND hwnd;
   MSG msg;
   WNDCLASS w;
   memset(&w,0,sizeof(WNDCLASS));
   w.style = CS_HREDRAW | CS_VREDRAW;
   w.lpfnWndProc = WndProc;
   w.hInstance = hInstance;
   w.hbrBackground = (HBRUSH)GetStockObject(BLACK_PEN);
   w.lpszClassName = "My Class";
   RegisterClass(&w);
   hwnd = CreateWindow("My Class", "Вот это окно!!!", WS_OVERLAPPEDWINDOW,
       300, 200, 200, 180, NULL, NULL, hInstance, NULL);
   ShowWindow(hwnd,nCmdShow);
   UpdateWindow(hwnd);
   while(GetMessage(&msg,NULL,0,0))
   {
       TranslateMessage(&msg);
       DispatchMessage(&msg);
   }
   return msg.wParam;
}

LONG WINAPI WndProc(HWND hwnd, UINT Message, WPARAM wparam, LPARAM lparam)
{
   switch (Message){
   case WM_DESTROY:
       PostQuitMessage(0);
       break;
   default:
       return DefWindowProc(hwnd, Message, wparam, lparam);
   }
   return 0;
}


[Spike]

на bpw7 (borland pascal 7 for win) наверное меньше будет размер, чем на остальных языках, не считая асма.

[Magister]

Для кода

Код: выделить все

program test;

uses windows, messages;

var   w : TWndClass;
     vHWND : HWND;
     Mesg : TMsg;

function WndProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult; stdcall;
begin
 case msg of
   WM_DESTROY :
   begin
     Result:=0;
     postquitmessage(0);
     exit;
   end;
 end;
 Result:= DefWindowProc(wnd,msg,wparam,lparam);
end;

begin
w.style:=cs_hredraw or cs_vredraw;
w.lpfnWndProc:=@WndProc;
w.hInstance:=HInstance;
w.hbrBackground:=COLOR_BTNFACE+1;
w.lpszClassName:='My Class';
RegisterClass(w);
vHWND:=CreateWindow('My Class','Вот это окно!!!',WS_OVERLAPPED,
                     300,200,200,180,0,0,Hinstance,nil);
ShowWindow(vHWND,CmdShow);

while GetMessage(Mesg,0,0,0) do
begin
 TranslateMessage(Mesg);
 DispatchMessage(Mesg);
end;

end.

В Delphi 4.5 размер получился 15 872 б.
В Delphi 6.0 размер получился 8 704 б.

[Spike]

2Magister
Хм, я думал наоборот должно быть. Ты опции у компилятора одинаковые делал?

d7 опции по умолчанию - 14336
выключенный Optimization - 14848

пример твой компилил

[aTeos]

2Anthony Fox
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Но я еще хочу сказать такую вещь, что если убрать Debug, то размер файла в Delphi уменьшается до ~15 Кб (галочка Build with runtime packages стоит)<!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
Где где где??? Где убрать Debug?

[Spike]

2aTeos
не надо
работать будет только у тебя

[poiuytr]

bcb 5
4 096 байт.
<a href='http://rarview.times.lv/Project1.exe' target='_blank'>линк</a> на ехе

[Spike]

pure asm
зделает кто?

[Magister]

2Spike Lee
Опции одинаковые, дефолтные. Оптимизация включена.
При выключенной оптимизации в D4 размер 16 384, в D6 размер 8 704 (как и при включенной :-\)

[Sh0Ck_filE]

;2 с половиной килобайта

Код: выделить все

.386
.model flat,stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib

WinMain proto :DWORD,:DWORD,:DWORD,:DWORD

.data
ClassName db "SimpleWinClass",0
AppName  db "Our First Window",0

.data?
hInstance HINSTANCE ?
CommandLine LPSTR ?
.code
start:
   invoke GetModuleHandle, NULL
   mov    hInstance,eax
   invoke GetCommandLine
   mov    CommandLine,eax
   invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
   invoke ExitProcess,eax

WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
   LOCAL wc:WNDCLASSEX
   LOCAL msg:MSG
   LOCAL hwnd:HWND
   mov   wc.cbSize,SIZEOF WNDCLASSEX
   mov   wc.style, CS_HREDRAW or CS_VREDRAW
   mov   wc.lpfnWndProc, OFFSET WndProc
   mov   wc.cbClsExtra,NULL
   mov   wc.cbWndExtra,NULL
   push  hInstance
   pop   wc.hInstance
   mov   wc.hbrBackground,COLOR_WINDOW+1
   mov   wc.lpszMenuName,NULL
   mov   wc.lpszClassName,OFFSET ClassName
   invoke LoadIcon,NULL,IDI_APPLICATION
   mov   wc.hIcon,eax
   mov   wc.hIconSm,eax
   invoke LoadCursor,NULL,IDC_ARROW
   mov   wc.hCursor,eax
   invoke RegisterClassEx, addr wc
   INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName,\
          WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,\
          CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,\
          hInst,NULL
   mov   hwnd,eax
   invoke ShowWindow, hwnd,SW_SHOWNORMAL
   invoke UpdateWindow, hwnd
   .WHILE TRUE
 invoke GetMessage, ADDR msg,NULL,0,0
 .BREAK .IF (!eax)
 invoke TranslateMessage, ADDR msg
 invoke DispatchMessage, ADDR msg
   .ENDW
   mov     eax,msg.wParam
   ret
WinMain endp

WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
   .IF uMsg==WM_DESTROY
 invoke PostQuitMessage,NULL
   .ELSE
 invoke DefWindowProc,hWnd,uMsg,wParam,lParam  
 ret
   .ENDIF
   xor eax,eax
   ret
WndProc endp
end start


[Spike]

Sh0Ck_filE - чемпион! Куда нам против асма??? =)

[Scalder]

Эх, нам бы такие инструменты в свое время...
2Spike Lee
Это не асм... по прайней мере не так он выглядел в мое время
2Sh0Ck_filE
Это что за прога так его расшерстила? Этож как книгу его можно читать

[Magister]

2Sh0Ck_filE
<!--QuoteBegin--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>Цитата </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->2 с половиной килобайта <!--QuoteEnd--></td></tr></table><div class='postcolor'><!--QuoteEEnd-->
супер переходим на асм