DELPHI编程
关注
分享
扫一扫
文章平均质量分 58
lanyus
这个作者很懒，什么都没留下…
展开
-
转：Delphi UTF8文件读写操作
Delphi UTF8文件读写操作原创 2022-03-17 01:09:49 · 1493 阅读 · 0 评论 -
Delphi继承、属性、重载
1. 继承 类名称 = class（父类名称） public 公共类元素> private私有类元素> protected保护类元素> published 可显类元素> End;²转载 2006-02-24 15:34:00 · 3242 阅读 · 0 评论 -
关于文件操作集锦
取得该快捷方式的指向EXE关键词:快捷方式 LNK unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure Button转载 2006-02-23 00:37:00 · 2547 阅读 · 0 评论 -
TreeView使用笔记（转）
TreeView使用笔记TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：1、count，节点个数。2、item[index] ,通过index得到节点。二、针对TTreeNodes,也就是 TreeVi原创 2006-02-11 16:43:00 · 1312 阅读 · 0 评论 -
用Delphi实现Socket5代理编程
陈经韬 一:前言 经常在论坛上面看到很多人问如何实现Socket5编程,下面就自己对于Socket5的一些肤浅认识写上几句.文章分几个系列,包括Socket5客户端和服务端的编写.文章参考了一些SOCKET5的RFC文档资料和代码,在这里不再一一列出.2002.12.6,谨以此文献给好朋友王甲春和熊恒. 二:Socket5客户端基于Tcp协议的实现 该程序的原理如下:你的客户端程序(发送数据)--转载 2006-03-13 19:56:00 · 2674 阅读 · 0 评论 -
多线程扫描论坛弱口令
今天年初四，已经呆在宿舍三天了..好无聊，上网上得眼睛都发痛，可东西却没学到，看看PHOTOSHOP，看看DELPHI，再浏览下网页，时间就这样过了.好无聊.写了个程序，扫描小榕论坛用户弱口令的，写完后测试一下，发现论坛上弱口令的人还真不少。我对多线程不太熟，里面有什么不对的希望广大高手能指出，谢谢。程序就不提供下载了，截个图{=============================原创 2006-02-01 18:07:00 · 2642 阅读 · 0 评论 -
delphi与SQL Server存储过程编程详解
delphi与SQL Server存储过程编程详解 前言 经常有很多初学者问到在delphi中如何调用SQL Server的存储过程？问题其实很好解决，但问得多了，也就不愿答了。下面我将用实例进行说明转载 2006-03-12 01:31:00 · 1973 阅读 · 0 评论 -
Delphi中的算术运算函数
以下内容为编编程网站诸网友共同翻译的结果,如需转载,请注明出处:http://www.togetherdev.com,如果您对翻译Delphi的函数有兴趣,可登录编编程网站，如果对翻译的内容有什么看法，可以在回帖或在编编程网站中提出。 Abs Ceil Exp原创 2006-01-21 12:49:00 · 1831 阅读 · 1 评论 -
自己写个从网页里下载图片的程序
当你打开某个网页发现上面有很多好看的图片是会怎么办？一个个点另存为？保存网页再慢慢处理？还是跑到IE缓存目录里慢慢COPY呢？由于我经常会遇到这样的问题，所以自己做了个程序下载网页里的图片，代码写的较烂..高手们别笑话哦。 点键击点另存为下载程序 主窗口单元：{==========================================}{=============原创 2006-01-28 01:21:00 · 2368 阅读 · 3 评论 -
几个获取Windows系统信息的Delphi程序
本文所有的窗体界面略去，读者可根据程序自行添加各窗口组件。1、获取windows版本信息可以通过Windows API函数GetVersionEx来获得。具体程序如下：Procedure Tform1.Button1Click(sender:TObject);VarOSVI:OSVERSIONINFO;beginOSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONI原创 2005-12-17 00:17:00 · 1196 阅读 · 0 评论 -
[转帖] 谈谈Unicode编码，简要解释UCS、UTF、BMP、BOM等名词
(这条文章已经被阅读了 1376 次) 时间：2005/05/21 07:58pm 来源：victor这是一篇程序员写给程序员的趣味读物。所谓趣味是指可以比较轻松地了解一些原来不清楚的概念，增进知识，类似于打RPG游戏的升级。整理这篇文章的动机是两个问题： 问题一： 使用Windows记事本的“另存为”，可以在GBK、Unicode、Unicode big endian和UTF-8这几种编码方式原创 2005-12-01 00:46:00 · 2758 阅读 · 0 评论 -
在Delphi中利用CreateRemoteThread远程注入例子
花了一个下午翻了MSDN,写了这个例子,为了安全,我用Delphi建了个什么也没有作的程序prjzzhost.exe,将它用作被注入的宿主进程.写了一个TestDll.Dll,里面只有一个Log函数,用来在文件Test.Txt中输出信息.最重要的一个程序project1.exe是用来注入的.测试环境: windows server 2003 + delphi 7.0程序很简单,高手就不用看了.废话原创 2005-10-31 00:44:00 · 2232 阅读 · 0 评论 -
Delphi中资源文件使用详解
一．编写 RC 脚本文本 用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下： AVI 无声动画 BITMAP 位图文件 CURSOR 光标文件 ICON 图标文件 WAVE 声音文件 以上所列均为标准资源类型，也可以给资源自定义一个类型，如：“mytype”。不过两者在调用方式上有些不同（在后面示例“存取资源文件中的位图”中有详细描述）。二．根据 RC 脚本文件编译原创 2005-11-02 23:17:00 · 3111 阅读 · 1 评论 -
提升进程令牌(Delphi源码)
众所周知，当我们要结束一个进程时，可以调用WINDOWS API函数TerminateProcess函数。但是，有很多进程依然还是无法结束的，这是因为进程权限不够，这时我们可以给进程提升权限再K掉K不掉的进程。一般进程获取了SeDebugPrivilege权限后都可以杀掉大部分进程了。//////////By Lanyus////////////////////QQ:231221///////原创 2005-11-01 21:33:00 · 1726 阅读 · 0 评论 -
用Delphi在2000和XP／2003下从Ring3进入Ring0的无驱动解决方法by LYSoft LiuYang
需要JEDI Win32 API（JWA）库支持 uses Windows, Dialogs, SysUtils, NTDDK, JwaWinNT, JwaWinType, JwaNtStatus, JwaAccCtrl, JwaAclApi, ntdll; const KGDT_NULL = 0; KGDT_R0_CODE = 8; KGDT_R0_DATA = 16;原创 2005-10-26 23:02:00 · 1372 阅读 · 0 评论 -
Delphi6函数大全（3）
>首部 function FindNext(var F: TSearchRec): Integer; $[SysUtils.pas功能 返回继续文件搜索说明 搜索成功则返回0参考 function Windows.FindNextFile例子 ━━━━━━━━━━━━━━━━━━━━━首部 procedure FindClose(var F: TSearchRec); $[SysUtils.pas原创 2005-10-28 01:11:00 · 1215 阅读 · 0 评论 -
Delphi6函数大全（1）
> 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas功能 返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考 function StrUtils.SoundexProc; var St原创 2005-10-28 01:10:00 · 875 阅读 · 0 评论 -
CRC8算法DELPHI源码
最近做个程序需要用到CRC8校验，网上找了一堆资料都看得头晕脑胀的，最终还是搞不懂它的算法，惭愧。最后找了个C源码请高手翻译成DELPHI的才解决问题。在这感谢 老鸨。。他写的DELPHI程序如下：//***** lanyus*******//原C程序：原C程序如下： /* CRC校验(8N) */ unsigned char Crc_8n(unsigned char *原创 2006-04-10 21:57:00 · 3818 阅读 · 0 评论 -
扔个进制转换器上来
偶做IC卡数据读写时、测试时用的。都是一些简单的转换，源码就不发了..有需要者可以Q偶。下载地址：http://www.unieasy.com/software/convert.rar =======================改了下界面，原先那个实在不成样子。。 -2006-06-03原创 2006-04-18 18:49:00 · 1603 阅读 · 10 评论 -
DCEF3 相关资料 与JS交互，GET COOKIE等
DCEF3 相关资料转自：https://www.cnblogs.com/xiefang2008/p/5969610.html DCEF3 调用 jshttp://www.cnblogs.com/Delphi-Farmer/p/4103708.htmlinterface uses ceflib;//其它 type//这里建议用class 不建议用class...转载 2018-07-21 04:40:42 · 1748 阅读 · 0 评论 -
cef LOADREQUEST
var Header: ICefStringMultimap; Data: ICefPostData; Request: ICefRequest;begin Header := TCefStringMultimapOwn.Create; Header.Append('Content-Type', 'application/x-www-form-urlencoded');//...转载 2018-07-21 04:18:22 · 1332 阅读 · 0 评论 -
Delphi中Chrome Chromium、Cef3学习笔记（四）
Delphi中Chrome Chromium、Cef3学习笔记（一）2015年06月25日 13:25:02阅读数：6421官方下载地址：https://cefbuilds.com/ 尊重作者原创，转载请注明出处，原文地址：http://blog.youkuaiyun.com/xtfnpgy/article/details/46635225 CEF简介: 嵌入式...转载 2018-07-21 04:08:00 · 9541 阅读 · 0 评论 -
How to retrieve an XHR response?
5down voteaccepted+100Missing OnResourceResponse eventIn a good old CEF1 you could simply use the OnResourceResponse event. In CEF3, such a seemingly trivial task might become a real challenge, ...转载 2018-07-21 04:02:45 · 504 阅读 · 0 评论 -
解决Delphi WebBrowser 无法调用当前浏览器的版本 复制代码
【转】解决Delphi WebBrowser 无法调用当前浏览器的版本 复制代码delphi 下调用WEBBROWSER，很多时候会提示JS出错，导致页面无法正常打开。而在电脑上直接用IE是可以正常打开的。这可能是因为DELPHI的WEBBROWSER版本与系统的IE版本不同。用下面代码可解决，但需要使用管理员运行软件。另外，程序里WEBBROWSER无法正常打开网页而IE能打开时，还可搜索跨域浏...转载 2018-07-13 02:38:20 · 2134 阅读 · 0 评论 -
dephi cef3获取Post数据
GetResourceHandler 事件procedure Chromium1GetResourceHandler(Sender: TObject; const browser: ICefBrowser;const frame: ICefFrame; const request: ICefRequest; out Result: ICefResourceHandler);varAElements...转载 2018-07-13 00:06:11 · 2003 阅读 · 0 评论 -
Delphi操作Unicode字符
===================================Delphi：===================================================当前版本(2007)中的默认状态下, String 就是 AnsiString在 Delphi 2009 中:string = UnicodeString; (同样: PString = PUnicod转载 2015-08-15 13:56:14 · 4522 阅读 · 0 评论 -
记：XE8下的UTF8DECODE函数与D7的有区别。
记：XE8下的UTF8DECODE函数与D7的有区别。前几天把程序从D7移值到XE8,修改一堆控件与代码后。最后还发现UTF8DECODE函数有问题，D7里的转换一直正常使用，XE8编译后转换的会有个别中文显示问号，最后改用TENCODING...重改代码完成。 具体原因没研究..换方式能处理好就不去细看UTF8CODE了。原创 2015-07-31 18:30:30 · 970 阅读 · 0 评论 -
DELPHI---一些值得记的编码或加密方式...
http://code.google.com/p/nadesiko/source/browse/trunk/hi_unit/?r=41原创 2014-02-16 13:50:02 · 991 阅读 · 0 评论 -
TntLabeledEdit
DELPHI自带的VCL都不支持UNICODE字符,上网找了下,发现有个TNT系列的三方控件包支持UNICODE(菜单控件对UNICODE持不好),但没有我很常用的一个控件 TLabeledEdit,自己加上来了.. 装前需安装TntUnicodeControls控件包,且要将包"TntUnicodeVcl_R70.dpk"的 Build Control 设置为非 Rebuild as neede原创 2007-06-09 20:28:00 · 1577 阅读 · 0 评论 -
Pascal、C / C + +、Visual Basic数据类型的对照
Pascal、C / C + +、Visual Basic数据类型的对照 ========================================================================== 变量类型 Pascal C/C++原创 2007-04-28 00:49:00 · 1604 阅读 · 0 评论 -
DELPHI数据类型
一、数据类型：(1) 基本数据类型： a、 整数类型： (通用类型：Integer－有符号；Cardinal－无符号) 具体： 有符号：Shortint，Smallint，Longint 无符号：Byte，Word，LongiWord b、字符类型： (通用类型：Char －与AnsiChar等同)转载 2007-07-17 23:03:00 · 1568 阅读 · 0 评论 -
20号中的"Viking“病毒清除工具
前几天新装了个2003 SP1，上网时不幸中了"Viking"，手动清完病毒后，再用360安全卫士，绿鹰两个软件扫了一次..。自认为安全了，重启机器上来，才发现大事不妙，硬盘里大部分可执行文件的图标都没了...两眼一翻，暗自叫苦，要可执行文件 都完了就不得了了..赶紧从备份文件找了几个正常文件出来与感染过的对比，还不算太糟糕，可执行文件都是体积变大了，要变小就完了。。呵呵。。立刻下原创 2006-11-23 00:42:00 · 1918 阅读 · 2 评论 -
API大全
一、窗口函数（Window） = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =AdjustWindowRect 函数功能：该函数依据所需客户矩形的转载 2006-06-01 18:09:00 · 6637 阅读 · 2 评论 -
DELPHI下回调函数的使用－转
interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; Button2: TBu转载 2006-10-05 00:42:00 · 1967 阅读 · 2 评论 -
Delphi6函数大全（2）
>首部 function Languages: TLanguages; $[SysUtils.pas功能 返回系统语言对象说明 通过此函数可以得到系统的语言环境参考 type SysUtils.TLanguages例子 ///////Begin Languagesprocedure TForm1.Button1Click(Sender: TObject);varI: Integer;begin原创 2005-10-28 01:10:00 · 949 阅读 · 0 评论 -
进程、窗口句柄、文件属性、程序运行状态
uses TLHelp32,PsAPI;(1)显示进程列表：procedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEntry32; found : boolean; Hand : THandle; P:DWORD; s:string;begin ListBox1.Items.Clear ; Ha原创 2005-10-23 22:52:00 · 1384 阅读 · 0 评论 -
Windows任务管理器开发原理与实现
Windows2000/XP内含的任务管理器（Taskmgr）相信大家都熟悉吧，相比之下XP里的要比2000功能更加强大，返回的信息也更加的详细，不过您是否觉得还有很多希望获得的消息没有包含在里面吗？您是否觉得 Windows的系统管理工具箱里的东西太分散了吗？下面就让我们看看它们的开发原理，并动手实现一个真正的任务管理器。现在我们是调用Win32API来实现这些功能的，但是大家都说MS隐藏了原创 2005-10-16 15:16:00 · 1502 阅读 · 0 评论 -
Hide a process in the kill task menu
注:此程序只能在WIN9X下运行,WINDOWS NT以下操作系统的KERNEL32.DLL文件已不包含API函数RegisterServiceProcess;How can I hide my application in the Ctrl+Alt+Del menu? You need to use RegisterServiceProcess, which has to be im原创 2005-08-21 21:35:00 · 1002 阅读 · 0 评论 -
ExecuteProcess - with Command Line Support
ExecuteProcess - with Command Line Support This proc is a Delphi wrapper aroundthe Win32 API "CreateProcess". It isa better idea to use this instead ofShellExecute or other 16-bit functions when your原创 2005-08-21 17:16:00 · 968 阅读 · 0 评论 -
Get CPU Brand
Get CPU BrandRecent Intel and AMD processors have an extend CPUID function call, that returns the name of the processor. In earlier cpu models you had to use the version and feature information functi原创 2005-08-21 17:08:00 · 1183 阅读 · 0 评论