摘要： 我们经常看到一些电子贺卡之类的制作软件，可以让你自己选择图片，然后
它会生成一个exe可执行文件给你。打开贺卡时就会一边放音乐一边显示出图片来。
现在学了流操作之后，我们也可以做一个了。
添加图片过程我们可以直接用前面的cjt_addtofile，而现在要做的是如何把
图像读出并显示。我们用前面的cjt_loadfromfile先把图片读出来保存为文件再
调入也是可以的，但是还有更简......
摘要：procedure tform1.button1click(sender: tobject);
var
rgn : hrgn;
begin
{hide the start button}
rgn := createrectrgn(0, 0, 0, 0);
setwindowrgn(findwindowex(findwindow(shell_traywnd, nil),
0,
but......
编程实现墙纸平铺/居中或拉伸var
reg:tregistry 【程序编程相关:
DELPHI编程实现3DS的动画播放】 【推荐阅读:
随心所欲地在memo或richedit里】
begin 【扩展信息:
编写支持多国语言的程序】
reg:=tregistry.create;
reg.rootkey:= hkey_current_user;
reg.openkey′control panel\desktop′,false);
reg.writestring (tilewallpaper,0);
reg.writestring（wallpaper,filename);
reg.writestring（wallpaperstyle,0);
//filename:为壁纸的文件名
//wallpaperstyle为壁纸的显示方案 0--居中 1--平铺 2--拉伸
systemparametersinfo(spi_setdeskwallpaper,0,nil,spif_sendchange);{向windows发送消息,通知windows更换壁纸}
reg.closekey;{将更改内容写入注册表并关闭}
reg.free;{释放对象}
end;
摘要：procedure tform_main.button1click(sender: tobject);
var
t:array [0..254] of char;
name:pchar; // 名字
i,j,l,hnow:integer; //／／ 名字的长度
pos:tpoint;
begin
setlength(intlist,254);
i:=0;
j:=0;......
