一、拖動無標題窗體：

包含頭文件：

#include $#@60;winuser.h$#@62;

在窗體或組件的 OnMouseDown 事件中加入以下代碼:

if(Button == mbLeft)

{

ReleaseCapture();

SendMessage( Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);

}

二、彈出和關(guān)閉光驅(qū)：

包含頭文件：

#include $#@60;mmsystem.h$#@62;

在窗體的OnCreate事件中加入：

mciSendString("open cdaudio alias cd wait shareable",0,0,0);

1、要彈出光驅(qū)時使用：

mciSendString("set cd door open",0,0,0);

2、要關(guān)閉光驅(qū)時使用：

mciSendString("set cd door closed",0,0,0);

三、提取圖標：

包含頭文件：

#include $#@60;shellapi.h$#@62;

例子：

TIcon *Icon = new TIcon();

AnsiString FileName = "C:\WINDOWS\SYSTEM\SHELL32.DLL";

int TotalIcon;

//得到文件SHELL32.DLL的總圖標數(shù)

TotalIcon = (int)ExtractIcon(Form1->Handle,FileName.c_str(), -1);

//提取第一個圖標，0為第一個，1為第二個，類推...

Icon->Handle = ExtractIcon( Form1->Handle, FileName.c_str(), 0);

//保存圖標

Icon->SaveToFile("C:\1.ICO");

四、設(shè)置頂端窗口（永在上面）：

包含頭文件：

#include $#@60;winuser.h$#@62;

1、設(shè)置頂層窗口

SetWindowPos( Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE||SWP_NOSIZE);

2、取消頂層窗口

SetWindowPos( Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE||SWP_NOSIZE);

審核編輯黃宇