-
Delphi 7.0 在局域网内发消息
Delphi 7.0 在局域网内发消息，这个本站收集有很多例子了，学习Delphi网络编程可参考的例子，Delphi网络发消息，局域网发消息的例子，敬请关注。
局域网内发消息核心代码：
procedure TFrmSendMessage.Sendmessage(const msg,tomachine,from:string);
var
ms:PWideChar;
begin
ms:=PWIDEChar(WideString(msg));
NetMessageBufferSend(nil,pWidechar(WideString(tomachine)),pWidechar(WideString(from)),ms,length(msg)*2);
end;
procedure TFrmSendMessage.BtnSendClick(Sender: TObject);
begin
Sendmessage(mmMessage.Text,EDTo.Text,EDFrom.Text);
end;
- 2022-04-01 17:32:07下载
- 积分：1
-
Delphi 编写的VOD视频点播及后台管理系统
Delphi 编写的VOD视频点播及后台管理系统，这套系统既是一套多媒体系统，也是一套数据库系统，VOD部分的功能有：KTV管理系统，编号点歌、轻音乐、拼音点歌、迪士高、明星点歌、DVD影院、播放列表、歌曲管理等。
- 2022-01-24 15:29:37下载
- 积分：1
-
Delphi 定制自己的幽灵程序
Delphi 定制自己的幽灵程序，这个程序在Windows托盘处显示图标，而且退出后在进程中仍会运行，像幽灵一样，托盘处可右键弹出菜单，本程序主要是图标和菜单的一些操作，属于UI界面的范畴吧，这是我个人认为的，部分代码摘录：
NormalIcon,DisabledIcon:TIcon;
//正常和失效两种情况下的图标
Status:Boolean;
//标志"允许使用"还是"禁止使用"
procedure InstallIcon;
procedure ChangeIcon(s:Boolean);
procedure UnInstallIcon;
procedure IconOnClick(var message:TMessage); message MI_ICONEVENT;
//捕捉自定义消息MI_ICONEVENT的过程IconOnClick的声明
- 2023-04-07 01:50:03下载
- 积分：1
-
Delphi getTime 获取当前日期时间实例源码
Delphi getTime 获取当前日期时间，用的是DateTimeToStr，运行本窗口后，自动获取当前电脑上的时间，显示在窗体指定的Lable标签中，这是核心的源代码：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := DateTimeToStr(now());
end;
- 2022-11-15 02:10:03下载
- 积分：1
-
Delphi创建透明图像效果的窗体
Delphi创建透明图像效果的窗体，这个示例实际是演示调用透明图片并显示的效果，用此制作成一个无边框且透明的窗口，制作时需要把此窗口设为Desktop型的。图片最好是BMP或PNG透明格式的，这样当图片显示时，会显示为一个无边框的透明窗口，没有图像的部分会显示窗口下层的内容，演示了一种制作透明窗口的方法。
- 2022-02-25 21:57:42下载
- 积分：1
-
Delphi 获取磁盘序号
Delphi 获取磁盘序号，获取序号非磁盘编号，也不是序列号。运行后的效果如图所示，应该是所选择的磁盘在我的电脑中的排列序号。
操作时，只需选择对应的盘符，然后单击按钮即可，请参见测试截图所示。
- 2022-07-24 20:22:04下载
- 积分：1
-
delphi windows远程桌面链接源码，带代理功能，支持win2012
delphi windows远程桌面链接源码，带代理功能，支持win2012 原创代码
- 2023-02-10 08:55:03下载
- 积分：1
-
轻型网络聊天Delphi程序-源码
轻型网络聊天Delphi程序-源码，类似聊天室， 很简单，这是个多年前的网络编程例子，聊天过程中显示对方的IP，和当前好友姓名，还支持删除聊天记录。用户注册时，可对注册信息进行初始验证，比如用户名是否存在、姓名和IP地址不能空等，有一些技巧对Delphi打基础有帮助。
- 2023-05-16 10:20:03下载
- 积分：1
-
Delphi 垂直交错显示效果
图片的垂直交错效果，Delphi 编写的图片垂直交错显示效果，之前就分享过这种效果，类似百叶窗的交替显示效果，可用于图片转场，不过本效果还有很多地方需要优化，当时是写给一本书，作为随书实例的，有兴趣的可参考，关于本功能的关键代码部分，请看以下代码：
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
i:=0;
while i0 do
begin
newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.Canvas,Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j));
newbmp.Canvas.CopyRect(Rect(0,bmpheight-j-1,bmpwidth,bmpheight-j),image1.Canvas,Rect(0,i-j,bmpwidth,i-j+1));
j:=j-2;
Application.ProcessMessages;
end;
form1.Canvas.Draw(0,0,newbmp);
i:=i+2;
end;
newbmp.free;
- 2023-04-12 21:35:03下载
- 积分：1
-
Delphi 钩子函数创建鼠标操作的演示
Delphi 钩子函数创建鼠标操作的演示，作者：冉林仓，测试内容包括三个：DemoRecord.dpr DemoPlayBack.dpr Hktest.dpr。
安装与调试说明：
如果制作的演示程序工作不正常,请注意修改HKPROC.PAS，JOURNALPLAYBACKHOOKHANDLER函数,主要是修改返回的RESULT值.
记录的消息序列与屏幕窗口位置、分辨率有很大的关系,哪怕是窗口位置和大小仅仅偏一点,你的回放就不一定正常,请你在使用时要反复调试，以获得比较理想的效果。
- 2023-09-02 14:55:03下载
- 积分：1
