Delphi源码,可以修改成批量转换,ICO图标转换BMP图标
2024-01-05 02:47:23 9KB Delphi
1
Delphi读取快捷方式中的图标和路径信息,将包含在快捷方式中的图标和路径信息以及执行文件目录、热键等读取出来,适用于Windwos中所有的快捷方式。
2024-01-04 10:23:37 13KB Delphi源码-系统相关
1
数据库通用访问工具,可访问oracle、sqlserver、excel工作薄、定制数据源连接数据库,无需安装数据库客户端,均支持标准sql语句执行(excel工作薄被当作数据库使用,每个sheet对应一张表)。
2023-12-25 20:49:25 1.63MB oracle sqlserver excel 定制数据库连接
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 Delphi源码-图形处理
1
delphi程序编写的资料管理系统,很实用.
2023-12-20 22:09:23 1.68MB delphi 资料管理
1
这是一个用delphi7写的抽奖程序,使用了bsskin控件,利用ini实现多语言版。语言文件为STE..lau,直接用txt打开就可以编辑。
2023-12-18 15:11:32 866KB delphi bsskin 抽奖程序 源码
1
摘要:Delphi源码,报表打印,Delphi表格   Delphi编写的Excel表格自动化控制器,需要Office软件中的Exce编程控件支持,因此编译前请先准备好支持库文件,编译时会有提示的。
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 Excel Delphi源码 lelecode.com 文件操作
1
Delphi字符编码转换工具,原创代码,作者Author: 谢凯。输入一段字符串(汉字或者英文),可将其转换为Unicode编码或AscII编码。 其中有一段代码避免程序的重复执行(调试通过),原理:在程序启动时将Application的Title特性字段的值暂时改变。利用Windows API函数FindWindows()查找窗口,恢复Application的Title值。
2023-11-15 15:35:41 5KB Delphi源码-字符处理
1
Delphi 7.0 调用外部exe文件的例子源代码,通过程序窗口,你可浏览到windows中任意的EXE可执行文件,本程序将调用它并打开它,在Delphi程序中打开外部的EXE程序,相关代码片断先看看:   begin    dirchar:='';    if trim(FileLIst.FileName) <> '' then    begin    FileAttrs := faAnyFile;    strcat(dirchar,pchar(FileList.FileName));    if findfirst(dirchar,FileAttrs,sr)=0 then    //执行可执行文件    shellexecute(application.Handle,nil,dirchar,nil,nil,sw_shownormal)    else    showmessage('该文件不存在!');    end;   end;   完整的源码请点击下载按钮下载源码。
2023-11-07 22:58:14 8KB Delphi源码-加密解密
1