-
Delphi 钩子函数创建鼠标操作的演示
Delphi 钩子函数创建鼠标操作的演示，作者：冉林仓，测试内容包括三个：DemoRecord.dpr DemoPlayBack.dpr Hktest.dpr。
安装与调试说明：
如果制作的演示程序工作不正常,请注意修改HKPROC.PAS，JOURNALPLAYBACKHOOKHANDLER函数,主要是修改返回的RESULT值.
记录的消息序列与屏幕窗口位置、分辨率有很大的关系,哪怕是窗口位置和大小仅仅偏一点,你的回放就不一定正常,请你在使用时要反复调试，以获得比较理想的效果。
- 2023-09-02 14:55:03下载
- 积分：1
-
Delphi 获取全球标准时间
Delphi 通过网络获取全球标准时间，我们知道在Windows中有三个全球标准时间服务器，若你的电脑设置为自动更新时间，则系统自动会从这三台时间服务器中更新时间，你的电脑就不用自己校对时间了。本程序就是演示，用Delphi编写代码，去连接全球时间服务器，校对时间并更新系统时间的例子，你可通过本源码了解一下时间更新的问题。
- 2023-02-03 13:05:04下载
- 积分：1
-
Delphi7利用鼠标绘制矩形焦点的源码
本源代码主要演示Delphi7利用鼠标绘制矩形焦点，画出虚线框矩形，按住鼠标左键抖动矩形区域，即可显示虚线矩形框，可应用于需要拖动选择对象时作为选区使用，在Delphi中，这个功能使用Canvas实现：
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if IsDraw then
begin
if Count >1 then
DrawFocusRect(Canvas.Handle,FocuRect);
FocuRect.Right := X;
FocuRect.Bottom := Y;
DrawFocusRect(Canvas.Handle,FocuRect);
Inc(Count);
IsEndDraw := True;
end;
end;
- 2023-02-14 21:35:04下载
- 积分：1
-
Delphi 【Frame3D】函数的应用实例-三维框源码
Delphi 函数【Frame3D】的应用，该函数用于在画布上绘制一个3维框图：
implementation
{$R *.dfm}
procedure TFrmFrame3D.FormCreate(Sender: TObject);
begin
Bc:=Rect(80,50,100,200);
end;
procedure TFrmFrame3D.FormPaint(Sender: TObject);
begin
Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);
end;
procedure TFrmFrame3D.Button1Click(Sender: TObject);
begin
Bc:=Rect(strtoint(Edx.text),strtoint(Edy.Text),strtoint(EdH.Text),strtoint(EdW.Text));
Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);
end;
- 2022-06-16 08:51:26下载
- 积分：1
-
Delphi 格式化DataGrid表格中的数据
Delphi 格式化DataGrid表格中的数据，DataGrid网格列表在各种编程的数据库显示方面都使用广泛，因此对于Delphi的数据库编程，DataGrid的使用技巧是一定要撑握的，本源码所要演示的就是一个使用DataGrid的简单例子，将DataGrid表格中的数据格式式成你想要的格式，测试前请确保Delphi与数据库正常连接且有数据。
- 2022-01-25 15:23:01下载
- 积分：1
-
Delphi 创建Excel表格文件
Delphi 读取SQLSERVER数据库内容，并创建Excel表格文件，将内容导出到excel文件中，核心同样是基于createoleobject对象的excel.application方法实现，创建EXECEL对象 ,添加comobj单元，用循环加入记录，将数据表导入到Excel表中，正式开始EXECEL输出。
- 2022-02-15 04:17:26下载
- 积分：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编写锁定电脑的程序
Delphi锁定计算机，锁定电脑，不允许别人可以操作，类似Windows自带的锁定程序，其实锁定是非常简单的，不几行代码就能实现：
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
LockWorkStation;
end;
若需要完整的源码，请下载本源码包。
- 2022-04-28 20:57:54下载
- 积分：1
-
delphi开发的谷歌翻译工具内含源码
delphi开发的谷歌翻译工具，使用该工具可以不用打开浏览器，然后输入谷歌翻译地址才能进行翻译工作，
而这个工具可以快速打开并直接在文本框中输入你要翻译的文本内容即可翻译了。
同时，你拿到此源码还可以进行二次开发，以满足你更多需要和想象。
- 2022-01-25 22:56:02下载
- 积分：1
-
Delphi 获取拖动到窗体中的文件的路径
Delphi 获取拖动到窗体中的文件的路径，这实际上是一个拖放打开文件的例子，这只不是其中的一个步骤，拖放打开是把文件拖放到本窗口中，直接打开该文件，而拖放得到路径是把文件的路径显示在窗口中，和打开文件其实难易程序是一样的。拖放后获取文件路径，代码如下：
procedure TForm1.FileIsDropped(var Msg: TMessage);
var
NumFiles : longint;
i : longint;
FName : array[0..255] of char;
begin
SetForegroundWindow(Handle);
NumFiles := DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0);
for i := 0 to (NumFiles - 1) do
begin
DragQueryFile(Msg.WParam,i,FName,sizeof(FName));
Memo1.Lines.Add(FName);
end;
end;
- 2022-09-25 15:45:03下载
- 积分：1
