- 博客(5)
- 收藏
- 关注
RSS订阅原创 有关字符的加密与解密
本人在日常的MIS的开发中常用到的些口令处理中常用的个字符处理过程现在帖在这里请大家多提意见！function CryptStr(const S:String; sType: DWord):String;var i: Integer; FKey: Integer;begin result:=; case sType of 0: SetPass; beg
2000-12-17 20:54:00
788
原创 在Delphi中实现任意形状的窗体
Form的TEXT：object Form1: TForm1 Left = 192 Top = 107 BorderStyle = bsNone Caption = Form1 ClientHeight = 348 ClientWidth = 536 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color =
2000-12-15 14:54:00
937
原创 AccesS密码的打击
type TForm1 = class(TForm) Button1: TButton; Chk2000: TCheckBox; Edit1: TEdit; Button2: TButton; Edit2: TEdit; OpenDialog1: TOpenDialog; Button3: TButton; Label1: TLabel;
2000-12-15 09:55:00
716
原创 移动没有CAPTION的窗体
procedure WMMOVE(VAR Message: TWMNCHITTEST); Message WM_NCHITTEST;procedure TForm1.WMMOVE(VAR Message: TWMNCHITTEST);begin Message.Result := HTCAPTION;end;
2000-12-13 12:04:00
613
原创 OICQ中用户图标选择的实现
unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) List1: TComboBox; Button1: TButton; procedure B
2000-12-13 11:19:00
785
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人