MD5需要引入system.Hash，BASE64需要引入System.NetEncoding，这两个单元应该只有高版本的DELPHI IDE才有（貌似XE5以上版本才有）。如果是D7的话，找第三方的库。procedure TForm19.Button8Click(Sender: TObject); //md5加密begin Edit3.Clear; Edit3.Text := THashMD5.GetHashString(Edit2.Text);end;procedure TForm19.But
感谢船老大<chenshiliang_200@163.com>提供代码
uses ShellAPI,DateUtils;procedure RemoveLogDirectory(DirecName: string);var F: TSHFILEOPSTRUCT;begin try FillChar(F, SizeOf(F), 0); with F do begin Wnd := 0; wFunc := FO_DELETE; pFrom := PChar(DirecName+#0); pTo := PChar(D
uses DateUtils; function DelphiDateTimeToUnixDateTime(DTime: TDateTime): Integer;begin Result := SecondsBetween(DTime,EncodeDateTime(1970,1,1,0,0,0,0));end; function UnixDateTimeToDelphiDateTime(UnixDateTime: Integer): TDateTime;begin Result := EncodeD
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeUSER_INFO_1 = recordusri1_name: LPWSTR;usri1_password: LPWSTR;usri1_password_age: DWORD;usri1_priv: DWORD;usri1_home_dir: LP
Delphi编写的一款锁屏小工具,双击程序立即锁屏，木有界面的。解除锁屏密码：alt+空格。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Image1: TImage; Timer2: TTimer; procedure
//这是我三层开发中常用的一个函数，直接调用CreateSortIDuses System.Win.ComObj,System.RegularExpressions,System.StrUtils,System.SysUtils;function CreateID(ll: Integer): string; // overload;const pattern: string = '[-|{|}]';var MyIDStr: string;begin MyIDStr := Creat
在implementation加入下面uses Gauges; var Gauge1: TGauge; 加入Timer1控件，设为false procedure TForm1.Button1Click(Sender: TObject);var form2: TForm;begin form2 := TForm.Create(nil); form2.BorderStyle := bsNone; form2.Width := 360; form2.Height := 30; form2.Po