-
Delphi 邮件短信发送自动通知系统
Delphi 邮件短信自动通知系统，并且支持邮件发送、邮件帐户管理、类似于微软Windows中的Outlook邮件客户端的功能，可添加邮箱帐户自动收集，并在有新邮件时提示用户登录查看。本程序可发送适合到用户手机来通知邮件情况，部分功能需要依赖于硬件支持。
程序可最小化到windows托盘处显示图标，通过定义好的右键菜单来调出主窗口，虽然是一个发邮件的小程序，但是暗含的Delphi技巧有很多哦，欢迎下载源码研究学习。
1.实现邮件检测功能：
（1）注册账号，注意正确添写POP3服务器，用户名，密码。
2.实现发送短信功能：
（1）在注册账号时要添写正确的手机号码，并选中发送到手机的复选框。
（2）跟据自己购买的GSM模块说明书设置串口参数，一般是“19200，n,8,1”。
（3）添写当地短信中心号码，前面的86可加可不加，如果没有写，系统在按“确定”后会自动加上。
（4）注意：如果短信中含有中文字符，则一定要设成Pdu模式，否则短信可能发送失败。
- 2023-07-27 17:40:06下载
- 积分：1
-
Delphi 演示如何播放GIF动画
Delphi 演示如何播放GIF动画，其实就是在窗口中显示GIF图像，这是一种连续显示类似于动画效果的图像格式，在窗体上只要可以正常显示这种文件，就能实现播放功能，如示例截图所示的效果。
- 2023-05-10 00:50:04下载
- 积分：1
-
Delphi 设定Windows屏幕分辨率的方法和示例代码
Delphi 设定Windows屏幕分辨率的方法和示例代码：
function TForm1.DynamicResolution(X, Y: word): BOOL;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
end
- 2023-04-22 01:05:03下载
- 积分：1
-
Delphi 制作红绿眼镜三维立体画
这是一个Delphi色彩控制方面的示例，我看上去更像是Delphi分离出红绿颜色通道，从页形成的一种立体效果，复制和修改颜色模式来实现，相关代码可参考如下：
//设置添充颜色的大小
DBitmap.Width := LBitmap.Width;
DBitmap.Height := LBitmap.Height;
vRect := Rect(0, 0, DBitmap.Width, DBitmap.Height); //获取添充区域
DBitmap.Canvas.Brush.Color := vGreen; //设置画笔颜色
DBitmap.Canvas.FillRect(vRect); //添充颜色
LBitmap.Canvas.CopyMode := cmSrcPaint; //将复制模式改为OR
LBitmap.Canvas.CopyRect(vRect, DBitmap.Canvas, vRect); //对图片进行复制
DBitmap.Canvas.Brush.Color := vRed;
DBitmap.Canvas.FillRect(vRect);
RBitmap.Canvas.CopyMode := cmSrcPaint; //将复制模式改为OR
RBitmap.Canvas.CopyRect(vRect, DBitmap.Canvas, vRect); //对图片进行复制
DBitmap.Canvas.CopyRect(vRect, LBitmap.Canvas, vRect);
DBitmap.Canvas.CopyMode := cmSrcAnd; //将复制模式改为AND
DBitmap.Canvas.CopyRect(vRect, RBitmap.Canvas, vRect);
except
Exit;
end;
Result := True;
end;
- 2023-02-01 08:05:04下载
- 积分：1
-
Delphi 计算1到10之间的奇数和【源码】
Delphi 推荐到奇数，并计算1到10之间的奇数求和，这是个简单的数学问题，数学水平高，写出这种小程序并不难，趁机把代码帖出来吧：
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
j:=0;
For i := 1 to 10 do
begin
if i mod 2 =0 then
Continue;
j := j+i;
Edit1.text := IntToStr(j);
end;
end;
- 2023-02-23 03:45:04下载
- 积分：1
-
Delphi API笔刷制作源码
Delphi API笔刷制作实例的源码，这个笔刷只不过比较简单，点击按钮后自动生成，而且是有规则的网格线，或许通过这个简单的笔刷，你可以学习到用Delphi制作笔刷的入门技巧，相关的代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
LogBrush:TLogBrush;
begin
LogBrush.lbStyle:=BS_HATCHED;
LogBrush.lbColor:=clRed;
LogBrush.lbHatch:=HS_DIAGCROSS;
Canvas.Brush.Handle := CreateBrushIndirect(LogBrush);
Canvas.FillRect(ClientRect);
end;
- 2022-03-30 01:57:49下载
- 积分：1
-
用Delphi生成图片水平交错的动态显示效果
用Delphi生成图片水平交错的动态显示效果，是一个简单的图片动态显示效果，显示图片的时候，以水平左右交错的方式显示，可用于电子相册中，用于多张图片切换时的过渡动画效果。
本程序有个缺点：只支持BMP的图片，对JPG支持不好，其它格式也不行哦。
- 2022-03-23 01:50:52下载
- 积分：1
-
Delphi获取和设置汉字输入法
Delphi 获取系统中已安装的中文输入法，判断是否在中文状态,若是则关闭它，切换半角和全角模式，切换中文标点模式和英文标点模式，并对输入法做相关设置。以下是相关代码：
procedure TForm1.closecid;
var
mycid:hkl;
begin
mycid:=GetKeyBoardLayOut(0);
if ImmIsIME(mycid) then
//判断是否在中文状态,若是则关闭它
immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle);
end;
procedure TForm1.FormShow(Sender: TObject);
var
j:integer;
begin
for j:=0 to screen.imes.count-1 do
begin
//获取系统中已安装的中文输入法
ComBoBox1.Items.Add(screen.Imes.strings[j]);
end;
end;
- 2022-10-19 03:05:03下载
- 积分：1
-
Delphi打开记事本和计算器等外部程序
Delphi打开记事本和计算器等外部程序，应该说是调用外部程序，调用记事本和计处器，单击窗口中的两个按钮，分别会打开Windows自带的记事本和计算器程序。
- 2022-12-21 03:55:04下载
- 积分：1
-
Delphi 记录文件的读写
Delphi 记录文件的读写，这个程序非数据库程序，实际上也不是文件读写程序，只是使用主窗口、子窗口在这之间传值。在子窗口中输入数据，确定后，会将数据添加到主窗口的StringGrid中，然后通过修改命令，从StringGrid中再读取出数据，进行修改保存，演示了文件内容的读取和写入的操作过程 。
- 2022-02-12 09:49:41下载
- 积分：1
