为何运行占用1.2M内存？(100分)

shiningstar · 2004-05-21

代码如下：没用VCL，全是windowsapi。编译出来才17.5k，怎么一执行就占用1.2M program project1; uses   Windows,   Messages,   ShellAPI; //  sysutils; {$R *.RES} const   AppName = 'DeskTop Hide'; var   x: integer;   tid: TNotifyIconData;   WndClass: array[0..50] of char;   {这个就是处理菜单消息的过程} procedure HandleCommand (Wnd: hWnd; Cmd: Word); begin   case Cmd of     Ord ('A'): MessageBox (0, 'Freeware brian.slack@strath.ac.uk 1997',       AppName, mb_ok);     Ord ('E'): PostMessage (Wnd, wm_Close, 0, 0);   end; end; procedure Panic (szMessage: PChar); begin   if szMessage <> Nil then     MessageBox (0, szMessage, AppName, mb_ok);   Halt (0); end; function DummyWindowProc (Wnd: hWnd; Msg, wParam: Word; lParam: LongInt) : LongInt; stdcall; {注意这里有一个 stdcall;定义了回调函数} var   TrayHandle: THandle;   dc: hDC; //  i: Integer;   pm: HMenu;   pt: TPoint; begin   DummyWindowProc := 0; {下面两句是找到 Win95 任务栏的句柄} //  StrPCopy(@WndClass[0], 'Progman');   WndClass[0]:='P';   WndClass[1]:='r';   WndClass[2]:='o';   WndClass[3]:='g';   WndClass[4]:='m';   WndClass[5]:='a';   WndClass[6]:='n';   WndClass[7]:=#0;   TrayHandle := FindWindow(@WndClass[0], nil);   {下面开始处理消息}   case Msg of {收到窗口创建消息 - 在任务栏上显示一个图标}   wm_Create: // Program initialisation - just set up a tray icon     begin       tid.cbSize := sizeof (tid);       tid.Wnd := Wnd;       tid.uID := 1;       tid.uFlags := nif_Message or nif_Icon or nif_Tip;       tid.uCallBackMessage := wm_User;       tid.hIcon := LoadIcon (hInstance, 'MAINICON');       lstrcpy (tid.szTip,'Desktop is on');       Shell_NotifyIcon (nim_Add, @tid);       end;   wm_Destroy: {收到关闭窗口消息时的处理}     begin       Shell_NotifyIcon (nim_Delete, @tid);       PostQuitMessage (0);       ShowWindow(TrayHandle, SW_RESTORE);     end; {收到菜单消息时调用 HandleCommand 过程，并退出函数}   wm_Command: // Command notification     begin       HandleCommand (Wnd, LoWord (wParam));       Exit;     end; {收到其他用户消息时的处理}   wm_User: // Had a tray notification - see what to do {如果单击了鼠标左键，则打开或关闭桌面}     if (lParam = wm_LButtonDown) then       begin         if x = 0 then           begin             ShowWindow(TrayHandle, SW_HIDE);             tid.hIcon := LoadIcon (hInstance, 'OFFICON');             lstrcpy (tid.szTip,'Desktop is off');             Shell_NotifyIcon (NIM_MODIFY, @tid);             x:=1          end else          begin            ShowWindow(TrayHandle, SW_RESTORE);            tid.hIcon := LoadIcon (hInstance, 'ONICON');            lstrcpy (tid.szTip,'Desktop is on');            Shell_NotifyIcon (NIM_MODIFY, @tid);            x:= 0;         end; {end of if}      end else {如果是鼠标右键，则动态生成一个弹出式菜单}        if (lParam = wm_RButtonDown) then        begin          GetCursorPos (pt);          pm := CreatePopupMenu;          AppendMenu (pm, 0, Ord ('A'), 'About DeskTop Hide...');          AppendMenu (pm, mf_Separator, 0, Nil);          AppendMenu (pm, 0, Ord ('E'), 'Exit DeskTop Hide');          SetForegroundWindow (Wnd);          dc := GetDC (0);          if TrackPopupMenu (pm, tpm_BottomAlign or tpm_RightAlign,             pt.x,GetDeviceCaps(dc,HORZRES){pt.y}, 0, Wnd, Nil)          then SetForegroundWindow (Wnd);          DestroyMenu (pm)        end; {end of if}      end; {end of case} {在处理过消息之后，还要调用默认函数，以完成标准的Windows程序应该执行的任务，所 以这一句非常重 要}   DummyWindowProc := DefWindowProc (Wnd, Msg, wParam, lParam); end; procedure WinMain; var   Wnd: hWnd; {声明窗口句柄(Handle)变量}   Msg: TMsg; {声明消息变量}   cls: TWndClass; {窗口类变量} begin { Previous instance running ? If so, exit } { 检查是否程序已经运行，如果已经运行则调用Panic过程退出 } if FindWindow (AppName, Nil) <> 0 then   Panic (AppName + ' is already running.'); { Register the window class } { 这里的注册窗口类程序是例行公事，照抄即可}   FillChar (cls, sizeof (cls), 0); {用这一句将窗口类变量cls清零)}   cls.lpfnWndProc := @DummyWindowProc; {取回调函数DummyWindowProc的地址}   cls.hInstance := hInstance; {实例句柄}   cls.lpszClassName := AppName; {窗口类名}   if RegisterClass (cls) = 0 then exit; {注册窗口类cls} { 现在可以创建程序的主窗口了-在本程序中是个虚拟窗口} { Now create the dummy window } {  Wnd := CreateWindow('a', 'a', 65536,   0,0,600,600,0,   0,hInstance, nil); }   Wnd:= CreateWindow(AppName, AppName, WS_OVERLAPPEDWINDOW,   {  CW_USEDEFAULT, CW_USEDEFAULT,     CW_USEDEFAULT, CW_USEDEFAULT,}     0,0,600,600,     0, 0, HInstance, nil);   x:= 0; {变量X其实是个开关变量，记录现在是否已经隐藏了桌面} { 如果窗口创建成功，则显示窗口，并进入消息循环 }   if Wnd <> 0 then   begin     ShowWindow (Wnd, sw_Hide{SW_SHOWNORMAL});{本例中窗口是隐藏的} { 下面进入消息循环，该循环将不断运行直到 GetMessage返回0 }     while GetMessage (Msg, 0, 0, 0) do     begin       TranslateMessage (Msg);       DispatchMessage (Msg);     end;   end; end; begin   WinMain; end.

muhx · 2004-05-22

很抱歉没有仔细看楼主的题目，毕竟现在很晚了，头脑不清醒了。 个人认为虽然编译的结果很小，但运行中要调用别的资源。 据说VC++执行后调用大量的Windows封装好的DLL文件（微软的把戏？：）） 楼主的程序应该也会调用别的资源吧

amyp · 2004-06-05

我在Delphi7下编译,编译后是26k哦,大很多哦 内存的使用也大了 3628K

为何运行占用1.2M内存？(100分)

shiningstar

Unregistered / Unconfirmed

muhx

Unregistered / Unconfirmed

amyp

Unregistered / Unconfirmed

Similar threads