DELPHI
xhh2001
这个作者很懒,什么都没留下…
展开
-
自己写的一个DELPHI 控制台程序
代码如下: // 经过整理的DELPHI控制台程序,体积小,功能不少。呵呵 --XIAO 2013.5program Console;{$APPTYPE CONSOLE}usesWindows,SysUtils,TLHelp32; {$R *.RES}function GetWinDir: string;var Buf: array[0..原创 2013-05-20 08:27:16 · 3853 阅读 · 0 评论 -
Delphi 的文件拖放功能
学习 http://www.delphitop.com/html/wenjian/3072.htmlunit DropFile_Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, StdCtrls;...转载 2018-10-20 10:13:16 · 1341 阅读 · 0 评论 -
Delphi 判断操作系统是否为64位
function IsWin64: Boolean;var Kernel32Handle: THandle; IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL;stdcall;GetNativeSystemInfo : procedure(var lpSy...转载 2018-10-05 20:42:50 · 1043 阅读 · 0 评论 -
Delphi 常用进制转换及CRC校验、和校验
和校验部分为 http://download.csdn.net/download/andyshawchina/7080801 下载资源,在此感谢!可用于IEC101规约的和校验。其他为自己整理收集。CRC8部分DELPHI 代码为本人原创(https://wenku.baidu.com/view/e7ebb221bcd126fff7050b62.html),最早公布于2011年9月,原创 2017-12-07 16:33:33 · 2604 阅读 · 1 评论 -
将C/C++写的代码转换成Pas
源文:http://www.cnblogs.com/gis_gps/archive/2009/06/21/1507785.htmlOpenC2Pas是一个专门将C/C++/BCB 源文件转换成Object Pascal (Delphi/Kylix) 的免费开源工具,项目信息如下:Project Full Name: OpenC2Pas Shell/Web Serv转载 2017-11-16 10:06:44 · 1573 阅读 · 0 评论 -
Delphi 常用API 函数(好多都没见过)
AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小AnyPopup 判断屏幕上是否存在任何弹出式窗口ArrangeIconicWindows 排列一个父窗口的最小化子窗口AttachThreadInput 连接线程输入函数BeginDeferWindowPos 启动构建一系列新窗口位置的过程BringWindowToTop 将指定的窗口带至转载 2017-04-02 17:45:23 · 509 阅读 · 0 评论 -
DELPHI Webbrowser 响应回车键(EWB响应正常,无需额外代码)
增加一个ApplicationEvents,在Message事件中如下代码(WB看自己的WEBBROWSER 控件命名)procedure TFrmMain.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); //专为IE内核 WEBBROWSER 响应回车键const S转载 2016-11-03 09:49:37 · 1215 阅读 · 0 评论 -
delphi7如何安装oracle access控件
假设ODAC主目录在 D:\dzj\odac Delphi7主目录在 D:\Program Files\Borland\Delphi7 1.修改D:\dzj\odac\Source\make.bat文件如下 rem Prepare ==============================================================转载 2016-04-23 08:22:08 · 1263 阅读 · 0 评论 -
Delphi连接Oracle控件ODAC的安装及使用
Delphi连接Oracle有很多种方式,但大多要在客户机上安装Oracle那庞大的客户端,比较不方便,使用ODAC控件连接Oracle则免去了这些麻烦。ODAC也是Oracle公司载发的控件。有for Delphi 6--Dephi 2007的版本。Oracle数据访问组件(ODAC),全称:Oracle Data Access Components,Oracle数据存取组件(ODA转载 2016-04-23 07:50:32 · 8038 阅读 · 2 评论 -
delphi基础开发技巧
◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:var转载 2016-05-12 03:28:05 · 1613 阅读 · 0 评论 -
解决DELPHI的程序占内存的代码
unit SCFastMemory;interfaceuses SysUtils, Windows;implementationvar InProc: Boolean; TimerID: Integer;procedure SaveMemory;begin if Win32Platform = VER_PLATFORM_WIN32转载 2016-05-12 03:13:30 · 2886 阅读 · 0 评论 -
如何检查Oracle表空间使用情况
select * from dba_free_spaceselect * from dba_data_filesselect b.file_id 文件ID号,b.tablespace_name 表空间名,b.bytes 字节数, (b.bytes-sum(nvl(a.bytes,0))) 已使用,sum(nvl(a.bytes,0)) 剩余空间, sum(n转载 2016-05-12 02:56:21 · 318 阅读 · 0 评论 -
注册表写入二进制数据
注册表写入二进制数据原文;http://bbs.csdn.net/topics/390237976procedure TForm1.Button1Click(Sender: TObject);var varStr, bVar: AnsiString; varLen, i: Integer;begin varStr := '1A2B3F4D'; varLen := L转载 2016-04-26 21:32:05 · 1858 阅读 · 0 评论 -
判断字符是否是汉字,ByteType字符串中判断是否英文
//判断字符是否是汉字 function IsHZ(ch: WideChar): boolean; var i:integer; begin i:=ord(ch); if( i40869) then result:=false else result:=true; end; ByteType字符串中判断是否英文ByteType('1原创 2016-01-07 20:01:00 · 939 阅读 · 0 评论 -
Delphi Webbrowser 应用
WebBrowser1.GoHome; //到浏览器默认主页WebBrowser1.Refresh; //刷新WebBrowser1.GoBack; //后退WebBrowser1.GoForward; //前进WebBrowser1.Navigate('...'); //打开指定页面WebBrowser1.Navigate('about:blank'); //打开空页面//打开空转载 2016-01-05 20:24:42 · 678 阅读 · 0 评论 -
KOL 初级教程
想用Delphi写出只有几十K的程序吗,想就往下看吧:)注:下面的教程都是以Win2000Pro(SP3)+Delphi6(SP2)+KOL1.42+MCK1.42为平台讲解的。一、KOL是什么?KOL能做什么? MCK是什么?MCK能做什么?KOL是一套对象库,免费而且开放源代码,大家可以http://bonanzas.rinet.ru/去下载到它。它能够使Delphi编出尺转载 2015-04-03 13:16:41 · 869 阅读 · 0 评论 -
DELPHI 让LISTBOX 不同内容的行显示不同颜色
笨办法,看信息内容而定:Style = lbOwnerDrawFixed,先设置一个默认字体颜色(黑色),加以下2种(暗红、绿色)就有3种了。procedure TfrmMain.MsgListDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);var posit原创 2013-05-20 16:53:35 · 3842 阅读 · 0 评论 -
【转】绿色便携版Lazarus的制作教程
本文来源: www.fpccn.com原作者:逍遥派掌门人 本教程不用更改lazarus的任何源代码,安全性很高。1、先到Lazarus wiki下载所需要的版本。2、安装到硬盘的任何地方,如安装目录: d:\lazarus。3、安装好各种所需要的组件、控件,并退出 lazarus 的IDE。4、在安装目录里建一个新的目录,如:config ,则路径显示为: d:\la...转载 2018-11-01 16:24:51 · 970 阅读 · 0 评论