delphi的键盘和鼠标钩子

键盘和鼠标钩子 procedure TForm1.BitBtn1Click(Sender: TObject); begin InstallKeyboardHook(nil); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin InstallMouseHook(nil); end; end.

y=aX+b中求AB值采用最小二乘拟合ab

y=aX+b ，最小二乘法求ab值，excel中应该用的是这个算法。

Git TortoiseGit

git 三件套，git、TortoiseGit-2.15.0.0-64bit、TortoiseGit-LanguagePack-2.15.0.0-64bit-zh_CN、有安装说明

数组保存为二进制文件和逆过程

procedure TForm1.BitBtn1Click(Sender: TObject); var arr: TMyDoubleArray; i: Integer; begin // 初始化数组 SetLength(arr, 5); for i := 0 to Length(arr) - 1 do arr[i] := i*100 + 1.11111; // 保存数组为二进制文件 SaveArrayToBinaryFile('array.bin', arr); // 从二进制文件加载数组 self.Memo1.Clear; arr := LoadArrayFromBinaryFile('array.bin'); for i := 0 to Length(arr) - 1 do begin self.Memo1.Lines.Add( FloatToStrF(arr[i],ffNumber,5,4 ) ); end; self.Memo1.Lines.Add('----')

考勤机通过telnet连接打开FTP文件夹工具

考勤机实用工具，考勤机通过telnet连接打开FTP文件夹工具。

mqtt for delphi7

delphi 7下可用用的mqtt //连接MQTT服务器 procedure TfrmMain.btnConnClick(Sender: TObject); begin MQTTClient.Port := StrToIntDef(edtPort.Text, 1883); MQTTClient.Host := edtHost.Text; MQTTClient.Activate(true); btnClearClick(Sender); //清空计数器 end; //断开MQTT服务器 procedure TfrmMain.btnDisConnClick(Sender: TObject); begin MQTTClient.Activate(false); end; //发布消息 procedure TfrmMain.btnPublishClick(Sender: TObject); var i : Integer; begin for i:=1 to edtLoop.Value do begin MonLed.Brush.Color :

delphi mqtt客户和服务端

delphi中使用的mqtt，有demo，不知道哪位大神搞的，xe11下整理下。MQTT 协议实现的消息订阅客户端、消息发布客户端、及消息服务器， Finish Retain *) (* Web Sites http://www.alphaworks.ibm.com/tech/rsmb http://www.mqtt.org Permission to copy and display the MQ Telemetry Transport specification (the "Specification"), in any medium without fee or royalty is hereby granted by Eurotech and International Business Machines Corporation (IBM) (collectively, the "Authors"), provided that you include the following on ALL copies of the Specification, or por

使用vlc styles改变opendialog

delphi11中使用style，dialog中list和edit类不失效，使用style扩展类可以解决。 procedure TForm1.BitBtn10Click(Sender: TObject); var Dialog: TFileOpenDialog; begin UseLatestCommonDialogs := false; Dialog := TFileOpenDialog.Create(nil); Dialog.DefaultFolder:='c:\'; try Dialog.Options := Dialog.Options + [fdoPickFolders]; // 设置对话框选项，只显示文件夹选项 if Dialog.Execute then begin // 用户选择了文件夹 ShowMessage(Dialog.FileName); // 显示所选文件夹路径 end; finally Dialog.Free; end; end; procedure TForm1.

delphi中使用FastScript执行pascal脚本的demo

FastScript独一无二的特性是能支持多种语言（PascalScript, C++Script, Jscript以及BasicScript），做脚本引擎好使。 uses FastScript, FastScriptUtils, Windows; procedure TForm1.Button1Click(Sender: TObject); var ScriptEngine: TfsScript; DLLHandle: HMODULE; AddFunc: function(a, b: Integer): Integer; stdcall; begin ScriptEngine := TfsScript.Create(nil); try // 加载 DLL DLLHandle := LoadLibrary('YourDLL.dll'); if DLLHandle <> 0 then begin try // 获取函数地址 @AddFunc := GetProcAddress(DLLHa

OmniThreadLibrary学习笔记

OmniThreadLibrary,简称OTL，为使用多线程开发应用，提供一个强大而高效的开发方法，使开发者完全基于任务(Task）开发应用。什么是任务呢，个人理解，就是要在线程执行中的逻辑代码。下面来看看，官方Wiki中的说明： 在OTL中，开发者不用创建线程(Thread)而是任务，任务即可以新建的线程中执行，也可以在一个现有的线程中运行，还可以放到线程池(ThreadPool)中去运行。 利用CreateTask函数来创建一个任务，CreateTask有一个参数，可以是一个全局的过程，一个方法，一个TOmniWorker的子类的实例或者一个匿名方法（delphi 2009以后版本）。查看CreateTask代码，可以看到作者实现了四个CreateTask函数来支持上面的四种建立任务的方法。