⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 133.htm

📁 水木清华的BBS文章
💻 HTM
字号:
🔍 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>CTerm非常精华下载</title>
</head>
<body bgcolor="#FFFFFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="577">
<tr><td width="32%" rowspan="3" height="123"><img src="DDl_back.jpg" width="300" height="129" alt="DDl_back.jpg"></td><td width="30%" background="DDl_back2.jpg" height="35"><p align="center"><a href="http://bbs.tsinghua.edu.cn"><font face="黑体"><big><big>水木清华★</big></big></font></a></td></tr>
<tr>
<td width="68%" background="DDl_back2.jpg" height="44"><big><big><font face="黑体"><p align="center">         Delphi编程                            (BM: strayli FlyingBoy)          </font></big></big></td></tr>
<tr>
<td width="68%" height="44" bgcolor="#000000"><font face="黑体"><big><big><p   align="center"></big></big><a href="http://cterm.163.net"><img src="banner.gif" width="400" height="60" alt="banner.gif"border="0"></a></font></td>
</tr>
<tr><td width="100%" colspan="2" height="454">　<p align="center">[<a href="index.htm">回到开始</a>][<a href="100.htm">上一层</a>][<a href="134.htm">下一篇</a>]
<hr><p align="left"><small>写小执行程序 <br>

                          转载至http://www.nease.net/~ganglion <br>

  <br>

象C语言一样，用Delphi也能写出只有几十K、十几K、甚至只有几K的小程序，本文将 <br>

以一个能将Win95桌面藏起来的仅有38K的小程序为例教会读者这一技巧，同时本文还 <br>

将涉及Win95 TrayIcon的显示。 <br>

  <br>

本程序能写得很小的诀窍是：根本没有用任何的 Form 。也就是说，源程序只有一个 <br>

Desktop.dpr 文件，程序完全用标准的 WINAPI 写成，由于用到的资源很少，所以程 <br>

序的体积也很小。当然，用这样的方法编程时不能使用 Delphi的所见即所得的编程方 <br>

式。} <br>

  <br>

{首先看看程序头的写法：} <br>

    program DeskPop; <br>

    uses Windows, Messages, ShellAPI, sysutils; <br>

    {$R *.RES} <br>

  <br>

{可以看出本程序比普通的 Delphi 程序用到的 Unit 少的多。 下面声明了全局常量和变 <br>

量，暂时可以 <br>

不管他们。} <br>

    const <br>

    AppName = 'DeskTop Hide'; <br>

    var <br>

    var <br>

    x: integer; <br>

    tid: TNotifyIconData; <br>

    WndClass: array[0..50] of char; <br>

  <br>

{现在进入程序的主要部分，首先是定义了一批过程，为了能让读者更好地理解，我们先 <br>

把这些过程跳过 <br>

去，先说主程序。主程序位于程序的最后，这样做的好处是可以直接使用程序中定义的过 <br>

程。主程序十分 <br>

简单：} <br>

    begin <br>

    WinMain; <br>

    end. <br>

{看来所有的工作都由 WinMain 完成了。这个 WinMain 使用标准的 WinAPI 函数进行编 <br>

程，主要步骤 <br>

是：先声明一个窗口类，然后创建一个主窗口，最后进入消息循环，直到程序结束。} <br>

  <br>

procedure WinMain; <br>

var <br>

Wnd: hWnd; {声明窗口句柄(Handle)变量} <br>

Msg: TMsg; {声明消息变量} <br>

cls: TWndClass; {窗口类变量} <br>

begin <br>

begin <br>

{ Previous instance running ? If so, exit } <br>

{ 检查是否程序已经运行，如果已经运行则调用Panic过程退出 } <br>

if FindWindow (AppName, Nil) <> 0 then <br>

Panic (AppName + ' is already running.'); <br>

  <br>

{ Register the window class } <br>

{ 这里的注册窗口类程序是例行公事，照抄即可} <br>

FillChar (cls, sizeof (cls), 0); {用这一句将窗口类变量cls清零) <br>

cls.lpfnWndProc := @DummyWindowProc; {取回调函数DummyWindowProc的地址} <br>

cls.hInstance := hInstance; {实例句柄} <br>

cls.lpszClassName := AppName; {窗口类名} <br>

RegisterClass (cls); {注册窗口类cls} <br>

  <br>

{ 现在可以创建程序的主窗口了-在本程序中是个虚拟窗口} <br>

{ Now create the dummy window } <br>

Wnd := CreateWindow (AppName, AppName, ws_OverlappedWindow, <br>

cw_UseDefault, cw_UseDefault, cw_UseDefault, cw_UseDefault, <br>

0, 0, hInstance, Nil); <br>

x:= 0; {变量X其实是个开关变量，记录现在是否已经隐藏了桌面} <br>

  <br>

{ 如果窗口创建成功，则显示窗口，并进入消息循环 } <br>

if Wnd <> 0 then <br>



begin <br>

ShowWindow (Wnd, sw_Hide);{本例中窗口是隐藏的} <br>

{ 下面进入消息循环，该循环将不断运行直到 GetMessage返回0 } <br>

while GetMessage (Msg, 0, 0, 0) do <br>

begin <br>

TranslateMessage (Msg); <br>

DispatchMessage (Msg); <br>

end; <br>

end; <br>

end; <br>

  <br>

{现在看来，程序的主框架很明了，但是它还不能完成任何任务。过程 Panic将显示一个 <br>

对话框后退出程 <br>

序，它在 Winmain 过程的开始部分被调用，其实 Panic的功能很简单，之所以要写成一 <br>

个函数的原因恐 <br>

怕一方面是结构化编程的需要，另一方面借此避开了 String 和 PChar 的转换。} <br>

procedure Panic (szMessage: PChar); <br>

begin <br>

if szMessage <> Nil then <br>

MessageBox (0, szMessage, AppName, mb_ok); <br>

Halt (0); <br>

end; <br>

end; <br>

  <br>

{下面是回调(Callback)函数 DummyWindowProc，如果说 Winmain 过程是本程序-或者说 <br>

是本应用或实 <br>

例的生命，那么这个回调函数可以说是主窗口的灵魂。每一个标准的或者说是规范的 <br>

Windows窗口都有一 <br>

个回调函数，以处理发给该窗口的消息。所谓“回调”的意思是这个函数不是由程序直接 <br>

调用的，而是由 <br>

Windows 系统调用(还记得我们在窗口类中给lpfnWndProc赋过值吗)， 这就是事件驱动编 <br>

程。} <br>

function DummyWindowProc (Wnd: hWnd; Msg, wParam: Word; lParam: LongInt) <br>

: LongInt; stdcall; {注意这里有一个 stdcall;定义了回调函数} <br>

var <br>

TrayHandle: THandle; <br>

dc: hDC; <br>

i: Integer; <br>

pm: HMenu; <br>

pt: TPoint; <br>

begin <br>

DummyWindowProc := 0; <br>

{下面两句是找到 Win95 任务栏的句柄} <br>

StrPCopy(@WndClass[0], 'Progman'); <br>

TrayHandle := FindWindow(@WndClass[0], nil); <br>



{下面开始处理消息} <br>

case Msg of <br>

{收到窗口创建消息 - 在任务栏上显示一个图标} <br>

wm_Create: // Program initialisation - just set up a tray icon <br>

begin <br>

tid.cbSize := sizeof (tid); <br>

tid.Wnd := Wnd; <br>

tid.uID := 1; <br>

tid.uFlags := nif_Message or nif_Icon or nif_Tip; <br>

tid.uCallBackMessage := wm_User; <br>

tid.hIcon := LoadIcon (hInstance, 'MAINICON'); <br>

lstrcpy (tid.szTip,'Desktop is on'); <br>

Shell_NotifyIcon (nim_Add, @tid); <br>

end; <br>

  <br>

wm_Destroy: {收到关闭窗口消息时的处理} <br>

begin <br>

Shell_NotifyIcon (nim_Delete, @tid); <br>

PostQuitMessage (0); <br>

ShowWindow(TrayHandle, SW_RESTORE); <br>

end; <br>

{收到菜单消息时调用 HandleCommand 过程，并退出函数} <br>

{收到菜单消息时调用 HandleCommand 过程，并退出函数} <br>

wm_Command: // Command notification <br>

begin <br>

HandleCommand (Wnd, LoWord (wParam)); <br>

Exit; <br>

end; <br>

{收到其他用户消息时的处理} <br>

wm_User: // Had a tray notification - see what to do <br>

{如果单击了鼠标左键， 则打开或关闭桌面} <br>

if (lParam = wm_LButtonDown) then <br>

begin <br>

if x = 0 then <br>

begin <br>

ShowWindow(TrayHandle, SW_HIDE); <br>

tid.hIcon := LoadIcon (hInstance, 'offICON'); <br>

lstrcpy (tid.szTip,'Desktop is off'); <br>

Shell_NotifyIcon (NIM_MODIFY, @tid); <br>

x:=1 <br>

end else <br>

begin <br>

ShowWindow(TrayHandle, SW_RESTORE); <br>

tid.hIcon := LoadIcon (hInstance, 'ONICON'); <br>

lstrcpy (tid.szTip,'Desktop is on'); <br>



Shell_NotifyIcon (NIM_MODIFY, @tid); <br>

x:= 0; <br>

end; {end of if} <br>

end else <br>

{如果是鼠标右键，则动态生成一个弹出式菜单} <br>

if (lParam = wm_RButtonDown) then <br>

begin <br>

GetCursorPos (pt); <br>

pm := CreatePopupMenu; <br>

AppendMenu (pm, 0, Ord ('A'), 'About DeskTop Hide...'); <br>

AppendMenu (pm, mf_Separator, 0, Nil); <br>

AppendMenu (pm, 0, Ord ('E'), 'Exit DeskTop Hide'); <br>

SetForegroundWindow (Wnd); <br>

dc := GetDC (0); <br>

if TrackPopupMenu (pm, tpm_BottomAlign or tpm_RightAlign, <br>

pt.x,GetDeviceCaps(dc,HORZRES){pt.y}, 0, Wnd, Nil) <br>

then SetForegroundWindow (Wnd); <br>

DestroyMenu (pm) <br>

end; {end of if} <br>

end; {end of case} <br>

{在处理过消息之后，还要调用默认函数，以完成标准的Windows程序应该执行的任务，所 <br>

以这一句非常重 <br>

以这一句非常重 <br>

要} <br>

DummyWindowProc := DefWindowProc (Wnd, Msg, wParam, lParam); <br>

end; <br>

  <br>

{这个就是处理菜单消息的过程} <br>

procedure HandleCommand (Wnd: hWnd; Cmd: Word); <br>

begin <br>

case Cmd of <br>

Ord ('A'): MessageBox (0, 'Freeware brian.slack@strath.ac.uk 1997', <br>

AppName, mb_ok); <br>

Ord ('E'): PostMessage (Wnd, wm_Close, 0, 0); <br>

end; <br>

end; <br>

  <br>

至此我们已经完成了这个只有38K的能将Win95桌面隐藏起来的程序，只要将本文中所 <br>

有的函数和过程的顺序倒置，并将主程序放到最后，即可编译通过。 <br>

  <br>

                              避免二次运行 <br>

                          转载至http://www.nease.net/~ganglion <br>

  <br>

　　实现单实例运行的关键是判断前一实例是否存在，Win3.x中运行的程序能获知前 <br>

一实例的句柄，从而可以方便地进行判断，但 Windows 95 是抢先式多任务系统，其 <br>



程序的前一实例句柄恒为零，所以只有另寻其他办法。目前最有效的办法是通过查看 <br>

是否有相同窗口类名的例程存在来进行判断。下面介绍在Delphi中实现的方法。 <br>

  <br>

1、对主窗口程序的改动： <br>

  <br>

在主窗口(即程序创建的第一个窗口)中interface节加入 <br>

const <br>

CM_RESTORE = WM_USER + $1000; {自定义的“恢复”消息} <br>

MYAPPNAME = "My Delphi Program"; <br>

并在Form的定义的public节中加入 <br>

procedure CreateParams(var Params: TCreateParams); override; <br>

Procedure RestoreRequest(var message: TMessage); message CM_RESTORE; <br>

在implementation节中加入 <br>

{指定窗口名称} <br>

procedure TForm1.CreateParams(var Params: TCreateParams); <br>

begin <br>

inherited CreateParams(Params); <br>

Params.WinClassName := MYAPPNAME; <br>

end; <br>

  <br>

{处理“恢复”消息} <br>

procedure TForm1.RestoreRequest(var message: TMessage); <br>

procedure TForm1.RestoreRequest(var message: TMessage); <br>

begin <br>

if IsIconic(Application.Handle) = TRUE then <br>

Application.Restore <br>

else <br>

Application.BringToFront; <br>

end; <br>

  <br>

经过以上修改，程序的主窗口的类名已经被指定了，这是进行判断的基础。一般在程 <br>

序刚开始运行的时候进行判断，所以还要对DPR文件进行修改。 <br>

  <br>

2、对DPR文件的改动 <br>

  <br>

在 uses 节中添加 windows、messages这两个单元加入下列语句，注意两个文件中常 <br>

量CM_RESTORE和MYAPPNAME的定义必须一致 <br>

const <br>

CM_RESTORE = WM_USER + $1000; {自定义的“恢复”消息} <br>

MYAPPNAME = "My Delphi Program"; <br>

var <br>

RvHandle : hWnd; <br>

  <br>

将下列语句插到程序最前部(在Application.Initialize之前) <br>

  <br>



RvHandle := FindWindow(MYAPPNAME, NIL); <br>

if RvHandle > 0 then <br>

begin <br>

PostMessage(RvHandle, CM_RESTORE, 0, 0); <br>

Exit; <br>

end; <br>

这段程序的意思是如果找到一个类名相同的窗口，则向该窗口发送一个消息，并退 <br>

出，而本例中原窗口收到该消息后会自动激活或从图标还原，从而达到了避免二次运 <br>

行且能自动调出前一例程的目的。 <br>

</small><hr>
<p align="center">[<a href="index.htm">回到开始</a>][<a href="100.htm">上一层</a>][<a href="134.htm">下一篇</a>]
<p align="center"><a href="http://cterm.163.net">欢迎访问Cterm主页</a></p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -