2017年11月_nextop88

12月 11月 10月 09月 08月 07月 06月 05月 04月

转载 delphi Format格式化函数

Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明： function Format(const Format: string; const Args: array of const): string; overload; 事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安

2017-11-22 14:57:16 175

原创ＵＴＦ８转中文

// // add by nextop 0707 如果是预约车，则取预约车的ID // if dmdataclient.getisnoordercar(license) then // begin //

2017-11-14 17:27:28 242

转载 mysql跟踪日志

第一步创建以下两个日志表 CREATE TABLE `slow_log` ( `start_time` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP, `user_host` mediumtext NOT NULL,

2017-11-13 11:57:39 364

转载热键

我win10系统试的追答一、在private下面 procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY; //热键声明。二、var HotKeyId: Integer; //全局变量。三、FormCreate事件里写。 1、HotKeyId := GlobalAddAtom('MyHotK

2017-11-12 20:57:28 228

转载 //以下代码在Delphi7 + XP SP3下测试通过 //button1为注册钩子屏蔽,button2为卸载钩子取消屏蔽F1 unit Unit1; interface uses Windo

//以下代码在Delphi7 + XP SP3下测试通过 //button1为注册钩子屏蔽,button2为卸载钩子取消屏蔽F1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

2017-11-12 20:36:50 130

转载生成随机代码

function RandomStr(majuscule:boolean;lowercase:boolean;number:boolean;digit:integer):string; //大写字母,小写字母,数字,字符串的位数 var i: Byte; s: string; begin if majuscule then s := 'ABCDEFGHIJKLMNOPQRSTUV

2017-11-12 20:35:16 854

转载 indy１０获取对方ＩＰ及线程

在INDY10的IDTCPSERVER组件的OnExecute事件中，如果要获取对方的IP、端口和本机对应的线程ID，与INDY9 有所不同。本例是利用INDY10组件时，获得上述参数的代码。 uses IdSchedulerOfThread; ..... procedure TForm1.IdTCPServer1Execute(AContext: TIdContext

2017-11-08 09:26:17 955

转载用户没有动键盘时间

function StopTime: integer; //返回没有键盘和鼠标事件的时间 var LInput: TLastInputInfo; begin LInput.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(LInput); Result := (GetTickCount() -

2017-11-05 12:12:10 131

转载 idtcpserver 多线程同步问题

方法1：临界区……Delphi/Pascal code?//全局的FLockUI: TCriticalSection;//临界区还有一个TRTLCriticalSection，区别？俺不清楚。反正找个短的来用吧。 //改写文本function WriteTxt(Msg: string): Boolean;begin // .....把接收的数据写入文本的一些程序...... //if 某些条件

2017-11-01 10:13:20 901