Delphi 使播放的Flash随窗口大小改变

Delphi 获取MonthCalendar中选择的日期，其实就是完成一个时间、日期的选择功能，年份、月份、日期、时间都可自定义调整并选择，这个简单的例子，可演示Delphi中MonthCalendar的用法，生成一个日期时间选择器功能。下面是相关代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Year,Month,Days: Word; 　　begin 　　 DecodeDate(MonthCalendar1.Date,Year,Month,Days); 　　 Edit1.Text:=IntToStr(Year); 　　 Edit2.Text:=IntToStr(Month); 　　 Edit3.Text:=IntToStr(Days); 　　end; 　　全部源码请下载本实例包。

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

Delphi实现动态的窗口标题栏文字，让标题栏文字滚动，有以下动态变化形式：标题左循环，标题左右移动，停靠右端，设置移动时间间隔，每隔多少毫秒移动一个字等。可以在标题上设置一些醒目的内容，再使用本效果，吸引使用者的注意，是一种很不错的提醒方式。

Delphi 简单的文件查看器，可以获取并显示文件的显示名，获取并显示文件类型信息，获取并显示表示该程序的图标，获取文件属性信息，始获取并显示文件上次修改的日期和时间，处理用户没有选择文件而选择了文件夹或驱动器的转化异常。

Delphi演示如何将一张图片的颜色加深，类似于调整对比度，不过本效果不加入了渐变加深的动画效果，按住按钮图片一直变暗下去，要知空间，你可看下以下代码： 　　Bitmap:=image1.Picture.Bitmap; 　　image1.Height:= Bitmap.Height; 　　image1.Width:= Bitmap.Width; 　　for i:=0 to 255 do 　　begin 　　 sleep(10); 　　 for y:=0 to Bitmap.Height-1 do 　　 begin 　　 pixcolo:=Bitmap.Scanline[y]; //扫描每行像素颜色 　　 for x:=0 to ((Bitmap.Width*3)-1) do 　　 //递减颜色值，不同的递减值可改变不同的速度 　　 if pixcolo[x]>0 then pixcolo[x]:=(pixcolo[x]-1); 　　 end; 　　 Image1.Canvas.Draw(0,0,Bitmap); 　　 Application.ProcessMessages; //让Application去处理消息队伍中的消息 　　end;

简单获取Windows时间-Delphi源代码，改时间的小程序，在Windows自带的时间管理中也可完成系统时间的修改，这个只是一个帮助了解Windows与Delphi编程的例子，如何通过Delphi的程序来修改Windows时间，大致就是这样实现的。可参见以下源码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 Dtimer : TSystemTime; 　　 hh,Ghh : Integer; 　　begin 　　 hh := StrToInt(Trim(Edit4.Text)); 　　 if hh < 8 then 　　 Ghh := 16 + hh 　　 else 　　 Ghh := hh - 8; 　　 with Dtimer do 　　 begin 　　 wYear:=StrToInt(Edit1.Text); 　　 wMonth:=StrToInt(Edit2.Text); 　　 wDay:=StrToInt(Edit3.Text); 　　 wHour:=Ghh; 　　 wMinute:=StrToInt(Edit5.Text); 　　 wSecond:=StrToInt(Edit6.Text); 　　 end; 　　 SetSystemTime(Dtimer); 　　end;

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

Delphi7 计算汉字的笔划有几划，输入一个汉字，本程序将计算出这个字有多少笔划，最后将结果将输出一个整数。

Delphi控制系统静音，两个声道均不发出声音，同时若在非静态状态下，可控制左、右声道的音量大小，在代码中@表示指向变量v的指针（32位），调用此函数的用意就是得到右声道的值，在调节左声道的时候，不改变右声道}数字前面加＄表示是十六进制数字，(t shl 8)表示t左移8位，部分参数设置代码如下： 　　procedure TForm1.FormCreate(Sender: TObject); 　　var 　　 v:longint; 　　begin 　　 waveoutgetvolume(0,@v);//得到现在音量，@v表示指向变量v的指针（32位） 　　 trackbar1.Position:=hi(v);//设置左滑块的正确位置 　　 trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置 　　end;

一个基础的Delphi 文件目录操作示例，这里是拷贝指定的文件夹目录，一是了解复制文件的原理，二是熟悉Delphi中的目录操作技巧。