一楼度娘，二楼备用，三楼开坑
这次是一些实（wu）用（liao）的小功能教学
欢迎吐槽

备用

换背景
这个功能可谓酷炫狂拽屌炸天，不过楼主发现好像只支持bmp格式
上源码：
{$Mode Delphi}//这句要加，否则不知道string型怎么强转^char
USES CRT,Windows;
VAR
Ch : Char;
S : String;
BEGIN
WHILE ReadKey()<>*"* DO;//请把星号换成半角引号
REPEAT
Ch:=ReadKey();
S:=Concat(S,Ch);
UNTIL Ch=*"*;//请把星号换成半角引号
Delete(S,Length(S),1);
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,pchar(S),SPIF_UPDATEINIFILE);
END.
//说明：拖动bmp文件到程序窗口即可

隐藏当前窗口
用某个编译开关也能实现orz
上源码：
USES WinCRT,Graph,Windows;
VAR
Test_hWnd : hWnd;
GD,GM : Integer;
BEGIN
GD:=Detect;
GM:=0;
Test_hWnd:=GetForegroundWindow();
ShowWindow(Test_hWnd,SW_Hide);
InitGraph(GD,GM,**);//请把星号替换成半角引号
//此处添加你的程序语句
END.
说明：隐藏窗口后开graph窗口时可以隐藏主程序窗口

最小化指定窗口
真心觉得这玩意没啥用orz……不过说实话参数挺简单，就是窗口句柄
上源码：
USES Windows;
BEGIN
CloseWindow(GetForegroundWindow);
END.
其实如果配合“获取鼠标所在窗口句柄”的话，说不定能弄个整人小程序orz

在指定窗口禁用鼠标
本来度娘告诉我是说在指定窗口禁用鼠标和键盘的……但是经过我测试键盘禁不了orz
上源码：
USES Windows;
BEGIN
EnableWindow(GetForegrondWindow,FALSE);
END.
哦呵呵呵，运行之后无论你怎么狂点，在fp你的鼠标左右键都废了
除非你把参数改成TRUE
同上，适合做整人小程序（都这么无聊吗，没什么实用性啊orz）

围观

闪烁窗口
实用性基本为0
上源码：
USES Windows;
BEGIN
WHILE TRUE DO
FlashWindow(GetForegrondWindow,TRUE);
END.
真不知道微软设计这个函数的意义何在orz

将这帖逐字逐句的看完后，我的心久久不能平静，震撼啊!!!为什莫会有好到
这种程度的帖子？我纵横网络多年，以为不会再有任何文章能打动我,原以为
破烂文章将会充斥BBS,直到出现了如此精妙绝伦的这样一篇帖.好感动搂住你
的帖你的帖让我深深理解了"人外有人,天外有天"这句话.谢谢你了!我知道无
论是用多莫华丽的辞藻来形容这帖子的精彩程度都是不够的,都是无力的,无
论哪种语言都无法给他以合适的赞美!我愿意一辈子看下去!这篇帖子的构思
有个性,题材,具匠心.似段落清晰.情节诡异.跌延起伏.用词,似拙还巧.文字,
似傻还灵,显示出非同一般的文学功底,可谓江山代有人才出,不让当年老父我
被逼老夫我只好得冲出江湖写文赞之啊!!!而今天,我要一定要向楼主学习,枯
枝发新芽,我代表全体网民向楼主致敬!楼主不要骄傲,仍要继续努力阿!网
络的希望就在你手中了!!!

。。。

围观orz

前排

改变指定窗口的位置和大小
五个参数：指定窗口の句柄、x、y、width、height、是否重绘
上源码：
USES Windows;
BEGIN
WHILE TRUE DO
MoveWindow(GetForegroundWindow,1,1,10,10,FALSE);
END.
↑这酸爽简直不敢相信
你值得拥有另外纪念一下，今天楼主签到30天了orz终于橙名了

让蜂鸣器响起来
@风x千叶翔龙V 用这玩意编过Pascal钢琴orz参数分别是：频率（hz）和时长（ms）
上源码：
USES Windows;
BEGIN
WHILE TRUE DO
Beep(100,1);
END.
慎用让人想起了while true do write(chr(7));哦呵呵呵呵

已封装好のShutdown
你还在用bat写shutdown然后exec吗快来看看这碉堡函数吧
上源码：
USES Windows;
BEGIN
ExitWindowsEx(EWX_Shutdown,0);
END.
还能重启啥的哦更多参数敬请自行百度（又一个整人程序的好东西）

取得本地日期和时间
喂，楼主你够了这玩意不就是DOS.GetDate+DOS.GetTime吗
上源码：
USES Windows;
VAR
LocalTime:SystemTime;
BEGIN
GetLocalTime(LocalTime);
WITH LocalTime DO
BEGIN
WriteLn(wYear,* *,wMonth,* *,wDayOfWeek,* *,wDay,* *,wHour,* *,wMinute,* *,wSecond,* *,wMilliSeconds);
END;
END.
喂喂楼主，把时间封装在record里很了不起是吗我用DOS单元库照样也可以好吗
楼主你够了，这楼纯粹是水经验的吧

单纯用movewindow的话最多也就是pascal编译器那么大，你要不要试试？movewindow是看了我的代码才知道的吧

获得与当前系统电源状态有关的信息
woc说好的实用性呢楼主你的节操去哪了拿这玩意来糊弄广大人民群众
上源码：
USES Windows;
VAR
lpPwrStatus:System_Power_Status;//有点想吐槽一下这类型名orz
BEGIN
GetSystemPowerStatus(lpPwrStatus);
WITH lpPwrStatus DO
BEGIN
WriteLn(ACLineStatus,* *,BatteryFlag,* *,BatteryLifePercent,* *,Reserved1,* *,BatteryLifeTime,* *,BatteryFullLifeTime);//请把星号替换成半角引号
END;
END.
见到这函数楼主也是醉了orz每个参数的意义：
ACLineStatus
交流电源状态
0
Offline
1
Online
255
Unknown status
BatteryFlag
电池充电状态。 可以包含一或多个以下指
1
高，电量大于66%
2
低，小于33%
4
极低，小于5%
8
充电中
128
没有电池
255
位置，无法读取状态。
BatteryLifePercent
电池还有百分之几能充满.0~100，若未知则为255
Reserved1
保留，必须为0
BatteryLifeTime
秒为单位的电池剩余电量, 若未知则为-1
BatteryFullLifeTime
秒为单位的电池充满电的电量，若未知则为-1

用于获取自windows启动以来经历的时间长度（毫秒）
嗯，这个可以有，计时可以用要注意返回值是DWord，Longint什么的说不定早溢出了
上源码：
USES Windows;
BEGIN
WriteLn(GetTickCount());
END.
不过说实话还是没什么看头啊orz 楼主您还敢更无聊一些吗