[Pascal/Delphi编程] mysevice
系统服务程序（win7、win10测试通过）。包含系统服务程序及桌面端查询程序，主要用于每20秒监视系统进程加载情况，应同事要求掌握小朋友玩电脑游戏情况编写，也可用于简单监视系统进程加载具体情况——需要对计时器时间间隔调低。内嵌小心桌面数据库引擎，服务程序安装即可，无需关心数据库。查询小程序必须与服务程序在同一目录下否则报错。另：若查询失败，请将系统时间端格式改成‘yyyy-mm-dd’。
System service program (win7, win10 tested and passed). It includes system service programs and desktop query programs, mainly used to monitor the loading status of system processes every 20 seconds. It is written according to colleagues' requirements to grasp the situation of children playing computer games, and can also be used to simply monitor the specific loading status of system processes - the timer interval needs to be adjusted down. Embedded caution desktop database engine, service program installation is sufficient, and there is no need to worry about the database. The query mini program must be in the same directory as the service program, otherwise an error will be reported. Also: If the query fails, please change the system time format to 'yyyy mm dd'. (2023-09-22, Delphi, 3059KB, 下载0次)
[Pascal/Delphi编程] DelphiLikequery
Delphi高级Like语句数据库查询实例，实现基于Like的模糊查询实例，以查询商品信息为例，可查询第一个是A-Z之间的字母第二个位是0的、可查询字母开头以3结尾的商品信息、可模糊查询字母不再A-Z之间的商品信息、可查询字母开头不以3结尾的信息，有兴趣一试，压缩包内有SQLServer的数据库测试文件，测试前请附加。
Senior Delphi Like database statement example query, query examples of Like based fuzzy query, the commodity information as an example, the first is the A-Z query letters between second bit is 0, the query letter at the end of 3 the commodity information, fuzzy query between letters no longer A-Z commodity information, can inquire letter not the beginning at the end of 3 information, are interested in a try, compressed within a test database file SQLServer, please attach the test before. (2014-07-20, Delphi, 276KB, 下载1次)
[Pascal/Delphi编程] MiniIETool
Delphi写的IE小工具，可修改IE标题和主页地址，修改成功后，重启IE后即可看到效果。注：这是早几年的程序，内核可能不是面向IE8，修改的注册表键值，不知道现在还能用不，自己试下吧，原理大致差不多，修改下，就当学习了，里面的功能实现大部分是基于注册表的修改而实现的。
Delphi to write the IE gadget, can modify the IE title and home address, modified after the success, restart IE to see the effect of. Note: This is a few years ago program, the kernel may not be for the IE8, the registry key changes, now do not know can not, you try it, principle of approximately, modify, when learning, which realize the function of most of the registry changes based on the realization of the. (2014-07-20, Delphi, 7KB, 下载2次)
[Pascal/Delphi编程] Delphi_866121
Delphi自动断句机，带点智能语法分析功能，可把一段文字智能添加段落和分行显示，基于有限状态自动机的算法，文本分析与自动翻译等技术，其第一步首先都是断句，即把连续的文本，分成以句子为单位的基本成分。程序支持缩略语和标点识别，你可以载入一段文本试下。
Delphi auto-punctuate machine, a little intelligent parsing function can be added to a text paragraph and intelligence branches of the display, based on finite state automata algorithms, text analysis and automatic translation technology, which punctuate The first step is that the continuous text, divided into basic components of the sentence as a unit. Program supports the identification of abbreviations and punctuation, you can load a text under test. (2014-06-26, Delphi, 32KB, 下载5次)
[Pascal/Delphi编程] noip01p2
输入二个正整数x0,y0(2<=x0<100000,2<=y0<=1000000),求出满足下列条件的P,Q的个数
条件:
1.P,Q是正整数
2.要求P,Q以x0为最大公约数,以y0为最小公倍数.
试求:满足条件的所有可能的两个正整数的个数.
Enter two positive integers x0, y0 (2 < = x0 < 100000,2 < = y0 < = 1000000), find the following conditions of P, Q the number of conditions: 1.P, Q is a positive integer 2. Requires P , Q is the common denominator to x0, y0 is the least common multiple. test requirements: meet the conditions of all the possible number of two positive integers. (2011-08-07, Pascal, 2KB, 下载3次)
[Pascal/Delphi编程] KDels2
无错版Delphi俄罗斯方块游戏源码
超牛气的Delphi俄罗斯方块游戏，源代码无错，直接用D7可编译，界面漂亮，玩着舒服，配有好听音乐，Delphi游戏编程不可错过的一款好范例，作者毫无保留的把源代码贡献给大家，在此说声感谢。测试时顺便玩了两局，感觉很不错，游戏运行截图如上，有一些设置说明一下：消层设置、音效开关、高级方块模式、游戏速度选择、旋转方式选择以及游戏帮助等。
Delphi error-free version of Tetris in Delphi source super arrogant Tetris game, error-free source code, can be compiled directly with D7, beautiful interface, playing comfortable, with nice music, Delphi can not miss a game programming good example of source code without reservation to contribute to all of this to say thanks. Test way to play two games, I feel very good running game screenshot above, there are some settings explain: consumer level settings, audio switch, advanced block pattern, the game speed selection, rotation selection, and game help and so on. (2011-05-23, Delphi, 4179KB, 下载8次)
[Pascal/Delphi编程] caisuzi1
单击“产生数字”或“开始新游
戏”后软件将随机产生一个无重
复
的4位数，使用者在对应输入框
内输入猜测的一组无重复4位数
，单击“确认数字后”软件就会根
据这个数字给出几A几B，其中A
前面的数字表示位置正确的数的
个数，而B前的数字表示数字正
确而位置不对的数的个数。
如：正确答案为 5234，而
猜的人猜 5346，则是 1A2B，其
中有一个5的位置对了，记为1A
，而3和4这两个数字对了，而位
置没对，因此记为 2B，合起来
就是 1A2B。接着猜的人再根据
出题者的几A几B继续猜，直到
猜中（即 4A0B）为止。
注意事项:请在5 分钟之内完成,且
输入次数不得超过50 次不然
算失败
本产品纯属智利游戏,仅供娱乐
Click the "generation number " or "start a new tour
Play "after the software will randomly generate a non-re-
Complex
4-digit, the user input box in the corresponding
Enter a group of non-repetition guess 4-digit
, Click "confirm figures, " the software will root
According to this figure shows a few A few B, where A
The numbers indicate the correct position in front of the number of
The number of digits before the number of B is
The number of correct and incorrect number of locations.
Such as: The correct answer is 5234, and
Guess who guess 5346, it is 1A2B, its
There is a 5 position of a, denoted 1A
, While 3 and 4 of these two figures, while the bit
Did not set right, so remember to 2B, together
Is 1A2B. Then, according to people who guess
A few questions were a few B keep guessing until
Guess (that is, 4A0B) so far.
Note: Please be completed within 5 minutes, and
Enter no more than 50 times or else
Operator failure
This product is pure (2010-12-21, Delphi, 384KB, 下载2次)
[Pascal/Delphi编程] ZnExeData
使用WM_CopyData消息，在两个不同的程序中传递string类型的数据，采用发送(s)<>接收(r)协商机制。
&.s和r创建时，使用同一个字符串向系统注册消息MsgID.
1.S使用MsgID广播消息，由于只有接收端识别这个消息句柄，所以R响应，并返回自己的句柄。
2.S收到接收方句柄，发送wm_copydata传递数据。
3.R收到数据后，发送回执，通知S已收到数据。
4.S触发发送完毕事件。
-------------------------------------------
只是我试了一下，如果打开两个接收端的时候，程序会报错。请作者试试：）
再一个，如果打开两个发送端时，无接收端接收；发送端也不能收到发送超时的消息。
Use WM_CopyData news program in two different string types of data transfer, using send (s) <> Receive (r) consultation mechanism (2010-07-24, Delphi, 3KB, 下载12次)
[Pascal/Delphi编程] 310759
连接时出现:"windows socket error:(10061),on API connect ”
是你的SOCKET没有启动（SCKTSRVR.EXE)或者无法连接到服务器。 使用socketconnect很简单，只要在应用服务器后台运行SCKTSRVR.EXE,不需要什么配
置。（在Delphi的Bin目录是已运行了scktsrvr.exe，但没有设置Port号；设置你要的Port号注意不要有冲突。
不知怎么用。最多的就是这种答案了。
还有说重启动进F8选最a后依次正确设置，我试了没用awindows socket error:由于目标机器积极拒绝，无法连接
Connection when: " windows socket error: (10061), on API ' connect' " is your SOCKET did not start (SCKTSRVR.EXE) or can not connect to the server. Socketconnect very simple to use, as long as the application server running in the background SCKTSRVR.EXE, do not need any configuration. (In Delphi' s Bin directory is already running scktsrvr.exe, but did not set the Port number set the Port number you want to be careful not to conflict. I do not know how to use. The most is this the answer. There are said to restart into F8 turn right after the election the most a set, I tried the useless awindows socket error: because the target machine actively refused, can not connect (2010-04-28, Delphi, 175KB, 下载12次)
[Pascal/Delphi编程] 111
试了很多很多关机软件都不能在计算机锁定的状态下执行关机操作,
最近看到一款 "关机酷XP"的就能在这样的环境下执行关键/注销的
操作,于是简单的分析了下,发现作者只是用ExitWindowsEx 这个API
就实现了,本以为很复杂啊..-_-|. 昨天晚上看了点delphi,手痒,试着
用delphi写了下,还真能用..只是不知道delphi如何实现C那样接受命
令行参数呢?用GetCommandline的话,在delphi操作字符串还真不熟练,
故此就写成这样..
Examination of the many, many software can not shutdown the computer locked in a state of the implementation of the shutdown operation, has recently seen a " cool off XP" in the can in such circumstances, the key/write-off operation, so a simple analysis the next, the authors found only ExitWindowsEx achieved this API, the complexity of that last night saw ah ..-_-|. point delphi,, delphi try to write the next, just do not really use .. delphi know how to achieve C as the command line parameters to accept it? GetCommandline words used in the delphi string really unskilled operation, so on written in such .. (2009-05-17, Delphi, 1KB, 下载3次)
[Pascal/Delphi编程] psvLabels
集的母语德尔福成分对Borland Delphi中
版本5 ，第6和7 。
100 ％的源代码。
这个软件提供 原样，没有任何明示或
隐含的保证。在任何情况下，作者被追究法律责任
而造成的任何损害使用该软件。
允许任何人使用该软件的任何
为此，包括商业应用，并改变它
和重新分配自由不受任何限制。
The Set of Native Delphi Components for Borland Delphi
versions 5 , 6 and 7.
100 Source Code.
This software is provided as-is , without any express or
implied warranty. In no event will the author be held liable
for any damages arising from the use of this software.
Permission is granted to anyone to use this software for any
purpose, including commercial applications, and to alter it
and redistribute it freely without any restrictions. (2009-03-19, Delphi, 72KB, 下载2次)
[Pascal/Delphi编程] TScrollTxt
这部分是作为免费软件。
TScrollText （版本1.0 ）让行文字的水平或垂直滚动。它方便，除其他外，文字显示功能改变，如对齐，字体和样式（降低，提高，阴影或正常） 。
我已经开发这一部分用Delphi 2 。虽然我没有尝试过运行Delphi的1 ，部分应汇编行如果删除了32位。索尼文件的演示程序，但包括一些德尔福2只元件。
如果您有任何意见，请向我发送邮件。
This component is published as freeware.
TScrollText (Version 1.0) allows lines of text to be scrolled horizontally or vertically. It facilitates, amoung other things, the text display features to be changed, such as alignment, font and style(lowered, raised, shaddow or normal).
I have developed this component using Delphi 2. Although I have not tried running it on Delphi 1, the component should compile OK if you remove the 32-bit .DCR file but the demo program includes some Delphi 2 only components.
If you have any comments please send me a message.
(2009-03-19, Delphi, 7KB, 下载12次)
[Pascal/Delphi编程] yuanchengchaobiao
远程抄表系统的客户端程序
安徽六安项目-客户端程序
0 开发环境 Delphi 7.0
所需控件 mxOutlookBar
数 据 库 Sybase 11.5
1 04-12-17 根据安徽六安项目需求开发。
2 04-12-31 基本功能模块定义完毕。
05-01-10 开发基本完毕。
3 05-3月下旬 六安现场调试、测试、试运行、正式运行。
4 05-07-19 更改可以远方调试DSP参数，新增加 50 - 59号指令。
更改数据库结构
alter table tx_BianTai
add fd_DspMaxU decimal(6,2) null,
fd_DspMinU decimal(6,2) null,
fd_DspMaxT decimal(6,2) null,
fd_DspMinT decimal(6,2) null,
fd_DspMaxXB decimal(6,2) null,
fd_DspTQTime decimal(6,2) null, //投切间隔
fd_DspLQTime decimal(6,2) null //冷却时间
更改一些小细节，比如：密码验证模块等等。
5 05-07-19
Remote meter reading system of the client program Anhui Liuan projects- client program 0 required Delphi 7.0 development environment controls mxOutlookBar database Sybase 11.51 04-12-17 Anhui Liuan in accordance with the demand for development projects. 2 04-12-31 completed the definition of basic functional modules. The development of basic finished 05-01-10. 3 05-3 late on the scene Liuan debugging, testing, trial operation, the official run. 4 05-07-19 remote debugging DSP can change the parameters, the new 50- 59 Directive. Change the database structure alter table tx_BianTai add fd_DspMaxU decimal (6,2) null, fd_DspMinU decimal (6,2) null, fd_DspMaxT decimal (6,2) null, fd_DspMinT decimal (6,2) null, fd_DspMaxXB decimal (6,2) null, fd_DspTQTime decimal (6,2) null,// switching interval fd_DspLQTime decimal (6,2) null// cooling time to change some small details, such as: password authentication module and so on. 5 05-07-19 (2008-12-06, Delphi, 3662KB, 下载92次)
[Pascal/Delphi编程] 15
安徽省货物销售统一发票管理系统
操作说明
1、开票
F7或双击可 查询，
方向键，Home、 End、PgUp、PgDown、回车用于 移动光标位置。
发票无金额时，不允许保存。有金额无品名时也不得保存。
发票打印前，应先确定好打印机。直接在程序中选择即可。也不必非要将票据打印机设置为默认打印机。
首次打印发票时，建议不要直接先用发票，应先用其他纸张裁成与发票同等大小进行试打，经过调整打印位置，打印偏移量来确定好发票套打位置。
2、发票作废
特别小心，本系统为了起到发票的管理功能，没有提供发票的修改、删除、取消作废等功能。所以不管是保存也好，作废也好都有要特别细心。保存过后不得修改，可多次打印。作废过后，则无法取消作废，打印时也标记了作废字样。
err (2008-10-17, Delphi, 2987KB, 下载31次)
[Pascal/Delphi编程] gamespeed!
delphi写的游戏加速器,非常简单而实用,但不要说这个没有,很多游戏客户端都有它的影子,目的是为了降低因为网速造成的游戏卡机情况,这也就是为什么玩官方的游戏不卡的情况,不仅仅是官方的设备好
delphi write game accelerator, is very simple and practical, but do not say that no, a lot of game client has its own shadow, because the aim is to reduce speed in order to cause the game card machine, which is why playing games is not the official cards, the official equipment is not only good (2008-08-02, Delphi, 198KB, 下载86次)
[Pascal/Delphi编程] zfyfyc
1.四个角分别被恐怖份子埋好了炸弹！你必须在限制的时间内和服从反恐专家的意见来解除炸弹！如果时间到了或你擅自进行行动将引起炸弹的爆炸，你必须对你的行为负责！
2.有很多功能还没写，此为初试，希望大家能给我点意见，我会更加努力的(QQ:214660372)
3.本游戏是用DELPHI 7.0 写的，在WINDOWS XP 下调试通过！
4.玩的时候请先看游戏规则！
1. Four corners were good terrorists buried a bomb! You must limit the time and subject to counter-terrorism experts to disarm the bomb! If time is running out or you went ahead with the action will cause a bomb explosion, you have to be responsible for your behavior! 2. There are many features yet to write this as a first attempt, I hope everyone can give me some advice, I will be more efforts (QQ: 214660372) 3. The game is written in DELPHI 7.0, WINDOWS XP in debugging through! 4. Playing when you watch the rules of the game! (2008-07-30, Delphi, 605KB, 下载3次)
[Pascal/Delphi编程] dfjym
源码/源码/Plane/plane__.jpg)
这个软件是用Delphi 7开发的。
原本它是两个人在纸面上玩的益智游戏，转移到电脑上后我给它添加了人机对奕和网络对战的功能。
在本源码中你可以看到电脑AI实现方法，ClientSocket,ServerSocket的使用，控件的编写，ListBox的OwnerDraw的实现等等技巧。
请先安装里面的GridPanel控件才可正常编译。
永远支持Delphi!
The software is developed with Delphi 7. Originally it was two people playing on paper puzzle game, transfer to your computer to it after I added a human-computer war games and network functions. In this source you can see the computer AI method, ClientSocket, ServerSocket use, control of the preparation, ListBox, etc. The realization of OwnerDraw skills. Please install inside GridPanel normal controls in order to compile. Forever in support of Delphi! (2008-07-30, Delphi, 298KB, 下载10次)
[Pascal/Delphi编程] Delphi8--dog
1、 图形设计：静态、移动、睡觉时的形态，各种物品的形状；
2、 清洁：使宠物实现洗澡和刷马桶的功能；
3、 状态：宠物的身体各种状况有饥饿、口渴、劳累、生病等；
4、 自由活动：宠物玩各种游戏；
5、 上厕所：即大小便。
1, Graphic Design : static, moving, sleeping form, the shape of various items; 2, clean : make pet a bath and brush to achieve the functional toilets; 3, state : pet various physical situation of hunger, thirst, exhaustion, illness, etc.; 4, the free activities : pets playing games; 5, the toilet : the urine. (2007-03-04, Delphi, 763KB, 下载43次)
[Pascal/Delphi编程] tNes.0.3.src
delphi编制的nes模拟器－－tNes，目前为0.3版支持声音、单手柄、mapper0、mapper2。可以玩经典的坦克大战、玛丽奥1、魂斗罗、1944等等。40kb左右的游戏基本上都能玩。附带有2个测试用的rom，cart和nestress。写这个主要是为了加深对计算机的了解，许多地方用了简单的方法，渲染游戏画面用的是内存中的bitmap，而没有直接在显存作渲染，速度就不是很理想。这个模拟器献给70年代出生的朋友，希望能够唤醒一些童年的欢乐。
compiled by the nes emulator-- tNes, to voice support for version 0.3, single-handle mapper0, mapper2. They can play classical physics, Mario 1, Type Sega, 1944 and so on. Modem about the game basically can play. Fringe has two tests of rom, cart and nestress. This was mainly intended to deepen the understanding of the computer, in many places with a simple method, rendering images of the game is the bitmap memory, but not directly in the memory for rendering, speed is not very satisfactory. This simulator dedicated to the 1970s-born friends, hoping to awaken some of the joy of childhood. (2006-06-25, Delphi, 189KB, 下载33次)