象C语言一样，用Delphi也能写出只有几十K、十几K、甚至只有几K的小程序，本文将一个能将Win95桌面藏起来的仅有38K的小程序为例教会读者这一技巧，同时本文还涉及Win95 TrayIcon的显示。  

本程序能写得很小的诀窍是：根本没有用任何的 Form 。也就是说，源程序只有一个Desktop.dpr 文件，程序完全用标准的 WINAPI 写成，由于用到的资源很少，所以程序的体积也很小。当然，用这样的方法编程时不能使用 Delphi的所见即所得的编程方式。

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

program DeskPop;  

uses Windows, Messages, ShellAPI, sysutils;  

{$R *.RES}  

{可以看出本程序比普通的 Delphi 程序用到的 Unit 少的多。 下面声明了全局常量和变 量，暂时可以 不管他们。}  

const  
AppName = ''DeskTop Hide'';  
var  
x: integer;  
tid: TNotifyIconData;  
WndClass: array[0..50] of char;  

{现在进入程序的主要部分，首先是定义了一批过程，为了能让读者更好地理解，我们先 把这些过程跳过 去，先说主程序。主程序位于程序的最后，这样做的好处是可以直接使用程序中定义的过程。主程序十分 简单：}  
begin  
WinMain;  
end.  
{看来所有的工作都由 WinMain 完成了。这个 WinMain 使用标准的 WinAPI 函数进行编 程，主要步骤 是：先声明一个窗口类，然后创建一个主窗口，最后进入消息循环，直到程序结束。}  
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; {窗口类名}  
RegisterClass (cls); {注册窗口类cls}  

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

{ Now create the dummy window }  
Wnd := CreateWindow (AppName, AppName, ws_OverlappedWindow, cw_UseDefault, cw_UseDefault, cw_UseDefault, cw_UseDefault, 0, 0, hInstance, Nil);  
x:= 0; {变量X其实是个开关变量，记录现在是否已经隐藏了桌面}  
{ 如果窗口创建成功，则显示窗口，并进入消息循环 }  

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

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

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


{现在看来，程序的主框架很明了，但是它还不能完成任何任务。过程 Panic将显示一个对话框后退出程序，它在 Winmain 过程的开始部分被调