Delphi 从剪贴板中读取图片

Delphi 变速齿轮# 让时间变快减慢，其实这个似乎是做不到的，只是模拟一下，代码及描述如下： 　　procedure Speed(count:word); stdcall; 　　const ExceptionUsed = $03; { 中断号也可以用其它的中断号} 　　var 　　 IDT : array [0..5] of byte; { 保存中断描述符表} 　　 lpOldGate : dword; {存放旧向量} 　　begin 　　 asm 　　 push ebx 　　 sidt IDT {读入中断描述符表} 　　 mov ebx, dword ptr [IDT+2]{IDT表基地址} 　　 add ebx, 8*ExceptionUsed {计算中断在中断描述符表中的位置} 　　 cli {关中断} 　　 mov dx, word ptr [ebx+6] {取6,7字节 另外4字节用于门属性和选择子 } 　　 shl edx, 16d {左移16位} 　　 mov dx, word ptr [ebx] {取1,2字节 } 　　 mov [lpOldGate], edx {保存旧的中断门} 　　 mov eax, offset @@Ring0Code {修改向量，指向Ring0级代码段} 　　 mov word ptr [ebx], ax {低16位,保存到1,2字} 　　 shr eax, 16d 　　 mov word ptr [ebx+6], ax {高16位，保存到6,7位} 　　 int ExceptionUsed {发生中断} 　　 mov ebx, dword ptr [IDT+2] {重新定位到中断描述符表中} 　　 add ebx, 8*ExceptionUsed 　　 mov edx, [lpOldGate] 　　 mov word ptr [ebx], dx 　　

在图片中写入文字(写入文字后按回车键)，Delphi 图片合成 效果，图片与字符的合并，在图片中写入文字，就像PhotoShop中完成的效果，有兴趣的参考源码吧。

Delphi户籍管理系统，Access数据库版，界面方面使用了Xpmenu和SReport控件。测试时的登录初始密码为：222222 。 　　在数据库编程方面，本系统更注重录入及查询，采用多重SQL语句查询，并结合查询可生成报表。

Delphi获取内存的使用状态并显示信息，这里是使用GlobalMemoryStatus来实现，有的是使用GetSystemInfo来获龋本程序可显示内存大小和可用内存，并显示进度条。不过我这台电脑是16G内存的Windows7 64位系统，程序可能没认出啊，下面是识别内存可用量的大小，仅供参考： 　　memo_status.dwLength := sizeof(memo_status); 　　GlobalMemoryStatus(memo_status); 　　Gauge2.Progress := (round((100*(memo_status.dwAvailPhys 　　 / memo_status.dwTotalPhys)))); 　　label1.Caption := inttostr(memo_status.dwAvailPhys); 　　label2.Caption := inttostr(memo_status.dwTotalPhys);

Delphi演示如何实现UniCode编码、汉字的繁简互转功能，同时将字符转换为unicode码值（十六进制）： 　　常用编码： 　　codepage=936 简体中文GBK 　　codepage=950 繁体中文BIG5 　　codepage=437 美国/加拿大英语 　　codepage=932 日文 　　codepage=949 韩文 　　codepage=866 俄文 　　codepage=65001 unicode UTF-8 　　本例子中仅使用了936、950，如果你要进行其他语言的编码转换，仅需相应改变其中的编码值即可。

方格变换的Delphi图像显示，类似于那种动态的马赛克效果，电视上经常见到这种图像切换的效果，当然网页上的一些焦点图切换也会常见到这种图像转场的过渡效果，相比直来直去的切换，增加了一些视觉效果，不至于那么单调。 　　本效果适用的图像格式了BMP位图，其它图片格式未做测试。

Delphi判断双字节，用法简单，在窗口输入框中输入字符串，单击按钮即可，程序会判断出是否包含有双字节字符，判断方法请看下边的代码段： 　　s := Edit1.Text; 　　i := 0; 　　while i　　begin 　　 if (ByteType(S,i) mbSingleByte) then 　　 begin 　　 s1 := s1+ copy(s,i,2)+; 　　 i := i+2; 　　 end 　　 else 　　 i:= i+1; 　　end; 　　label2.Caption := trim(s1);

Delphi 替换一个键盘按钮，将数字1改为a。将键盘所代表的键位重新定义并判断，得到一个不同的键位值。

Delphi 绘制标准的艺术图案,是比较有规则的几何图案,如示例截图所示的样式 。 　　self.ClientHeight:=200; 　　self.ClientWidth:=200; 　　r:=self.ClientWidth/2; 　　Sect:=20; 　　for i:=0 to Sect-1 do 　　begin 　　 x[i]:=Trunc(r*Cos(i*2*PI/Sect)+self.ClientWidth/2); 　　 y[i]:=Trunc(r*Sin(i*2*PI/Sect)+self.ClientHeight /2); 　　end;

得到系统当前目录，Delphi 得到系统当前目录，这里使用了内置的GetCurrentDirectory函数来实现，比较方便，也比较简单。获取到系统目录后，是通过窗口的标题栏显示目录路径信息，在演示截图上请看窗口的标题栏，显示有程序当前所在的路径。关于GetCurrentDirectory用法，请参见以下两行代码： 　　GetCurrentDirectory(255,dir);//获得当前目录 　　form1.Caption:=dir;