摘要：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......
摘要：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;......
动态贺卡EXE生成器 我们经常看到一些电子贺卡之类的制作软件,可以让你自己选择图片,然后
它会生成一个exe可执行文件给你.打开贺卡时就会一边放音乐一边显示出图片来. 【程序编程相关:
CORBA技术及在Delphi中的实现】 【推荐阅读:
编写支持多国语言的程序】
现在学了流操作之后,我们也可以做一个了. 【扩展信息:
DELPHI的中文版安装程序制作大揭密】
添加图片过程我们可以直接用前面的cjt_addtofile,而现在要做的是如何把
图像读出并显示.我们用前面的cjt_loadfromfile先把图片读出来保存为文件再
调入也是可以的,但是还有更简单的方法,就是直接把文件流读出来显示,有了
流这个利器,一切都变的简单了.
现在的图片比较流行的是bmp格式与jpg格式.我们现在就针对这两种图片写
出读取并显示函数.
function cjt_bmpload(imgbmp:timage;sourcefile:string):boolean;
var
source:tfilestream;
myfilesize:integer;
begin
source:=tfilestream.create(sourcefile,fmopenread or fmsharedenynone);
try
try
source.seek(-sizeof(myfilesize),sofromend);
source.readbuffer(myfilesize,sizeof(myfilesize));//读出资源
source.seek(-myfilesize,sofromend);//定位到资源开始位置
imgbmp.picture.bitmap.loadfromstream(source);
finally
source.free;
end;
except
result:=false;
exit;
end;
result:=true;
end;
上面是读出bmp图片的,下面的是读出jpg图片的函数,因为要用到jpg单元,所
以要在程序中添加一句:uses jpeg.
function cjt_jpgload(jpgimg:timage;sourcefile:string):boolean; ...
下一页 摘要：unit main;
interface
uses
sysutils, wintypes, winprocs, messages, classes, graphics, controls,
forms, dialogs, stdctrls,
nb, extctrls;
type
tform1 = class(tform)
panel1: tpanel;
memo......
