用Delphi产生一个最小的可执行程序

页面导航:首页 > 软件编程 > Delphi > 用Delphi产生一个最小的可执行程序

用Delphi产生一个最小的可执行程序

来源: 作者: 时间:2016-02-05 11:47 【

用Delphi产生一个最小的可执行程序曾经在网上看到有人说Delphi能够产生大小只有16k的Win32应用程序,而我自己曾经编写过的这种可执行文件大小则是在17k左右,因而我一度猜想Delphi恐怕也
 

用Delphi产生一个最小的可执行程序

 

曾经在网上看到有人说Delphi能够产生大小只有16kWin32应用程序,而我自己曾经编写过的这种可执行文件大小则是在17k左右,因而我一度猜想Delphi恐怕也只能将代码优化到这种程度了。最近由于测试的目的重新把这个程序写了一遍,才发现利用一些技巧,还能够将文件的大小进一步缩减到8.5k。这个程序也能够显示Delphi作为类似于Visual C++的、非RAD工具的另一个侧面。如果你对此感兴趣的话,请看我是如何做到这一点的。

 

Delphi生成一个默认的项目,然后用工具栏上的Remove file from Project按钮,将唯一的窗体(Form1)从项目中删除。然后选择View->Project Source命令,打开项目文件,并编辑代码如下所示:

program MiniApp;

 

uses

  Windows, Messages;

 

// {$R *.res}

 

const

  szAppName : PChar = MiniApp;

 

function WndProc(AWnd:HWND; message:UINT; wp:WPARAM; lp:LPARAM):LRESULT;stdcall;

begin

  Result := 0;

  case message of

    WM_DESTROY:

       PostQuitMessage(0);

    else

       Result := DefWindowProc(AWnd, message, wp, lp);

  end;

end;

 

var

  wc : WNDCLASS;

  HMainWnd : HWND;

  AMsg : MSG;

 

begin

  with wc do begin

    style := CS_VREDRAW or CS_HREDRAW;

    lpfnWndProc := @WndProc;

    cbClsExtra := 0;

    cbWndExtra := 0;

    hIcon := LoadIcon(0, IDI_APPLICATION);

    hCursor := LoadCursor(0, _ARROW);

    hbrBackground := GetSysColorBrush(COLOR_WINDOW);

    hInstance := HInstance;

    lpszMenuName := nil;

    lpszClassName := szAppName;

  end;

  RegisterClass(wc);

 

  HMainWnd := CreateWindow(szAppName,

                           szAppName,

              &

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <