修改系统时间_Delphi修改windows7系统时间的开源源码，按照提示输入新的时间，点击“修改”按钮后即可改变windows当前时间，主要是学习delphi7和windows之间的时间接口，如何操作等。相关代码如下：
For i := 0 to Form1.ComponentCount -1 do
begin
if ComponentS[i] is TEdit then
begin
if TEdit(Components[i]).Text = '' then
begin
Application.MessageBox('请将日期输入完整！','提示',64);
Exit;
end;
end;
end;
SetDate.wYear := StrToInt(Edit1.Text);
SetDate.wMonth := StrToInt(Edit2.Text);
SetDate.wDay := StrToInt(Edit3.Text);
SetDate.wHour := 5;
SetDate.wMinute := 0;
SetDate.wSecond := 0;
SetSystemTime(SetDate);
……
2024-01-16 09:58:55
6KB
1
Delphi DDE发送消息实例，程序分为客户端和服务端，运行服务端后输入一条消息，打开客户端然后建立连接，会自动接收来自服务器的消息，没有用到控件，程序简单，可为你提供学习参考。
2024-01-13 13:30:37
13KB
1
Delphi读取快捷方式中的图标和路径信息，将包含在快捷方式中的图标和路径信息以及执行文件目录、热键等读取出来，适用于Windwos中所有的快捷方式。
2024-01-04 10:23:37
13KB
1
数据库通用访问工具，可访问oracle、sqlserver、excel工作薄、定制数据源连接数据库，无需安装数据库客户端，均支持标准sql语句执行（excel工作薄被当作数据库使用，每个sheet对应一张表）。
2023-12-25 20:49:25
1.63MB
1
Delphi 水力计算曲线与绘图问题源码，2009年东北三省数学建模问题原型源码。展示运动界面追踪水力计算，内容包括基本数据、管线全景、Q、Q0、V曲线、连续充满水的各段水压、时间曲线、最高流量下各节点的流量曲线等。 程序运行方面部分释义： //创建编译类，成功返回编译类句柄，失败返回0; 不用时调用cm_CloseTCmHandle关闭句柄 //其它函数需要传递该值作为第一个参数 TfCreateTCompile = function: cm_Handle; stdcall; //关闭编译类句柄，释放空间 TfCloseTCompile = function(const hcm: cm_Handle): LongBool; stdcall; // 调用函数返回表达式的值(实参数值列表); //等价于 cm_SetFunctionParameter cm_GetValue TfGetFunctionValue = procedure(const hcm: cm_Handle; const PList: PExtended; const PResult: PExtended); stdcall; // (编译后才能调用) // 调用函数返回表达式的值; TfGetValue = procedure(const hcm: cm_Handle; const PResult: PExtended); stdcall; //(编译后才能调用) // 按当前设置的参数表传入参数值(实参数值列表) TfSetFunctionParameter = procedure(const hcm: cm_Handle; const PList: PExtended); stdcall; // (编译前后都能调用) // 设置需要编译的字符串(要编译的字符串,虚参数列表字符串,是否自动编译); ……
2023-12-23 11:15:24
141KB
1
这是一个用delphi7写的抽奖程序，使用了bsskin控件，利用ini实现多语言版。语言文件为STE..lau，直接用txt打开就可以编辑。
2023-12-18 15:11:32
866KB
1
摘要:Delphi源码,报表打印,Delphi表格
Delphi编写的Excel表格自动化控制器，需要Office软件中的Exce编程控件支持，因此编译前请先准备好支持库文件，编译时会有提示的。
2023-12-17 20:55:14
7KB
1
摘要:Delphi源码,文件操作,OLE,Excel
一个基于Delphi语言编写的OLE自动化控件器，让Delphi支持打开.xls格式的Excel表格文件，简要概述一下实现步骤：建立OLE对象、使Excel可见，并将本程序最小化，以观察Excel的运行情况、使Excel窗口不可见、注意：Delphi中的数组的下标是从0开始的，而Excel的表格是从1开始编号，Excel的表格是从1开始编号，传送字段名，数据库到Excel的数据传输完毕，文件存盘，发生错误时给出提示，最后退出OLE对象
2023-12-17 20:52:07
9KB
1