随笔分类 -  delphi

delphi 字符串16进制转换后加密
摘要：function GetStreamString( stream:TStream ):string; //函数不需要声明和应用 var strStream:TStringStream; begin strStream:= TStringStream.Create( ' ' ); try strStream.CopyFrom( stream, stream.Size ); Result:=st... 阅读全文
posted @ 2019-07-09 16:44 小红心复活 阅读(450) 评论(0) 推荐(0)
delphi AES另外一个演示
摘要：Example: procedure Encrypt(var Buffer: TAESBuffer; Key: TAESKey128);var TempBuf: TAESBuffer; ExpandedKey: TAESExpandedKey128;begin ExpandAESKeyForEncr 阅读全文
posted @ 2019-07-09 11:47 小红心复活 阅读(809) 评论(0) 推荐(0)
delphi MD5加密算法
摘要：type //增加一部分从这里. MD5Count = array[0..1] of DWORD; MD5State = array[0..3] of DWORD; MD5Block = array[0..15] of DWORD; MD5CBits = array[0..7] of Byte; M 阅读全文
posted @ 2019-07-09 11:43 小红心复活 阅读(1450) 评论(0) 推荐(0)
delphi DES加密算法
摘要：type TKeyByte = array[0..5] of Byte; TDesMode = (dmEncry, dmDecry); function EncryStr(Str, Key: String): String; function DecryStr(Str, Key: String): String; function EncryStrHex(Str, Key:... 阅读全文
posted @ 2019-07-09 11:42 小红心复活 阅读(1746) 评论(0) 推荐(0)
delphi AES算法
摘要：procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey256); overload; procedure ExpandAESKeyForDecryption(const Key: TAESKey256; var ExpandedKey: TAESExpandedKey256); overload; proced... 阅读全文
posted @ 2019-07-09 11:41 小红心复活 阅读(2419) 评论(0) 推荐(0)
delphi BlowFish加密算法
摘要：function BlowFish_DN(PT: int64): int64;function BlowFish_EN(PT: int64): int64; function BlowFish_Func(PT: LongWord): LongWord; const pBOX: array[1..18 阅读全文
posted @ 2019-07-09 11:36 小红心复活 阅读(1386) 评论(0) 推荐(0)
delphi Base64
摘要：function MimeEncodeString (const s: AnsiString): AnsiString; function MimeEncodeStringNoCRLF (const s: AnsiString): AnsiString;function MimeDecodeStri 阅读全文
posted @ 2019-07-09 11:34 小红心复活 阅读(1078) 评论(0) 推荐(0)
DELPHI 注册表注册授权代码
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry ; //Registry ;注册表的引用 阅读全文
posted @ 2019-07-09 11:31 小红心复活 阅读(877) 评论(0) 推荐(0)
delphi 注册表
摘要：usesRegistry; procedure TForm1.Button1Click(Sender: TObject);var Reg:TRegistry; name:array [0..255] of Char; Psize:DWORD; begin if IsWow64 then begin 阅读全文
posted @ 2019-07-09 11:25 小红心复活 阅读(317) 评论(0) 推荐(0)
delphi 快捷方式 CreateShortcut
摘要：uses ShlObj, ActiveX, ComObj; {该函数使用的单元}{函数说明:}{第一个参数是要建立快捷方式的文件, 这是必须的; 其他都是可选参数}{第二个参数是快捷方式名称, 缺省使用参数一的文件名}{第三个参数是指定目的文件夹, 缺省目的是桌面; 如果有第四个参数, 该参数将被忽 阅读全文
posted @ 2019-07-09 11:23 小红心复活 阅读(500) 评论(0) 推荐(0)
delphi shellapi
摘要：uses shellapi;procedure TForm1.BitBtn1Click(Sender: TObject);begin ShellExecute(Handle,'open','c:\',nil,nil,Sw_Show);end; procedure TForm1.BitBtn2Clic 阅读全文
posted @ 2019-07-09 11:21 小红心复活 阅读(554) 评论(0) 推荐(0)
delphi 内嵌汇编例子
摘要：Function add(x,y:Integer):Integer;varcount:Integer;begin asm mov eax,x mov ecx,y add eax,ecx mov count,eax end; Result:=count;end; procedure TForm1.Bu 阅读全文
posted @ 2019-07-09 11:18 小红心复活 阅读(377) 评论(0) 推荐(0)
Delphi 实现目录删除、复制、移动
摘要：unit MainUnit;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl, ShellAPI; type TMainForm = 阅读全文
posted @ 2019-07-08 16:48 小红心复活 阅读(757) 评论(0) 推荐(0)
Delphi 多文件拖放获取路径示例
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI; type TForm1 = class 阅读全文
posted @ 2019-07-08 16:47 小红心复活 阅读(781) 评论(0) 推荐(0)
Delphi 读写ini配置文件示例
摘要：unit Unit1; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Inifiles; type TForm 阅读全文
posted @ 2019-07-08 16:44 小红心复活 阅读(1023) 评论(0) 推荐(0)
Delphi 标签打印源代码
摘要：unit Unit1;interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry, OleCtrls, MSCommLib_T 阅读全文
posted @ 2019-07-08 16:42 小红心复活 阅读(966) 评论(0) 推荐(0)
Delphi COM串口打印演示
摘要：unit Unit1;//Download by http://www.NewXing.cominterface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtC 阅读全文
posted @ 2019-07-08 16:37 小红心复活 阅读(695) 评论(0) 推荐(0)