API高手帮忙！UP有分！(300分)

我要写一个小执行程序，要求使用CreateWindow或CreateWindowEx创建一个没有标题栏的窗口，
并且在上面创建一个可以显示图象的控件，控件要支持拖动事件，可以捕捉到开始拖动
和终止拖动事件，还有在上面创建一个蓝色的标签！
各位高手回答部分或全部都可以，问题解决后马上给分！！！！！

参考win32 sdk的帮助

无标题 窗 体 移 动 的 方 法。
方 法 一：
通 过 响 应“wm_NCHitTest” 消 息 来 移 动 窗 体。
Windows 发 送“wM_NCHitTest” 消 息 来 确 定 鼠 标 操 作 是 否 发 生 在 窗 体 的 客 户 区， 或 边 框 的 特 殊 区 上（ 非 客 户 区）。
如 果Windows 发 现 用 户 单 击 了 窗 体 标 题， 系 统 将 移 动 窗 体， 单 击 了 窗 体 边 框， 则 系 统 将 开 始 改 变 窗 体 大 小。
例 程 如 下：
private
{ Private declarations }
Procedure MoveForm(var M:TWMNCHITTEST);
Message WM_NCHITTEST;
//声明一自定义事件，拦截“WM_NCHITTEST”消息
public.
{$R *.DFM}
Procedure TForm1.MoveForm (var M:TWMNCHITTEST);
begin
inHerited;//继承，窗体可以继续处理以后的事件
if (M.Result=HTCLIENT) //如果发生在客户区
and ((GetKeyState(vk_CONTROL) < 0)
//检测“Ctrl”键是否按下
then M.Result:=HTCAPTION;
//更改“.Result”域的值
end;

方 法 二：


通 过 为Application.OnMessage 创 建 一 个 处 理 程 序 获 得Windows 消 息， 可 以 调 整 应 用 程 序 对 不 同 消 息 的 响 应 或 为 不 能 正 常 识 别 的 消 息 提 供 服 务。 这 里 受 到 窗 体 客 户 区 的 鼠 标 按 下 的 消 息 后，
发 送 一 条 在 标 题 栏 内 按 下 的 消 息。
例 程 如 下：
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure AppMessage(var Msg:TMsg;var Handled:Boolean);
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=AppMessage;
//捕捉消息：将程序的收到消息事件与消息过滤过程关联起来
end;
procedure TForm1.AppMessage(var Msg:TMsg;var Handled:Boolean);
begin
if (Msg.message=WM_LButtonDown) and
//如果鼠标左键按下的话
(DefWindowProc(Handle,WM_NCHitTest,0,GetMessagePos)=HTClient) and//判断光标是否在客户区内
((GetKeyState(vk_CONTROL) < 0)//检测“Ctrl”键是否按下
then
begin
SendMessage(Handle,WM_NCLButtonDown,HTCaption,GetMessagePos);//发送鼠标在标题栏内按下的消息
Handled:=true;
end;

end;


方 法 三：
直 接 向 窗 体 发 送 一 条“wm_SysCommand” 消 息， 需 要 使 用 未 归 档 的“sc_DragMove” 标 志， 定 义 如 下：
const
sc_DragMove:LongInt=$F012;
我 们 只 能 向TWinControl 派 生 组 件 发 送 该 消 息， 而 且 只 能 响 应 鼠 标 按 下 事 件， 因 为 系 统 会 在 此 时 捕 获 鼠 标（ 当 释 放 鼠 标 键 时， 拖 动 操 作 是 没 有 意 义 的）。
例 程 如 下：
const
sc_DragMove:longint=$F012;
implementation
{$R *.DFM}
procedure TForm1.FormMouseDown
(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X
Y: Integer);
begin
if ssCtrl in Shift then
//判断“Ctrl”键是否按下
Begin
ReleaseCapture;
//释放鼠标事件的对象
(Sender as TWinControl).PerForm(wm_SysCommand,sc_DragMove,0);
//发送消息
end;
end;


这 种 方 法 适 用 与 窗 体 与 组 件， 如 想 移 动 组 件， 将 其“OnMouseDown” 事 件 写 成 与Form 的“OnMouseDown” 事 件 一 样 即 可。 如 只 想 移 动 窗 体 可 按 以 下 方 法 编 写 代 码：
procedure TForm1.FormMouseDown
(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X
Y: Integer);
begin

if SsCtrl in Shift then

Begin

ReleaseCapture;
SendMessage(handle,wm_SysCommand,sc_DragMove,0);

end;
end;
运 行 结 果：
按 下“Ctrl” 键 拖 动 鼠 标 即 可 移 动 窗 体。
总 结：
要 实 现 无 标 题 窗 体 的 移 动 有 很 多 种 方 法， 还 可 以 通 过 检 测 鼠 标 的 位 置（ 坐 标） 来 确 定Form 的“left” 与“top” 值 等 方 法， 在 此 不 再 详 细 举 例.
以 上 程 序 均 在Delphi 5.0 下 编 译 通 过。

up

i up too.

看WIN32SDK，里面有介绍！

用类 TForm 肯定是不合要求的。
在 WM_CREATE 消息中添加控件！！！

以下供参考：

一个功能很强的程序
本程序象C语言一样，用Delphi也能写出只有几十K、十几K、甚至只有几K的小程序，本文以一个能将Win95桌面藏起来的小程序为例，还涉及Win95 TrayIcon的显示。
本程序能写得很小的诀窍是：根本没有用任何的 Form 。也就是说，源程序只有一个Prog1.dpr 文件，当然资源文件是不能少的。资源中包括桌机两种状态的图标。程序完全用标准的 WINAPI 写成，由于用到的资源很少，所以程序的体积也很小。当然，用这样的方法编程时不能使用 Delphi的所见即所得的编程方式。
本程序用到了如下一些功能:

在任务栏上显示图标，不同状态的切换
只用一个工程文件，运行中注册建立窗口
点击任务栏显隐桌面
ShowWindow(FindWindow('Progman',nil),SW_RESTORE|SW_HIDE);
运行中建立弹出菜单，对菜单命令的处理
不显示程序窗口，程序不能重复运行
注册窗口对不同消息的控制
program prog1;
{prog1.dpr}
uses Windows, Messages, ShellAPI, sysutils;
{$R *.RES}
{可以看出本程序比普通的 Delphi 程序用到的 Unit 少的多。 下面声明了全局常量和变量，暂时可以不管他们。}
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;


function DummyWindowProc (Wnd: hWnd; Msg, wParam: Word; lParam: LongInt):LongInt; stdcall;
{注意这里有一个 stdcall;定义了回调函数}
var
TrayHandle: Thandle;
dc: hDC;
pm: Hmenu;
pt: Tpoint;
begin
DummyWindowProc := 0;
{下面两句是找到 Win95 任务栏的句柄}
StrPCopy(@WndClass[0], 'Progman');
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,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;
{这个就是处理菜单消息的过程}
{现在看来，程序的主框架很明了，但是它还不能完成任何任务。
过程 Panic将显示一个对话框后退出程序，
它在 Winmain 过程的开始部分被调用，
其实 Panic的功能很简单，之所以要写成一个函数的原因
恐怕一方面是结构化编程的需要，
另一方面借此避开了 String 和 Pchar 的转换。}
procedure Panic (szMessage: Pchar);
begin
if szMessage <> Nil then
MessageBox (0, szMessage, AppName, mb_ok);
Halt (0);
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; {窗口类名}
RegisterClass (cls); {注册窗口类cls}
{ 现在可以创建程序的主窗口了-在本程序中是个虚拟窗口}
{ Now create the dummy window }
Wnd := CreateWindow (AppName, AppName, ws_OverlappedWindow,0, 0, 100, 100,
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;
{主程序}
begin
WinMain;
end.

up

up

up

关注!

up

都不对呀！

up[8D]

up
up
up