-
Delphi打开记事本和计算器等外部程序
Delphi打开记事本和计算器等外部程序,应该说是调用外部程序,调用记事本和计处器,单击窗口中的两个按钮,分别会打开Windows自带的记事本和计算器程序。
- 2022-12-21 03:55:04下载
- 积分:1
-
Delphi 7在数据库中存取图像
Delphi 7在数据库中存取图像,这个示例代码较早,面向的图像格式为BMP,JPG、GIF之类的图片格式未做测试,或许也可以。示例中将4张图片保存到数据库中,然后程序将从数据库中输出这些图片,通过程序的操作,你只需选择对应的图片,即可从数据库中读取出对应的图片。
- 2022-10-12 00:05:03下载
- 积分:1
-
Delphi 屏蔽键盘 sleep和wake up键
如何屏蔽sleep和wake up键,一个是待机键,一个是唤醒键,屏蔽可有效避免误操作,不过本代码过于简单,屏蔽效果有待测试,核心代码如下:
procedure TForm1.WMPowerBroadcast(var message: TMessage);
begin
message.Result := BROADCAST_QUERY_DENY;
end;
- 2022-06-30 14:51:25下载
- 积分:1
-
Delphi 格式化DataGrid表格中的数据
Delphi 格式化DataGrid表格中的数据,DataGrid网格列表在各种编程的数据库显示方面都使用广泛,因此对于Delphi的数据库编程,DataGrid的使用技巧是一定要撑握的,本源码所要演示的就是一个使用DataGrid的简单例子,将DataGrid表格中的数据格式式成你想要的格式,测试前请确保Delphi与数据库正常连接且有数据。
- 2022-01-25 15:23:01下载
- 积分:1
-
Delphi 自定义播放窗口
Delphi 自定义播放窗口,指定视频显示窗口,本源码演示的重点主要是播放器窗口外观的设计,调用了外部的一张jpg图片做为播放器的主窗口,让窗口风格首先看上去具有播放器程序的风格,因此,在美化窗口时如何使用jpg格式的图片,是本例要表现的重点功能,希望对窗体设计感兴趣的Delphi初学者好好学习研究一番哦。
本播放器虽然重在演示窗口功能的实现,不过它真的可以播放视频文件,比如mpg格式的文件。
- 2022-05-25 21:56:20下载
- 积分:1
-
Delphi获取从开机到现在CPU运行的周期数
Delphi获取从开机到现在CPU运行的周期数,不是获取开机时间多长,是CPU的周期数,显示的值为数字字符串,运行效果如示例截图所示。代码段:
begin
Edit1.Text := inttostr(periodicity);
end;
- 2022-07-05 04:51:29下载
- 积分:1
-
Delphi 改变当前鼠标样式
Delphi 改变当前鼠标样式,这个样式比较个性了,把箭头状的鼠标指针替换成了一幅图像,还有动画效果。具体实现,请下载本源码一看究竟。本程序具备的功能是可以选择的,用户可选择改变鼠标的形状是否是当前窗口或系统,选择当前窗口则只会在本测试程序的窗口中改变鼠标的形状。
- 2023-07-31 03:10:03下载
- 积分:1
-
Delphi中使用Word的一个例子
这个程序演示了使用Word作为自动化服务器,Delphi地自动化控制器是如何将一个查询结果插入到word文档中,在程序调用过程中返回应用参数.这个调用在英文和法文版的 Word中相同。如果这个过程不存在,存在一个不同的Word翻译版本。
对中文Word请在指定处插入。
- 2022-02-12 22:24:48下载
- 积分:1
-
Delphi 使用ESC键停止循环
Delphi 使用ESC键停止循环,示例演示程序,单击按钮开始循环,按下键盘ESC键,将停止循环。程序核心代码:
begin
for i:= 0 to 9999999 do
begin
Edit1.Text := IntToStr(i);
//允许应用程序在循环中可以处理消息
Application.ProcessMessages;
//用是 ESC 键放弁循环
if GetKeyState(VK_ESCAPE) and 128 = 128 then
Break;
end;
end;
- 2022-03-24 17:07:24下载
- 积分:1
-
Delphi 从剪贴板中读取图片
Delphi 从剪贴板中读取图片,Windows剪帖板相信大家都知道吧,这个程序可查看剪贴板中的图像,将图片另保存,可看作是一个查看剪贴板中图片的一个例子。
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Clipboard().Assign(Image1.Picture.Bitmap);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Clipboard().HasFormat(CF_BITMAP) then
Image2.Picture.Bitmap.Assign(Clipboard());
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Image2.picture := nil;
end;
end.
- 2022-06-13 13:08:12下载
- 积分:1